Stringlisten vergleichen.

**smart**

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?

markieren

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;

Stringlisten vergleichen.

Stringlisten vergleichen.

Forumregeln