[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; 

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

[angvelem]

Ну по поводу, что ТС - гуглил очень долго прежде чем спросить - откровенное враньё. Нажимаем F1 читаем справку по Copy и Pos, а заодно смотрим, приложенные там же примеры.

Код:

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;

надеюсь всё верно нарисовал.

[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; 


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

[angvelem]

Стандартное предупреждение для Дельфи 2009 и выше. У вас используется тип String, отсюда и ноги растут.
То чем вам помогли люди добрые, будет работать, но только в том случае, если ваша искомая строка находится в первой строке TMemo. Теперь попробуйте поменять строки в TMemo местами и снова поискать.

[NumLock]

Copy function
Returns a substring of a string or a segment of a dynamic array.
function Copy(S; Index, Count: Integer): string;
...
If Index is larger than the length of S, Copy returns an empty string or array.
If Count specifies more characters or array elements than are available, only the characters or elements from S[Index] to the end of S are returned.

поэтому:

Код:

Copy('procedure TForm1.FormCreate(Sender: TObject);', 11, MaxInt);