Bildpfad eines TImages abspeichern

[TiGü]

Zitat von Luca Haas:

Zitat von Glados:

Zeigst du die Lösung?

Delphi-Quellcode:

procedure TForm1.Image1DblClick(Sender: TObject);
var
  ImageFileName: string;
begin
  Image1.Stretch := true;
  if OpenPictureDialog1.Execute then
  begin
    ImageFileName := OpenPictureDialog1.filename;
    Image1.Picture.LoadFromFile(ImageFileName);

    KST_LagerbewertungQuery.Edit;
    ImageFileName := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
    Image1.Picture.SavetoFile(ImageFileName);
    KST_LagerbewertungQuery.Post;
  end;
end;

Ich wette dein ganzes Bruttoausbildungsgehalt, dass das so nicht das gewünschte Ergebnis ist.
Du möchtest doch den Pfad zur Bilddatei IN die Datenbank SCHREIBEN.
Aktuell LIEST du irgendwas AUS der Datenbank.

Hast du denn gar keine Aufgabenstellung von deinem Ausbilder bekommen?