Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#7

Re: AV bei angepasster TObjectList

  Alt 16. Feb 2010, 21:32
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
Heiko
  Mit Zitat antworten Zitat