Форум: "Основная";
Текущий архив: 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.038 c