Главная страница
    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.034 c
1-1109239970
Начинающий2
2005-02-24 13:12
2005.03.13
Access violation at addres.


14-1108888843
Ломброзо
2005-02-20 11:40
2005.03.13
Быков-quickly: взгляд-71


3-1108018605
Mars
2005-02-10 09:56
2005.03.13
Как сделать выборку из базы с помощью SQL,


3-1107960357
denis24
2005-02-09 17:45
2005.03.13
Связанные таблицы


3-1108144152
Oleg_
2005-02-11 20:49
2005.03.13
как после открытия query указать что некоторое поле вычисляемое?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский