Listboxen vergleichen

[shmia]

Um zu ermitteln, ob ein Wort gesperrt ist, machst du am Besten eine Unterfunktion (*) :

Delphi-Quellcode:

function TForm1.IsBlockedWord(const s : string):boolean;
begin
  Result := (LB2.Items.IndexOf(s) <> -1);

  // hier an dieser Stelle könne man z.B. auch noch eine zweite Liste (Schimpfwörter) prüfen
  ...
end;

*) ja, man kann tatsächlich in Delphi Unterfunktionen verwenden und damit den Code stark vereinfachen