Filegrösse von Datei aus Opendialog

Hi Delphianer.

Ich öffne mitels Opendialog eine Datei und möchte die Dateigrösse der Datei in eine Litvie schreiben.

Delphi-Quellcode:

Li.SubItems.Add(GetFileSize(ClientForm.opendialog1.Files[i]));

Delphi-Quellcode:

			function GetFileSize(FileName: string): integer;

var

  Handle: THandle;

begin

  Result := 0;

  Handle := CreateFile(pchar(FileName),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

  if Handle <> INVALID_HANDLE_VALUE then Result := windows.GetFileSize(Handle,nil);

  CloseHandle(handle);

end;

Allerdings bekomme ich da immer die Fehlermeldung: Inkompatible Typen: NativeUInt und String;

Filegrösse von Datei aus Opendialog

Filegrösse von Datei aus Opendialog

Forumregeln