Ersten 2 Zeichen einer Memo.line

[HartiMcFly]

Zitat von jokriege:

Hallo HartiMcFly, versuche es einmal mit der Funktion "leftStr" so:

Delphi-Quellcode:

  for i:=0 to Memo1.Lines.Count-1 do
  begin
    if leftstr(Memo1.Lines[i],2) = 'ID' then
      Memo2.Lines.Add(Memo1.Lines[i]);
  end;

Um die Funktion leftStr nutzen zu können, musst Du StrUtils bei uses einfügen.

Damit funktionier es wunderbar...

Danke