Einzelnen Beitrag anzeigen

Benutzerbild von smart
smart

Registriert seit: 19. Dez 2004
Ort: Bochum
1.266 Beiträge
 
Delphi 2007 Professional
 
#1

Stringlisten vergleichen.

  Alt 22. Jan 2005, 10:14
Ich habe auf einer TForm 3 TMemos. In Memo2 ist eine Stringliste mit 300 Zeilen. In Memo1 ist eine Stringliste(auch doppelte Strings) die mit der Stringliste in Memo2 verglichen werden soll. Bei einer Übereinstimmung soll der String in Memo3 hinzugefügt werden. Habe diesen Code geschrieben, er klappt aber nicht. Was mach ich falsch?

Code:
procedure TForm1.Button1Click(Sender: TObject);
Var
A, B:Integer;
begin
For A := 0 To Memo2.Lines.Count do
begin
    For B := 0 To Memo1.Lines.Count -1 do
        If Memo1.Lines[A] = Memo2.Lines[B] Then
        begin
            Memo3.Lines.Add(Memo2.Lines[B]);
        end;
    end;
end;
Heike Kretschmann
  Mit Zitat antworten Zitat