Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Вниз

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

 
Генри ©   (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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.046 c
6-1104655758
Ivnish
2005-01-02 11:49
2005.03.13
Синхронизация времени


3-1107858771
Manfred8
2005-02-08 13:32
2005.03.13
TClientDataSet.Locate не работает с кириллицей?


3-1108122595
denis24
2005-02-11 14:49
2005.03.13
проблема с firebird


14-1109011424
Doxygen
2005-02-21 21:43
2005.03.13
Объять необъятное


1-1109548060
Flash_chnu
2005-02-28 02:47
2005.03.13
Динамическая компонента TImage





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский