Deletar Arquivo
21/06/2003
0
Esta função não esta funcionando.
Pede que sejam decladas as palavras abaixo.
Como deve ser feita?
Obrigado.
[color=green:0ac141f6ae]function DeleteFile(sMask: string): Boolean;
{
Para deletar, use o seguinte codigo:
var
s: string;
begin
s := Table1.TableName;
s := copy(s, 1, Length(s)-3);
DeleteFiles(s + ´*´);
end;
}
var
SearchRec: TSearchRec;
begin
Result := (FindFirst(sMask, faArchive, SearchRec) = 0);
try
if Result then
repeat
Result := SysUtils.DeleteFile(AddSlash(ExtractFilePath(sMask)) +
SearchRec.Name);
until (FindNext(SearchRec) <> 0);
finally
FindClose(SearchRec);
end;
end; [/color:0ac141f6ae]
[Error] Unit1.pas(45): Undeclared identifier: ´AddSlash´
[Error] Unit1.pas(59): Undeclared identifier: ´DeleteFiles´
Pede que sejam decladas as palavras abaixo.
Como deve ser feita?
Obrigado.
[color=green:0ac141f6ae]function DeleteFile(sMask: string): Boolean;
{
Para deletar, use o seguinte codigo:
var
s: string;
begin
s := Table1.TableName;
s := copy(s, 1, Length(s)-3);
DeleteFiles(s + ´*´);
end;
}
var
SearchRec: TSearchRec;
begin
Result := (FindFirst(sMask, faArchive, SearchRec) = 0);
try
if Result then
repeat
Result := SysUtils.DeleteFile(AddSlash(ExtractFilePath(sMask)) +
SearchRec.Name);
until (FindNext(SearchRec) <> 0);
finally
FindClose(SearchRec);
end;
end; [/color:0ac141f6ae]
[Error] Unit1.pas(45): Undeclared identifier: ´AddSlash´
[Error] Unit1.pas(59): Undeclared identifier: ´DeleteFiles´
Jose Almeida
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)