Форматирование чисел

[Gorin]

Доброе утро!
Имеется StringGrid. Мне надо, что бы числа в нём разбивались по порядку и имели только два знака после запятой. Пытаюсь использовать Format Float
В событие OnSetEditText

begin
if Pos(' ',StringGrid1.Cells[StringGrid1.Col,StringGrid1.row])>0 then begin;
prbl:=StringGrid1.Cells[StringGrid1.Col,StringGrid1.row];
while Pos(' ',prbl)> 0 do Delete(prbl,Pos(' ',prbl),0);
StringGrid1.Cells[StringGrid1.Col,StringGrid1.row]:=prbl;
end;
....
//Вычисления
....
if Length(StringGrid1.Cells[ACol,ARow])>0 then
begin
frm:=StrToFloat(StringGrid1.Cells[StringGrid1.Col,StringGrid1.row]);
StringGrid1.Cells[ACol,ARow]:=FormatFloat('###,###.00;',frm);
end;

После этого не получается ввести больше одного знака в ячейку.

[SERG1980]

procedure TForm1.StringGrid1GetEditMask(Sende r: TObject; ACol,
ARow: Integer; var Value: String);
begin
Value:='!0.00;1;';
end;

[Gorin]

Спасибо, только в таком случае, ввести можно только 1 знак до запятой и два после. К сожалению это меня не устраивает Может я и не прав, но наксолько я понял Маска имеет фиксированное кол-во знаков, а я не знаю какие числа будут вводиться. Более того, проблем с конвертацие становиться еще больше

[Pitbull]

i:=FormatFloat('#.##',g);

[Gorin]

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

i:=FormatFloat('#.##',g);

Хм, проблема осталась, только теперь и двух знаков после запятой нету.

[Pitbull]

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

Хм, проблема осталась, только теперь и двух знаков после запятой нету.

procedure TForm1.Button1Click(Sender: TObject);

begin
frm:=123.145666;
StringGrid1.Cells[1,1]:=formatFloat('#.##',frm);
end;
end.

результат округляется.... до 2-го разряда после запятой...
ну как я понимаю єту команду formatFloat();
сначала указіваешь что добавлять в старший разряд ,если будет переполнение, потом количество разрядов, а потом количество после запятой...Например:
frm:=1523.145666;
StringGrid1.Cells[1,1]:=formatFloat('33,#####.##',frm);
відаст: 331 523.15
если написать просто formatFloat('#,#.##',frm); то будет само разбивать на разряді.... например: 1333444555.12345 будет: 1 333 444 555.12

[Gorin]

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

[Pitbull]

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

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

ааа ну EditMask наверное..Извини...

ага...а такого нет там=)
ща посомтрю....У сотрудниці днюха... гоню

[Gorin]

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

ааа ну EditMask наверное..Извини...

Нет, EditMask нету. В том-то и дело. Вроде, по моим соображенимя с кодом все нормально, однако получается ограничение на один символ.

[Pitbull]

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

Нет, EditMask нету. В том-то и дело. Вроде, по моим соображенимя с кодом все нормально, однако получается ограничение на один символ.

а если его в другой компонент вівести, то значение не обрезается?
ну СтрингГриду всеравно что отображать, он отображает стринговіе значения....
Т.ч тут нужно форматировать значение значения(float) - frm...