Ersten 2 Zeichen einer Memo.line

[HartiMcFly]

Schönen guten Morgen.

Ich glaube für mich ist es gerade noch etwas zu früh um zu programmieren :-)

ich gehe mit Hilfe einer Schleife alle Lines eines Memofeldes ab, und suche bis jetzt dort nach dem ersten Zeichen

Delphi-Quellcode:

          begin 
       if memo1.lines[i][1] = 'I' then
         memo2.lines.add(memo1.lines[i]);
     end;

Leider hat sich jetzt etwas verändert, so dass ich nun nach den ersten beiden Zeichen suchen muß.
Kann ich meine Schleife erweitern, dass er mir nach den Zeiche 'ID' sucht?

Danke Patrick

[uwewo]

Wie wäre es mit

Delphi-Quellcode:

  Copy(Memo1.lines[i],0,2);

liefert die ersten beiden Zeichen zurück

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

[mkinzler]

Müßte imho

Delphi-Quellcode:

Copy(Memo1.lines[i],1,2);

heißen, da Strings mit Index1 beginnen (Index 0 ist die Länge des Strings)

[marabu]

Hi,

Copy() ist effizienter und LeftStr() hat einen höheren Dokumentationscharakter - aber auf was ich eigentlich hinweisen möchte ist der Startindex 0 in Uwes Copy-Statement: der Startindex sollte 1 sein. Wenn bei 0 trotzdem das erwartete Ergebnis erzielt wird, dann aufgrund eines implementationsbedingten Nebeneffektes - und das muss ja nicht sein.

Freundliche Grüße vom marabu

[uwewo]

Zitat:

Zitat von mkinzler

Müßte imho

Delphi-Quellcode:

Copy(Memo1.lines[i],1,2);

heißen, da Strings mit Index1 beginnen (Index 0 ist die Länge des Strings)

Hmm, habe es gerade ausprobiert scheinbar hast Du recht, allerdings liefert

Delphi-Quellcode:

Copy(Memo1.lines[0],0,2);

und

Delphi-Quellcode:

Copy(Memo1.lines[0],1,2);

das gleiche Ergebnis.

erst ab

Delphi-Quellcode:

Copy(Memo1.lines[0],2,2);

wird der 2te un 3te Buchstabe zurückgegeben. :shock:

[HartiMcFly]

Zitat:

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