[Skeptic]

angvelem
Сори, реально старался найти ))!
вопщем если вставляю ваш код :

PHP код:

var
  I : Integer;
begin
  for I := 0 to Memo1.Lines.Count - 1 do
    if Pos('megosupercar', Memo1.Lines[i] > 0 then
    begin
      copyresult := Copy(Memo1.Lines[i], Pos(':', Memo1.Lines[i] + 1, Length(Memo1.Lines[i]));
      Break; 
    end;
end; 


пишет какую-то ошибку ....
[DCC Warning] Unit1.pas(148): W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'

ну я вопщем уже разобрался, помогли хорошие люди советом)))!!
код такой

PHP код:

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; 


этот работает ! копирует от двоеточия до конца строки ))! ура!)