If TBitmap exists || isset(TBitmap) Variante gesucht

Nemo · Beiträge: 26 Win 2000/WinXP D7 Prof

Hallo Gemeinde!

Ich bins mal wieder, Euer Nemo

Nur eine Kurzfrage, ich habe einen Array of TBitmap erstellt, der meine Anwendung extrem beschleunigen könnte, wenn ich ihn denn hinbekäme. Das Problem ist ich brauche eine Abfrage wie:

markieren

Quelltext

1:
2:

Wenn TBitmapArray[x] schon exestiert
lade TBitmapArray[x] in Image1

Eine ganz einfache Variante die ich mir ausgedacht habe, ist:

markieren

Delphi-Quelltext

1:	if TBitmapArray[x] = LeeresBitmap then

Das funktioniert beim ersten Durchlauf der Bilder 1-9 wunderbar, danach komischer Weise nicht mehr, obwohl keine weiteren Stellen definiert werden :?:

wulfskin · Verfasst: Di 01.03.05 17:03

so?

markieren

Delphi-Quelltext

1:
2:

if  (Assigned(BitmapArray[x]))  //wenn nicht nil
and (not BitmapArray[x].Empty)) //und nicht leer

Gruß hape!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

Nemo · Beiträge: 26 Win 2000/WinXP D7 Prof

Klingt gut, geht aber leider nicht.

Bei:

markieren

Delphi-Quelltext

1:
2:
3:
4:

if  (Assigned(PreviewBilder[arrindex+i])
    and (not PreviewBilder[arrindex+i].Empty)) then begin
[..]
end else

[..]
führt er dann immer nur die Else Anweisungen aus.

Nemo · Beiträge: 26 Win 2000/WinXP D7 Prof

Pardon mein Fehler. Geht wohl, ich brauchte es ja nur umgekehrt :roll:

markieren

Delphi-Quelltext

1:	if (not Assigned(PreviewBilder[arrindex+i])) then begin

klappt tadellos.

Danke!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme