Probelme mit Datein in Datenbanken

[harrybo]

hi foxy, möglicherweise klappt es, wenn Du FieldByName verwendest. Bischen aufgeräumt habe ich auch noch, sollte aber keine Auswirkungen haben.

Delphi-Quellcode:

procedure ...
var 
  pfad, vFieldName : string;
begin
  if opendialog1.Execute then begin 
    pfad := opendialog1.FileName; 
    if ExtractFileExt(pfad)='.bmp' then 
      vFieldName := 'BMP'
    else
      vFieldName := 'Datei';
    with Table1 do try
      DisableControls;
      Edit; 
      FieldByName('File').AsString := pfad; 
      FieldByName(vFieldName).LoadFromFile(pfad);
      Post; 
    finally
      EnableControls;
    end;
    DBlistbox1.Items.Add(pfad); 
    Pagecontrol1.ActivePageIndex:=2; 
  end;
end;

Viel Erfolg, harrybo