pfadangabe wie bei html

[Sharky]

Zitat von vamp79:

@Sharky:
ich habs ausprobiert, funtioniert aber irgendwie nicht.

Und was geht nicht?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  dateiname,
    quelle,
    ziel            : string;

begin
  ziel := 'g:\bilder\';                 // "ziel" sollte natürlich Global deklariert sein. Als Konstante oder Variable
  forcedirectories(ziel);               // UNIT FileCtrl
  if (OpenPictureDialog1.Execute) then  //Ein Bild wurde ausgewählt
    begin
      quelle := OpenPictureDialog1.FileName;
      dateiname := ExtractFileName(quelle); //Unit Sysutils
      CopyFile(PChar(quelle), PChar(ziel + dateiname), false); //Vorhandende Dateien werden nicht überschrieben.
      Table1.Edit;
      Table1.FieldbyName('Bild1').AsString := ziel + dateiname;  //Abspeichern des neun Ortes des Bildes (g:\bilder\bildname.jpg
      Table1.Post;
    end;
end;