[@Cherep]

Суть проблемы:
На форме висит Memo, в него подгружаются строки такого вида:

123456:727272

нада делитнуть все перед двоеточием(ну и само двоеточие), тобишь чтобы вышло:

727272

Пробывал делать что-то сам, без результатно.
Заранее спасибо

[@Jlo6aH]

Такое в экселе можно сделать ;3

[@Cherep]

да я обычно через эксель и делаю, но захотелось чем то занятся, сделал парсер под примари мыльники, и заодно хотел допилить эту хрень(

[@Восьмеркин]

delete(String,1,Pos(':', String));
где String-исходная строка

[@Cherep]

вот сам код кнопки:

результ:

[@Восьмеркин]

через буфер

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
BufString:string;
begin
i:=0;
BufString:='';
repeat
BufString:=(memo1.Lines[i]);
delete(BufString,1,Pos(':', BufString));
memo1.Lines[i]:=BufString;
i:=i+1;
until i=memo1.Lines.Count;
end;

и нумерация строк в мено начинается с нуля

[@Cherep]

спасибо) Темку можно оффать)