Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

Правильная растановка символов   Найти похожие ветки 

 
Генри ©   (2005-02-26 16:17) [0]

Здравствуйте. Узнаю сколько свободного и занято места на диске.
ОТвет получаю в KB. например 18651432. как получить тоже самое, но в виде 18 651 432 ???
Спасибо! Привожу код

var
 FreeBytesAvailableToCaller: TLargeInteger;
 FreeSize: TLargeInteger;
 TotalSize: TLargeInteger;
begin
   GetDiskFreeSpaceEx("e:",
   FreeBytesAvailableToCaller,
   Totalsize,
   @FreeSize);
   TotalSize:=TotalSize div 1024;
   Edit1.Text:=(IntToStr(TotalSize));
   end;


 
DiamondShark ©   (2005-02-26 16:27) [1]

FormatFloat


 
Antonn ©   (2005-02-26 16:33) [2]

режет строку по 3 символа:

function str2spacestr(s:string):string;
var i:integer;
begin
i:=length(s) div 3;
if (length(s) div 3)<>length(s) then
 result:=result+" "+ copy( s, 0, length(s)-(i*3) );
for i:=(length(s) div 3) downto 0 do
result:=result+" "+ copy( s, length(s)-(i*3)+1, 3 );
end;


 
Anatoly Podgoretsky ©   (2005-02-26 16:34) [3]

А предыдущий ответ не стоит использовать?


 
Antonn ©   (2005-02-26 16:43) [4]

Anatoly Podgoretsky ©   (26.02.05 16:34) [3]
а не посмотревши:) через клиент сначала добавляем, рефрешим, читаем.

Antonn ©   (26.02.05 16:33) [2]
поправка 5 строки
if ((length(s) div 3)*3)<>length(s) then


 
PZ   (2005-02-26 17:37) [5]

Label1.Caption := FormatFloat("00 000 000.",18651432);

Получим  18 651 432


 
raidan ©   (2005-02-26 17:43) [6]

А в наши времена, когда Паскали были только в ДОСе с сине-желтой (1, 14) палитрой экрана....
>Antonn ©   (26.02.05 16:33) [2]
Добро пожаловать в 21 век.


 
Antonn ©   (2005-02-26 17:51) [7]


> Добро пожаловать в 21 век.

А че ваще?.. Ну дернулась рука, написал... Это плохо?


 
Anatoly Podgoretsky ©   (2005-02-26 18:10) [8]

PZ   (26.02.05 17:37) [5]
А зачем так грубо?
Label1.Caption := FormatFloat("00 000 000.",18651432);

Проще надо жить
Label1.Caption := FormatFloat(",",18651432);



Страницы: 1 вся ветка

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.072 c
1-1109497219
Sam Stone
2005-02-27 12:40
2005.03.13
Работа с экселем


3-1108376033
Jel
2005-02-14 13:13
2005.03.13
Ошибка "Field value required" при выполнении INSERT


1-1109242713
чяйник
2005-02-24 13:58
2005.03.13
Узнать наличие метода у объекта


1-1109537257
StarLit
2005-02-27 23:47
2005.03.13
Как в FileListBox сделать, чтобы он показывал файлы *.jpg и *.gif


1-1109396807
Dr. Genius
2005-02-26 08:46
2005.03.13
Была ли зарезервирована (хот кей) определенная клавиша