Скачать: CL | DM;

округление ?   Найти похожие ветки 

← →
Officeman   (2006-02-07 12:43) [0]

var   u1rate:real;

Labe1.caption:=floattostr(u1rate-0.1);

Надо  округлить до десятичных.  смешно сказать, забыл я =)) и
в help-е немогу найти.   помню что надо писать типа  :4:1 это в паскале так было. ))) ЛЮДИ ПАМАГИТЕ !!! я меня склероз............. =(

---

← →
Ega23 ©   (2006-02-07 12:46) [1]

Str + F1

---

← →
ZeroDivide ©   (2006-02-07 12:46) [2]

FloatToStrF

---

← →
Desdechado ©   (2006-02-07 13:01) [3]

Format(...)

---

← →
Officeman   (2006-02-07 13:04) [4]

ЛЮДИ !!! не катит =)  у меня же VAR REAL
Пожалуйста приведите пример. Я немогу вспомнить синтаксис записи.

---

← →
Officeman   (2006-02-07 13:06) [5]

да да!!! это то что надо!
Format(...)

---

← →
Ega23 ©   (2006-02-07 13:06) [6]



Str procedure

Formats a string and returns it to a variable.

Unit

System

Category

string handling routines

procedure Str(X [: Width [: Decimals ]]; var S);

Description

Str procedure X to a string representation according to the Width and Decimals formatting parameters. The effect is like a call to Write except the resulting string is stored in S instead of being written to a text file.

X is an integer-type or real-type expression. Width and Decimals are integer-type expressions. S is a string-type variable or a zero-based character array variable if extended syntax is enabled.

Str example

function MakeItAString(I: Longint): string;

{ Convert any integer type to a string }
var
 S: string[11];
begin
 Str(I, S);
 Result:= S;
end;

begin

 Canvas.TextOut(10, 10, MakeItAString(-5322));
end;



---

← →
Гошик Кувшинов   (2006-02-07 13:07) [7]

real=double с какой-то там старой версии дельфей. и floattostrf работает хоть с real, хоть с чем, там при вызове фактический параметр преобразуется к типу формального т.к. типы совместимые

---

← →
Zeqfreed ©   (2006-02-07 13:10) [8]

Format("%8.3f", [FloatingPointVariable]);
+ раздел справки Format strings

---

← →
Officeman   (2006-02-07 13:16) [9]

Правильнее будет сказать. английский у меня хромает. он хороший - но почемуто хромает )).

Okey. You write:


Str example

function MakeItAString(I: Longint): string;

{ Convert any integer type to a string }
var
S: string[11];
begin
Str(I, S);
Result:= S;
end;

begin

Canvas.TextOut(10, 10, MakeItAString(-5322));


end;

Мене надо.  получить типа    90,8

Буду использовать  Format

---

← →
Ega23 ©   (2006-02-07 13:21) [10]


Str example

function MakeItAString(I: Longint): string;

{ Convert any integer type to a string }
var
S: string[11];
begin
Str(I:4:2, S);
Result:= S;
end;

begin

Canvas.TextOut(10, 10, MakeItAString(90.8));


сделай так и увидишь эффект. Хотя можно и через Format

P.S.

>
> Okey. You write:


OK. You wrote:

---

← →
Officeman   (2006-02-07 13:23) [11]

вот зараза. а я наобот пишу.    Str(S,I:4:2);
тороплюсь. =((

---

← →
evvcom ©   (2006-02-07 15:21) [12]

> он хороший - но почемуто хромает )).
>
> Okey. You write:

:)

---

← →
Officeman   (2006-02-07 17:21) [13]

u1.Caption:=Format("%8.2f", [(u1rate-0.1)]);

так убедительно. =) спасибо всем.

---

← →
Asail   (2006-02-07 20:52) [14]

А почему не RoundTo(u1rate-0.1,-1) т.е.
Labe1.caption:=floattostr(RoundTo(u1rate-0.1,-1));

---

← →
Zeqfreed ©   (2006-02-07 20:57) [15]

> А почему не

Потому что это менее читабельно и, скорее всего, более продолжительно по времени выполнения.

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.032 c