округление ?

← →
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);
тороплюсь. =((

> он хороший - но почемуто хромает )).
>
> 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));

> А почему не

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

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