Zur Erklärung mal 2 Codeschnipsel:
Dieser Code dient zur Protokollierung, es soll der Pfad der Grafikdatei einer Nummer zugeordnet und in eine
DB gespeichert werden.
Delphi-Quellcode:
procedure TForm1.OpenPictureDialog1Close(Sender: TObject);
begin
if Table3.Locate('Ohr',Table1Nr.Value,[]) then Table3.Edit else Table3.Append;
Table3Pfad.Value := OpenPictureDialog1.FileName;
Table3Ohr.Value := Table1Nr.Value;
Table3.Post;
end;
Nun, das Problem: die Nummer taucht in der Datenbank auf, allerdings ist der Pfad immer ein X, er schreibt ihn nicht in die
DB.
Der folg. Code wird korrekt Ausgeführt:
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
Image1.Picture.LoadFromFile (OpenPictureDialog1.FileName);
end;
Da Die Imagekomponente das ausgewählte Bild anzeigt (dies geschieht ja über FileName) muß diese Eigenschaft ja den korrekten wert beinhalten. Warum landet dieser dennoch nicht in der
DB? Jemand ne idee?