Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by robinWie,
28. Feb 2009
Könnt sein aber welche Datei ist schon vonner Dateigrößte im ExaByte betreich? :D
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by robinWie,
28. Feb 2009
mmh.. ich werd heute mal delphi ausmachen.. das wird eh nix mehr^^
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by robinWie,
28. Feb 2009
Ich muss mal n wach macher trinken^^
aber der Size := ((wfd.nfileSizeHigh * (int64(MAXDWORD) + 1)) + wfd.nFileSizeLow) / Divisor; is doch richtig. Die Klammen müssen da ja wegen dem "+" hin ;)
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by robinWie,
28. Feb 2009
Ich hab die überarbeitete Version von DeddyH mit dem einwand von Lucki kombiniert. Dabei bin ich davon ausgegangen, dass die Methode von Lucki die Größe in Byte liefert. Wenns anders ist bitte schreit ;)
function GetFileSizeAsString(FileName: string; Use1024: Boolean = true): string;
const Sizes1024: array of string = ('KiB','MiB','GiB','TiB','PiB','EiB','ZiB','YiB');
Sizes1000: array...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by robinWie,
28. Feb 2009
Habs gerade getestet, bei mir funzt es aber...
So hab ichs bei mir aufgebaut:
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
ShowMessage(GetFileSizeAsString(opendialog1.FileName));
end;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by robinWie,
28. Feb 2009
joa hab mich vertan.. statt den or muss da ein and hin. Hab is mir beim blick drauf auch aufgefallen -.-
Ich hatte das erst anders aber dann war das Ergebniss der größe immer eine andere im im windows explorer. Hab dann ein bischen rumexperimentier und rausgefunden wenn ich FileSize durch 8 teile passt das mit den KiB. Ich denke also mal, dass FileSize die größe in Kilobit ausgibt. In der...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by robinWie,
28. Feb 2009
ne hase nich übersehen.. hab ich glatt vergessen :oops:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by robinWie,
28. Feb 2009
Ich hab eine kleine Routine geschrieben mit der man sich die Dateigröße einer Datei als String ausgeben lasse kann. Die Dateigröße wird als Zahl so klein wie möglich ausgegeben und mit der entsprechenden Einheit versehen. Verwendet werden Binärpräfixe (Kibibyte, Mebibyte... (umrechnungfaktor 1024))
Beispiel
Dateigröße: 12288 Byte
Ausgabe: 1,5 MiB
Bei einem Fehler wird 'ERR' ausgegeben....