Renomeiar nome do arquivo! Buscar nome do arq sem extensão!

Delphi

07/01/2005

Boa tarde:
Como faço para renomeiar um arquivo via delphi!
E também como faço para buscar o nome do arquivo sem extensão. Ex.: Preciso do nome ´teste´ ao invés de ´teste.txt´


Leandroamaral

Leandroamaral

Curtidas 0

Respostas

Massuda

Massuda

07/01/2005

Como faço para renomeiar um arquivo via delphi!

Use a função RenameFile da unit SysUtils.

E também como faço para buscar o nome do arquivo sem extensão. Ex.: Preciso do nome ´teste´ ao invés de ´teste.txt´

Não testei, mas para obter apenas o nome do arquivo sem a extensão, você pode fazer algo deste tipo...
uses
  SysUtils;

function NomeDeArquivoSemExtensao(S: string): string;
var
  Ext: string
  N: Integer;
begin
  // determina qual a extensão
  Ext := ExtractFileExt(S);

  // localiza a extensão no nome
  N := Pos(Ext, S);

  // exclui a extensão se for preciso
  if N > 0 then Delete(S, N, Length(Ext));

  Result := S;
end;



GOSTEI 0
Leandroamaral

Leandroamaral

07/01/2005

Valeu, o código acima funcionou perfeitamente!


GOSTEI 0
POSTAR