Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

Как в МЕМО1 в первой строке   Найти похожие ветки 

 
KvORubin ©   (2005-12-07 09:19) [0]

Как в МЕМО1 в первой строке найти запятую
закинуть текст перед запятой в другое мемо2, потом следующую запятую, тоже текст перебросить итд


 
easy ©   (2005-12-07 09:37) [1]

procedure explode(sPart, sInput: string; outlist:TStrings);
begin
 while Pos(sPart, sInput) <> 0 do
 begin
   outlist.Add(Copy(sInput, 0, Pos(sPart, sInput) - 1));
   Delete(sInput, 1, Pos(sPart, sInput));
 end;
 outlist.Add(sInput);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 explode(",",memo1.Lines[0],memo2.Lines);
end;


 
kvorubin ©   (2005-12-07 09:40) [2]

Большое спасибо, вы мне очень помогли



Страницы: 1 вся ветка

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
2-1135115408
newhite
2005-12-21 00:50
2006.01.08
Поиск в файле по параметрам


2-1135078627
Crass
2005-12-20 14:37
2006.01.08
Редактирование больших файлов


2-1135033586
ZeeM
2005-12-20 02:06
2006.01.08
Функции пребразования StrToFloat, StrToInt и др.


14-1134028622
WondeRu
2005-12-08 10:57
2006.01.08
Начинаю ненавидеть людей, которые присылают "письма счастья"!


2-1135090521
Tigra
2005-12-20 17:55
2006.01.08
Too many open tables