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;