hm buildfilename hatte bei mir noch nie fehler gemacht
Delphi-Quellcode:
function BuildFileName(ADir, AFileName : string) : string;
begin
if ADir[Length(ADir)] <> '\' then
ADir := ADir + '\';
if AFileName[1] = '\' then
Delete(AFileName,1,1);
if AFileName[Length(AFileName)] = '\' then
Delete(AFileName,Length(AFileName),1);
Result := ADir + AFileName;
end;
und im programm hatte ich es auhc schon einige male raus gemacht und gekukt.
HM WASN DAS?
Jetzt hab ich ein neues projekt mit deinem bzw meinem von dir modifizierten code
gemacht und da klappts
Warum klappts nicht wenn die funktion in meiner
Unit ist?