Código
exemplo C:BackupMaio07backup.gbk
resultado ficará C:BackupMaio07
espere que ajude, para mim foi util }
//coloque o caminho em um edit (proveniente de um opendialog por exemplo)
var
nomearq: String;
begin
nomearq:=ExtractFileName(Edit1.Text);
Edit1.text := Copy(Edit1.text,1,Length(Edit1.text)- Length(nomearq));
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009