Einzelnen Beitrag anzeigen

Ajin

Registriert seit: 23. Feb 2006
Ort: Mons
252 Beiträge
 
Delphi 2010 Professional
 
#4

Re: Inhaltsvergleich einer Listbox

  Alt 2. Apr 2007, 15:12
Hi,

Ich hab das ganze nochmal geprüft, das Ergebnis ist immer negativ. Hier der simple Code:

Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var s: String;
begin
 //lade den ersten namen aus der Liste
         if fileexists('C:\liste1.txt') then
          begin
           liste1.Items.LoadFromFile('C:\liste1.txt');
           s:=liste1.items[0]; //den ersten Eintrag auswählen
         end;
 //vergleichen mit dem inhalt der anderen liste
  if fileexists('C:\napliste.txt') then napliste.Items.LoadFromFile('C:\napliste.txt');
  if napliste.items.indexof(s) = -1 then showmessage(s+' ist nicht in Liste 2')
  else showmessage(s+' ist in Liste 2 Juchuu');
End;
Ihr könnt es gern mal testen aber angeblich ist der string immer in der liste 2
  Mit Zitat antworten Zitat