| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как в МЕМО1 в первой строке [D7]
KvORubin © (2005-12-07 09:19:00)Как в МЕМО1 в первой строке найти запятую
закинуть текст перед запятой в другое мемо2, потом следующую запятую, тоже текст перебросить итд
kvorubin (2005-12-07 09:40:00) [1]Большое спасибо, вы мне очень помогли
easy (2005-12-07 09:37:00) [2]
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;
| |
