Архив форумов ЦИТФорума

[dan]

Помогите плиииззз
Во время арифметических действий на форме после запятых появляется огромное количество знаков, как его можно уменьшить хотя бы до трех?
Заранее благодарен

[swordfish]

Не помню точно, давно с Дельфи не общался, но вроде, на паскале, что-то вроде такого:

var
j float;
begin
Writeln(j:8:3);
// Что-то восем цифр из них три после запятых
end;

Правда я не уверен.

[anthony]

-

[Valera]

label.caption:=format('%8.3f,[double]);

[Leonid]

Можно попробовать использовать ф-ю formatfloat
procedure TForm1.Button1Click(Sender: TObject);
var
x : Double;
i : integer;
begin
Randomize;
i := random(100);
x := (i/12.3*3.25*i;
Form1.Caption := FormatFloat('0.##',x);
end;