Bildpfad eines TImages abspeichern

[Luca Haas]

Zitat von Glados:

Kommt mir spanisch vor. Denn dein ursprünglicher Code aus Beitrag #1 ist mit diesem hier, bis auf die Zwischenvariablen, quasi identisch.

Delphi-Quellcode:

procedure TForm1.Image1DblClick(Sender: TObject);
var
  ImageFileName: string;
begin
  if OpenPictureDialog1.Execute then
  begin
    ImageFileName := OpenPictureDialog1.filename;
    Image1.Picture.LoadFromFile(ImageFileName);
    KST_LagerbewertungQuery.Edit;
    KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString := ImageFileName;
    KST_LagerbewertungQuery.Post;
  end;
end;

tschuldige, hab ja noch eine Zeile "rumgedreht", sieht jetzt so aus

[DeddyH]

Jetzt macht' s Sinn