Durch Abfrage verschiedene Bilder einblenden geschlossen

[lorus]

Hallo,

ja ich bins mal wieder . Folgende Frage hab ich heute.

Ich möchte durch eine Frage entweder eine Rote oder eine Grüne LED einblenden. Ich habe von der Grünen und von der Roten Led jeweils eine jpg Datei.

Hab aber überhaupt keine Idee wie ich das ganze Umsetzen soll. Wenn die gesuchte Datei vorhanden ist, soll die Grüne LED kommen und wenn nicht das Rote. Hab das mit ganze Versucht mit TImage umzusetzen, aber ohne Erfolg.

if FileExists(GLWWS+'\KOB.ini') then
begin
????????????????
end else
????????????????

Ich danke wir immer für eure Unterstützung.

lorus

 

[Broken Sword]

Moin,
ganz einfach

if fileexists(filename) then image1.picture.LoadFromFile(filename)
else image1.picture.LoadFromFile(filename2);

Gruß

 

[lorus]

Alles klar. Ist wirklich einfach.
Hab da aber jetzt noch ne Frage. Wo hinterleg ich die jpg´s? Wenn ich den Grafikeditor öffne, dann kann ich doch nur ein Bild rein Laden. Oder gibt es irgendwo eine Sammelstelle?

lorus

 

[Broken Sword]

Ach, du möchtest es im Programm integriert haben. Hmm... da gibt es zwei Möglichkeiten.
Die erste ist das Bild in eine Resouce-datei zu packen und die dann zubenutzen.
Hier Infos zu Resources und ein Beispiel für Bilder: Resource Files Made Easy (in Delphi applications)

Oder du machst es ganz einfach indem du die beiden Bilder übereinander legst und beide visible:=false setzt. Dann je welches gesehen werden soll, visible:=true.

Gruß
Broken Sword

 

[Palad]

Wenn ich ihn richtig verstehe möchte er wissen, wie er die Dateien korrekt laden kann, sodass das Programm sie auch findet wenn sie benötigt werden. Sollte dies der Fall sein, dann speicherst du die beiden Bilder am besten einfach im gleichen Ordner wie die .exe oder einem Unterordner "Bilder" und verwendest dann folgenden Aufruf:

if fileexists(filename) then image1.picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'GruenesLED.jpg')
else image1.picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'RotesLED.jpg');

Andernfalls sind die Tips von Broken Sword angebracht.

Palad