Bin gerade dabei ein Code zu schreiben, welcher prüfen, ob ein String in der ListBox schon vorhanden ist?
Hab schon folgendes geschrieben kommen aber nicht weiter?
Delphi-Quellcode:
procedure TForm1.InserttoRSL1Click(Sender: TObject);
var i: Integer;
begin
for i:=0 to ListBox1.Count-1 do
begin
if Label3.Caption<>ListBox1.Items.Strings[i] then ListBox1.Items.Add(Label3.Caption);
end;
end;
Wenn die erste Zeile in der ListBox diesen String nicht enthält muss man weiter prüfen und wenn erst alle Zeilen geprüft sind einfügen, bei mir wird aber mehr mals eingefügt.
Wer da Ideen?