Foros Club Delphi - Ver Mensaje Individual - Como tratar un archivo cuyo nombre tiene espacios en blanco

ecfisa · #8 23-05-2013

Hola.

Hice una prueba en Delphi 7 y también funciona correctamente habiendo espacios en el nombre.

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
  archivox : string;
  FHandle  : integer;
  Tam      : DWORD;
begin
  archivox := 'C:\TR 2013 04.txt';
  FHandle  := FileOpen(archivox, fmOpenRead);
  Tam      := GetFileSize(FHandle, nil);
  FileClose(FHandle);
  ShowMessage(Format('Name: %s %sSize: %d', [archivox, #10, Tam]));
end;

Saludos.