Forum: Object-Pascal / Delphi-Language
Delphi
by SirThornberry,
24. Dez 2003
so sollte es aussehen, hatte keine mögllichkeit das zu testen und hab ausgewohnheit durch arbeit mit der Listbox das items noch dazwischen gesetzt was da nicht hinn gehört
Forum: Object-Pascal / Delphi-Language
Delphi
by SirThornberry,
24. Dez 2003
var liste01: TStringlist;
count: Integer;
begin
liste01 := TStringlist.create;
liste01.loadfromfile(Filename);
for count := 0 to liste01.items.count -1 do
begin
if pos(lowercase(suchwort), lowercase(liste01.items.strings) > 0 then
begin
showmessage(liste01.items.strings); //oder halt anders ausgeben...