Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  12345
Language: C/C++
Code:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int i,j;
 
         //длина всего текста в  Memo1
        int size = Memo1->GetTextLen();
        //плюс позиция для окончания нуль-строки
        size++;
 
       char *buf = new char[size];
       //все содержимое Memo1 - в строке buf
       Memo1->GetTextBuf(buf,size);
 
       for(i=0,j=0;i<size;i++)
       {   char num[32]; //отдельное число в строке (до 32 цифр)
                         //заново столбится в памяти каждый раз
                         //при входе в цикл
 
           if(buf[i]!=',' && i!=size-1)
           {   num[j] = buf[i];  //набираем число до запятой или
                                 //до конца всего текста
               j++;
           }
           else
           {   num[j]='\0';             //закрываем строку с числом
               Memo2->Lines->Add(num);  //выводим в Memo2
               j =0;
           }
        }
 
        delete [] buf;
}
Comments: