Fehler mit TStrings

[xZise]

Zitat von clock50:

Danke für den Hinweis hat geklappt. Ich habe festgestellt das es auch mita.AddStrings(Memo1.Lines); geht. Also Danke!

oder mit a.Text := Memo.Lines.Text

Oder du lässt das alles weg

Delphi-Quellcode:

var 
  e : String;
  d, zeil : word;
begin
  Memo2.Clear;
  For zeil := 1 to Memo1.Lines.Count-2 do
  begin
    e := LowerCase(Memo1.Lines[zeil]);
    d := AnsiPos(LowerCase('...'), e);
    if d > 0 then
    begin
      Memo2.Lines.Add(inttostr(d)+' '+e);
      break;
    end;
  end;
end;

MfG
xZise

PS: Ressourcenschutzblöcke