Problem mit TOpen- + TSaveDialog

[The_Doomed]

wie sieht das dann aus

[DeddyH]

Das ist auch der Grund dafür, dass man entweder Konstanten oder String-Properties oder beides definiert und programmweit nur auf diese zurückgreift. Wenn sich etwas ändern sollte, dann nur an einer Stelle.

Delphi-Quellcode:

type
  TFormMain = class(TForm)
  ...
  private
    FFilePath: string;
  ...
  end;

...

const sSubDir = 'Bilder\';

procedure TFormMain.FormCreate(Sender: TObject);
begin
  FFilePath := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + sSubDir;
end;

procedure TFormMain.DoSomething;
begin
  ImageWuppdi.Picture.LoadFromFile(FFilePath + 'MeinBild.bmp');
end;

So in der Art, hab' s aus dem Kopf dahergetippelt.

[The_Doomed]

ok das kapier ich ^^
ja muss ich ma sehen ob ich das so mache
auf jeden fall für die zukunft
danke nochmal