кол-во знаков после запятой в TEdit

[Petrucci]

Подскажите как можно регулировать количество знаков после запятой в выводимом числе, кол-во знаков вводиться в диапазоне допустим от 1 до 20

[Stilet]

Попробуй выставь CurrencyDecimals в нужное число знаков.
Хотя помоему нужно будет всетки свой анализатор писать, мол типа
В OnKeyPress Эдита найти позицию точки и отнять ее от длины введенной строки, и если больше чем надо то запретить ввод после точки

[_Engine_]

Используй TMaskEdit

[Petrucci]

Сообщение от Stilet

Попробуй выставь CurrencyDecimals в нужное число знаков.
Хотя помоему нужно будет всетки свой анализатор писать, мол типа
В OnKeyPress Эдита найти позицию точки и отнять ее от длины введенной строки, и если больше чем надо то запретить ввод после точки

я так и сделал вот

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var n:integer;
begin
n:=form1.SpinEdit1.Value;
if Pos(',',edit1.Text) <> 0 then begin
if Length(edit1.Text)- Pos(',',edit1.Text) > (n-1) then Key := Chr(0);
end;
end;

но тут вопрос не для вводимых, а для выводимых!

[Petrucci]

Сообщение от _Engine_

Используй TMaskEdit

можно поподробней?

[Stilet]

не для вводимых, а для выводимых!

ТОгда функой format пользуй, она форматит выводимое как ей скажешь

[Petrucci]

Сообщение от Stilet

ТОгда функой format пользуй, она форматит выводимое как ей скажешь

если ты про функцию formatfloat, то это меня и интерисует как реализовать возможность выбора кол-ва отображаемых цыфр после запятой выведеного числа!

[Terran]

Можно сделать так:

uses
Math,...

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=FloatToStr(RoundTo(StrT oFloat(Edit1.Text),0));
end;

Значением 0 (...-1, ..1...) ну и так далее - можешь устанавливать знаки после запятой или как их округлять.

[Petrucci]

Сообщение от Terran

Можно сделать так:

uses
Math,...

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=FloatToStr(RoundTo(StrT oFloat(Edit1.Text),0));
end;

Значением 0 (...-1, ..1...) ну и так далее - можешь устанавливать знаки после запятой или как их округлять.

спасибо, заработало!

[Stilet]

Я скажу так:
Допустим есть Эдит куда я вводу число, лабел куда я хочу вывести это число отформатированным как надо, и СпинЭдит которым я на ходу устанавливаю количество знаков после запятой тогда:

Label1.Caption:=Format('%5.'+inttostr(UpDown1.Position)+'f',[StrToFloatDef(Edit1.Text,0)])

Даст тебе нужный эффект. Яснышко?