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

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

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

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

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?

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

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

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

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

zusammenfalten · markieren

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...

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