Bild als Konstante?

[Moin]

Tach auch ihr dadraußen,

ich schreibe gerade an einem programm (sinn und zweck unwichtig) und habe mich gefragt, ob ich ein Bild (TPicture) als Konstante festlegen kann. Mir ist bewusst, dass ich
const Bild festlegen muss, aber wie kann ich der Konstante einen Wert zuweisen??

im endeffekt sollte der benutzer in einer Combobox eine eintrag aussuchen und das zugehörige bild soll in einem Image ausgegeben werden.

bitte um Antwort,
thx im Vorraus

[SirThornberry]

TImage ist nur ein Pointer von daher ist es eigentlich unmöglich

[Ultimator]

Probier doch mal folgendes:
const Bild=TImage.Loadfromfile('bla'); Ich weiß aber nicht genau ob's geht.

[SirThornberry]

Es geht nicht, außerdem wäre da das problem falls es ging das noch keine Instance von dem Object erstellt wurde und somit LoadFromFile nicht funktioniert.

Folgende möglichkeit gäbe es noch

Delphi-Quellcode:

const myimage: TImage=nil;

[...]
myimage := TImage.Create(nil);
myImage.picture.LoadFromFile('bla.bmp');

Ellerdings solltest du bei der variante dran denken das myimage auch irgendwann wieder freigegeben werden muss und delphi so eingestellt werden muss das es die constantenzuweisung (myimage := TImage.Create(nil) erlaubt

[MrKnogge]

Du musst das Bild als ressource einbinden, und dann zur Laufzeit laden ...

[Moin]

ok,
da mir die möglichkeit von SirThornberry zu aufwendig ist, müsste ich die bilder laden. ich will aber später die EXE weitergeben und brächte einen relativen pfad (z.B.: ".../ProjektOrdner/Bilder/Bild.bmp").
also TImage.Loadfromfile([b]????[/b]); Was müsste ich rein schreiben??

THX im Vorraus,
euer Moin

[Ultimator]

Irgendwas mit ExtractFilePath oder so

[Christian Seehase]

Moin Moin,

Zitat von Moin:

müsste ich die bilder laden.

Nein, müsstest Du nicht.
Lies Dir doch noch mal MrKnogges Vorschlag durch.

[Moin]

ja schon,
aber wie in gottes namen mache ich dass???

p.s. ich hab angefangen meinen letzten beitrag zu schreiben, bevor ich den beitrag von MrKnogge gelesen hatte!!!

[Ratte]

Hi,

so müsste es gehen:
TImage.Loadfromfile(ExtractFilePath(paramstr(0)+'Bild+Pfad von EXE aus'); Ratte