Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
11. Dez 2004
Hi Äfan,
bei der Überprüfung musst du einfach Edit1.Text und ListBox1.Items mit Hilfe von LowerCase in Kleinbuchstaben umwandeln: aus if Pos(Edit1.Text, ListBox1.Items) > 0 then wird dann if Pos(LowerCase(Edit1.Text), LowerCase(ListBox1.Items)) > 0 then
Greetz
alcaeus
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
11. Dez 2004
Hi Äfan,
du könntest alle Elemente in Liste 1 durchgehn, und mit Pos überprüfen, ob der Suchstring enthalten ist, und die Elemente ggf. in Liste 2 hinzufügen:
var i: Integer;
begin
ListBox2.Items.Clear;
for i := 0 to ListBox1.Items.Count-1 do
begin
if Pos(Edit1.Text, ListBox1.Items) > 0 then