Inhaltsvergleich einer Listbox

[marabu]

Hallo Jaimy,

wenn du deinen Code etwas erweiterst, dann kommst du der Fehlerursache vielleicht selbst auf die Spur:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
const
  FN_LISTE1 = 'C:\Liste1.txt';
  FN_NAPLISTE = 'C:\napliste.txt';
var
  s: string;
begin
  //  lade den ersten namen aus der Liste
  if FileExists(FN_LISTE1) then
  begin
    Liste1.Items.LoadFromFile(FN_LISTE1);
    if Liste1.Count > 0 then
    begin
      //  den ersten Eintrag auswählen
      s := Liste1.Items[0];
      //  vergleichen mit dem inhalt der anderen liste
      if FileExists(FN_NAPLISTE) then
      begin
        napListe.Items.LoadFromFile(FN_NAPLISTE);
        if napListe.Items.IndexOf(s) < 0
          then ShowMessage(Format('"%s" nicht in NapListe', [s]))
          else ShowMessage(Format('"s" in NapListe gefunden', [s]));
      end else
        ShowMessage(Format('Datei "%s" nicht gefunden', [FN_NAPLISTE]));
    end else
      ShowMessage('Liste1 ist leer');
  end else
    ShowMessage(Format('Datei "%s" nicht gefunden', [FN_LISTE1]));
end;

Grüße vom marabu