как в Delphi скопировать весь текст от нужного символа до конца строки ??

[Skeptic]

гуглил очень долго прежде чем спросить,но мозг уже понемножку закипает, поетому приходится спрашивать. итак
допустим есть Memo1 и там есть такой текст :

ferrari : megosupercar
zaporozhets : polnui_otstoi

так вот! как скопировать только часть текста megosupercar??? чтобы не зацепляло следущую строку ??

я так понимаю будет что-то вида

procedure TForm1.Button3Click(Sender: TObject);
var
copyresult : string;

begin
copyresult:=Copy(Memo1.Lines.Text, Pos(':',Memo1.Lines.Text),ВОТ_ЗДЕСЬ _ВОТ_НУЖНО_НАПИСАТЬ_ЧТО-ТО_ЧТОБЫ_СЧИТЫВАЛО_ТОЛЬКО_ДО_КОНЦА_ СТРОКИ);
end;

буду оч. благодарен за совет )

[TinMan]

ВОТ_ЗДЕСЬ _ВОТ_НУЖНО_НАПИСАТЬ_ЧТО-ТО_ЧТОБЫ_СЧИТЫВАЛО_ТОЛЬКО_ДО_КОНЦА_ СТРОКИ
=
Length(Memo1.Lines.Text)-Pos(':',Memo1.Lines.Text)+1

[Serge_Bliznykov]

ну, если решение "в лоб", то
можно так

var copyresult : string;
  p1 : integer;
begin
  p1 := Pos(':', Memo1.Lines.Text);
  if p1>0 then begin
    copyresult := Copy(Memo1.Lines.Text, p1+1, Length(Memo1.Lines.Text)-p1);
    if Pos(#13,copyresult)>1 then
      copyresult := Copy(copyresult, 1, Pos(#13,copyresult)-1);
  end;

а если воспользоваться функцией PosEx то можно и в одну строчку решить задача (оставляю в качестве домашнего задания! )

p.s. не смущает, что Вы найдёте только ПЕРВОЕ двоеточие?! Остальные строчки точно обрабатывать не собираетесь?!

[Skeptic]

эммм.....
вобщем если делаю так

procedure TForm1.Button3Click(Sender: TObject);
var
copyresult : string;

begin
copyresult:=Copy(Memo1.Lines.Text, Pos(':',Memo1.Lines.Text),Length( Memo1.Lines.Text)-Pos(':',Memo1.Lines.Text)+1 ;

end;


то copyresult всеравно захватывает 2ую строчку...((((
тоесть
copyresult = ferrari : megosupercar
zaporozhets : polnui_otstoi


толи я такой криворукий, толи код не правильный...

[Skeptic]

Serge_Bliznykov
аааа, спасибо большое!!
это мне помогло)))!!!!

var copyresult : string;
p1 : integer;
begin
p1 := Pos(':', Memo1.Lines.Text);
if p1>0 then begin
copyresult := Copy(Memo1.Lines.Text, p1+1, Length(Memo1.Lines.Text)-p1);
if Pos(#13,copyresult)>1 then
copyresult := Copy(copyresult, 1, Pos(#13,copyresult)-1);
end;

ура)!