Hola:
Tengo un problemita con esta función, espero sus ayudas
Código Delphi
[-]
function TFrmDistribuidor.LeerArchivo (Dir : String) : String;
var
Nombre : TSearchRec;
NomFile : String;
begin
if FindFirst(Dir,faDirectory,Nombre) = 0 then
NomFile := Nombre.Name;
LeerArchivo := NomFile;
end;
En vez de devolverme el nombre del archivo, me devulve el nombre de la carpeta.
Saludos.