Bedingtes Bild auslesen!

Roy · Verfasst: Mi 04.05.11 16:26

Hallo alle Miteinander!

Meine Frage: ist es möglich bedingt eines Textes ein Bild auslesen zu lassen?

Speziell: Wenn zbs. in einem Textfeld AOK (Label1.Caption)=AOK er mir das AOK Logo anzeigen.
Wenn zbs. in einem Textfeld GEK (Label1.Caption)=GEK er mir das GEK Logo anzeigen.

und des weiteren ...

Danke im voraus

jaenicke · Verfasst: Mi 04.05.11 16:33

Sicher geht das, aber wobei liegt da jetzt dein Problem? :gruebel:

markieren

Delphi-Quelltext

1:	MyImage.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + MyLabel.Caption + '.jpg');

Roy · Verfasst: Sa 07.05.11 14:08

Konnte leider nicht früher Antworten. Habe es nun ausprobiert und es funktioniert. Danke

Roy · Verfasst: Mo 09.05.11 09:23

Habe den Lösungsansatz über ein DBEdit verwendet und es funktioniert Prima.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Timer6Timer(Sender: TObject);
begin
Image14.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + DBEdit3.Text + '.jpg');

end;

Möchte aber alle Imagedateien aus einen Extraordner auslesen lassen.
Eine weitere Frage wäre: kann man 2 Kreterien auslesen und vergleichen lassen.

Konkret: Wenn DBEdit1 mir den Vornamen und DBEdit2 den Nachnamen dann Vorschaubild aus Ordner Image ?

Danke für eure Antworten

Roy

Moderiert von Martok: Delphi-Tags hinzugefügt

Tropby · Verfasst: Mo 09.05.11 10:06

Hallo,

du kannst doch einfach mehrere Edit-Felder aneinander hängen.

markieren

Delphi-Quelltext

1:
2:
3:

Image14.Picture.LoadFromFile(
    ExtractFilePath(Application.ExeName) + 'images\' + 
    DBEdit3.Text + '_' + DBEdit1.Text + '.jpg');

_________________
Tropby

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme