Как в МЕМО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;

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

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