Thema: Delphi Compare String Funktion

Einzelnen Beitrag anzeigen

bcvs

Registriert seit: 16. Jun 2011
664 Beiträge
 
Delphi 12 Athens
 
#7

AW: Compare String Funktion

  Alt 27. Jan 2021, 15:22
Du vergleichst in der Schleife jedesmal die ersten 20 Zeichen des gesamten Textes mit den ersten 20 Zeichen des gesamten Textes. Wie soll das jemals <> werden?

Wahrscheinlich meinst etwas in der Art
Delphi-Quellcode:
       vergleich1 := Copy(Memo2.Lines[i], 1, 20);
       vergleich2 := Copy(Memo2.Lines[i-1], 1, 20);
Wobei du aufpassen musst wenn du unten angekommen bist, denn da gibt es irgendwann kein i-1 mehr.

Zitat:
Delphi-Quellcode:
       if (vergleich1 <> vergleich2) then begin
         Memo2.Lines[i] := '#13#10';
Damit würdest du die aktuelle Zeile mit einer Leerzeile überschreiben, also den bisherigen Inhalt entfernen.
  Mit Zitat antworten Zitat