Abfrage welche Datei in TImage.picture geladen ist

[superjojo]

Hallo

Ich habe ein Image und möchte abfragen welche Bilddatei geladen ist. Geplant war so etwas

if image1.picture = datei1.jpg then ... Logischerweise kommt ein Fehler : undefinierter Bezeichner 'datei1.jpg'

Hat Jemand eine Idee wie das funktionieren könnte?

[Helmi]

Hallo,

meines Wissens nach kann man nicht abfragen welche Datei ins TImage geladen wurde.
Das muss man sich selbst merken, wenn man ein Bild reinlädt.

[Sir Rufo]

Gar nicht, denn der Image-Komponente ist es sowas von egal, woher die Daten stammen.

Wenn diese Information benötigt wird, dann musst du dir die schon selber merken.

z.B. über eine Eigenschaft

Delphi-Quellcode:

TForm1 = class( TForm )
Image1 : TImage;
private
  FImageFile : string;
  procedure SetImageFile( const Value : string );
public
  property ImageFile : string read FImageFile write SetImageFile;
end;

procedure TForm1.SetImageFile( const Value : string );
begin
  if Value = ImageFile then
    Exit;

  Image1.Picture.LoadFromFile( Value );
  FImageFile := Value;
end;

Der Setter erfüllt nun mehrere Sachen:
Die gleiche Datei (gleicher Name) wird nur einmal geladen, auch wenn man die x-mal zuweist.
Konnte die Datei nicht geladen werden, so wird auch der Dateiname nicht gespeichert (weil dann eine Exception geworfen wird)