Fórum FormatPath #297664
29/09/2005
0
Erro ao compilar a função abaixo:
Function TForm1.ExtractTempDir : String;
Var
Buffer : Array[0..144] of Char;
Begin
GetTempPath(144,Buffer);
Result := FormatPath(StrPas(Buffer));
End;
O problema está em FORMATPATH, em qual unit está declarado, o Delphi 6 não reconhece.
Obrigado
Function TForm1.ExtractTempDir : String;
Var
Buffer : Array[0..144] of Char;
Begin
GetTempPath(144,Buffer);
Result := FormatPath(StrPas(Buffer));
End;
O problema está em FORMATPATH, em qual unit está declarado, o Delphi 6 não reconhece.
Obrigado
Airoosp
Curtir tópico
+ 0
Responder
Posts
22/07/2014
Andrew Vargas
A pessoa que te passou o código, se esqueceu da função FormatPath, ela não está declarada em nenhuma unit, ela é implementada na mão mesmo.
function FormatPath(Path: string): string;
const DirSep: char = {$ifdef Unix}'/'{$else}'\'{$endif};
var P: integer;
SC: char;
begin
if ord(DirSep)=ord('/') then
SC:='\'
else
SC:='/';
repeat
P:=Pos(SC,Path);
if P>0 then Path[P]:=DirSep;
until P=0;
FormatPath:=Path;
end;
Responder
Gostei + 0
23/07/2014
Valquiria Silva
Ou vc pode tentar conforme sugestão desse link
Function ExtractTempDir : String;
Var
Buffer : Array[0..144] of Char;
Begin
GetTempPath(144,Buffer);
Result := IncludeTrailingBackSlash(StrPas(Buffer));
End;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)