Vergleich von Edit und Listbox

[KodeZwerg]

Falls es für den TE unverständlich ist wie ich es meine, ich war so frei das vorhandene zu editieren:

Zitat von p80286:

Zitat von DieDolly:

Delphi-Quellcode:

var
 Suchwort: String;
 Gefunden: Boolean;
begin
 Gefunden := False;
 Suchwort := LowerCase(Edit1.Text); // <- hier intern kleine Buchstaben erzeugen

 for i := 0 to ListBox1.Items.Count -1 do
  begin
   Gefunden := Pos(Suchwort, LowerCase(ListBox1.Items[i])) > 1); // <- hier intern nach kleinen Buchstaben suchen

   if Gefunden then
    begin
     //Label1.Caption := 'Schlagwort "' + Suchwort  + '" befindet sich in der Zeile (i + 1) mit dem Namen "' + ListBox1.Items[i] + '"';

     //Break;
     Memo1.Lines.Add('Schlagwort "' + Suchwort + '" befindet sich in der Zeile ' + IntToStr(i + 1) + ' mit dem Namen "' + ListBox1.Items[i] + '"');

    end;
  end;
end;

Erklärung: Nun wird intern der Suchbegriff in Kleinbuchstaben verwandelt, bei der ListBox-Abfrage genauso vorgehen, nun ist Grossschreibung egal.