Bildpfad eines TImages abspeichern

[Luca Haas]

Hi Leute,
ich versuche aktuell den Pfad eines Bildes in einer Datenbank abzuspeichern.

Allerdings habe ich das Problem, dass ich alles nur als "TPicture" und nicht als richtigen Pfad speichere

Delphi-Quellcode:

// Bild einfügen
procedure TForm1.Image1DblClick(Sender: TObject);
begin
  Image1.Stretch := true;
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.filename);
    KST_LagerbewertungQuery.Edit;
    Image1.Picture.SaveToFile(KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString);
    KST_LagerbewertungQuery.Post;
  end;
end;

Das ist die entsprechende Stelle im Code, hoffe jemand kann mir weiterhelfen
MfG Luca

[TiGü]

Die Lösung ist total simpel, aber es würde für dich als Auszubildenden keinen Lerneffekt geben, wenn wir dir die fertige Lösung hinknallen.

Bitte kommentiere deinen Quelltext mal Zeile für Zeile: WAS und WARUM machst du in der jeweiligen Zeile.
Anhand dessen können wir dir Schritt für Schritt helfen.

[Luca Haas]

Delphi-Quellcode:

procedure TForm1.Image1DblClick(Sender: TObject);
begin
  Image1.Stretch := true; // Bildgröße anpassen
  if OpenPictureDialog1.Execute then  //Abfrage ob OpenPictureDialog ausgeführt wurde
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.filename); //laden des Bildes aus dem OpenPictureDialog
    KST_LagerbewertungQuery.Edit; //Query Bearbeitung Beginnen
    Image1.Picture.SaveToFile(KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString); //Bildpfad abspeichenr ?! :?:
    KST_LagerbewertungQuery.Post; //Query Bearbeitung beenden
  end;
end;

[TiGü]

Ok, jetzt bitte die folgende Zeile mithilfe einer Zwischenvariablen auflösen:

Image1.Picture.SaveToFile(KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString);

[Luca Haas]

Meinst du sowas wie

Delphi-Quellcode:

 
a := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
Image1.Picture.SavetoFile(a);

Bin mir nicht sicher ob ich weiß was Zwischenvariablen sind

[Glados]

Zitat:

Ok, jetzt bitte die folgende Zeile mithilfe einer Zwischenvariablen auflösen:

Ok, und jetzt gebe deinen Variablen bitte anständige und verständliche Namen