Главная страница
    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.039 c
14-1109061668
__max__
2005-02-22 11:41
2005.03.13
Программы для настрйоки гитары.


3-1108477912
}|{yk
2005-02-15 17:31
2005.03.13
Работа с нулем в FB 1.5


1-1109342641
Goga
2005-02-25 17:44
2005.03.13
Свойство объекта


6-1105024458
Начинаюший2
2005-01-06 18:14
2005.03.13
Как програмно узнать что началось подключение к интернету?


1-1109237398
Vizitor
2005-02-24 12:29
2005.03.13
Переключение раскладки клавиатуры





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