TCommonDialog.FileName macht Probs.

[Sharky]

Zitat von Nightfly:

oh...mist, das is schlecht

Warum? Du brauchst doch nur deine beiden Procedure oben zu kombinieren:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject); 
begin 
  if (OpenPictureDialog1.Execute) then
  begin
    if Table3.Locate('Ohr',Table1Nr.Value,[]) then 
    begin
      Table3.Edit 
    end
    else 
    begin
      Table3.Append; 
    end;
    Table3Pfad.Value := OpenPictureDialog1.FileName; 
    Table3Ohr.Value := Table1Nr.Value; 
    Table3.Post; 
    Image1.Picture.LoadFromFile (OpenPictureDialog1.FileName); 
  end;
end;