Hallo,
was mir hier mißfällt
Delphi-Quellcode:
for I := 0 to Self.Count - 1 do
begin
if ContainsText(TArtikel(Self.Items[I]).Artikelname, KeyWord) then
begin
locNonFoodList.Add(TArtikel(Self.Items[I]));
Continue
end
Else if ContainsText(FloatToStr(TArtikel(Self.Items[I]).Menge),
Warum steht ihr mehrfach
TArtikel(Self.Items[I]).XXX
Wie willst du das mal Debuggen.
Delphi-Quellcode:
var
Artikel: TArtikel;
for I := 0 to Self.Count - 1 do
begin
Artikel:= TArtikel(Self.Items[I]);
if ContainsText(Artikel.Artikelname, KeyWord) then
begin
locNonFoodList.Add(Artikel);
Continue
end
Else if ContainsText(FloatToStr(Artikel.Menge),
Und schon kannst du das besser pr Watch-Point beobachten.
Heiko