Re: AV bei angepasster TObjectList
Hallo,
wenn du schon einmal beim Überarbeiten bist, kannst du vielleicht auch die Stringvergleiche in die Klasse TArtikel verschieben. Das könnte dann so oder ähnlich aussehen:
Delphi-Quellcode:
Gruß Hawkeye
procedure TNonFoodList.Suchen(locNonFoodList: TNonFoodList; KeyWord: string);
var Item: Pointer; begin for Item in Self do if TArtikel(Item).ContainsKey(KeyWord) then locNonFoodList.Add(TArtikel(Item)); end; function TArtikel.ContainsKey (const aKey: string): Boolean; begin Result := ContainsText(ArtikelName, aKey) or ContainsText(FloatToStr(Menge), aKey) or ContainsText(FloatToStr(Preis), aKey) or ContainsText(FloatToStr(Kosten), aKey); end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz