Bildname aus TImage auslesen

[Nalincah]

Wie kann man aus einem TImage oder TQRImage die Eigenschaft "Picture" auslesen und als String zurückgeben. So in der Art:

edit1.text := Image1.Picture.Filename Das klappt leider nicht

[neolithos]

So eine Eigenschaft gibt es nicht da man Bilder auch aus dem Speicher und Resourcen laden kann, da gibt es keinen Dateinamen.

[Nalincah]

Wenn ich zur laufzeit ein TQRImage erstell und dann ein bild reinpacke kann ich es nicht mehr auslesen? oder wie versteh ich das?

[Luckie]

Wenn du zur Laufzeiut ein Bild "reinpackst", dann kennst du es doch, sonst könntest du es nicht "reinpacken".

[Nalincah]

Das stimmt schon. Aber ich haben Editor mit dem kann man zur Laufzeit TQRImages einfügen. Und wenn man auf eins klickt kann man ein Bild laden, bzw. verändern. Verstanden?

[Luckie]

Ja wie lädst du es denn? Merk es dir doch in einer globale Variable oder so.

[Nalincah]

Das Problem dabei ist das man beliebig viele Images erstellen kann. Wie kann ich globale Variablen zur Laufzeit erstellen?

[Luckie]

Dynamisches Array vom Typ String. Stichworte für die Hilfe: dynamic arrays und setlength.

[neolithos]

Wenn du das TImage eh dynamisch erstellst dann Leide es doch einfach ab und füge die Eigenschaft hinzu.

Delphi-Quellcode:

TMyImage = class (TImage)
private 
  sFileName : String;
public
  procedure LoadImage(asFileName  : String);
  
  property FileName : String read sFileName;
end;


procedure TMyImage.LoadImage(asFileName  : String);
begin
  Picture.LoadFromFile(asFileName);
  sFileName := asFileName;
end;

SO ungefähr...

[Nalincah]

Gibt es nicht irgendeine Eigenschaft im Image, wo man einfach nen String reinpacken kann??