SIZECONVERTER : UNE MINI LIBRAIRIE DE CONVERSION DE TAILLE
kachwahed
Messages postés
18
Date d'inscription
samedi 6 décembre 2008
Statut
Membre
Dernière intervention
5 décembre 2009
-
3 nov. 2010 à 20:28
AlexFr23 Messages postés 33 Date d'inscription lundi 10 mars 2003 Statut Membre Dernière intervention 4 décembre 2010 - 18 nov. 2010 à 22:07
AlexFr23 Messages postés 33 Date d'inscription lundi 10 mars 2003 Statut Membre Dernière intervention 4 décembre 2010 - 18 nov. 2010 à 22:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/52409-sizeconverter-une-mini-librairie-de-conversion-de-taille
https://codes-sources.commentcamarche.net/source/52409-sizeconverter-une-mini-librairie-de-conversion-de-taille
18 nov. 2010 à 22:07
Je trouve ton prg intéressant mais tu devrais l'exploiter un peu plus et mettre d'autre unitée de mesure on pourrait choisir cm/inch, aussi avec les poids car il existe cela sur intenet mais parfois j'ai la flème d'aller sur le net pour vérifier une mesure et l'avoir sous la mains dans la barre de tâche serrais plus simpa
Enfin bon travail !
Bon courage pour la suite
Alex
3 nov. 2010 à 20:28
Y a aussi des fonctions WinAPI comme ceci:
function StrFormatByteSize(dw: DWORD; szBuf: PChar; uiBufSize: UINT): PChar; stdcall; external 'shlwapi.dll' name 'StrFormatByteSizeA';
function StrFormatKBSize(qdw: LONGLONG; szBuf: PChar; uiBufSize: UINT): PChar; stdcall; external 'shlwapi.dll' name 'StrFormatKBSizeA';
//---------------------------------------------
function Formatted_FileSize(SizeInBytes : Cardinal) : String;
var
arrSize: array[0..255] of Char;
begin
StrFormatByteSize(SizeInBytes, arrSize, Length(arrSize) - 1);
Result := Trim(arrSize);
end;
function KB_Formatted_FileSize(SizeInKB : Cardinal) : String;
var
arrSize: array[0..255] of Char;
begin
detailed mode
StrFormatKBSize(SizeInKB, arrSize, Length(arrSize)-1);
Result := Trim(arrSize);
end;