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.