Вывод в Edit

[Лидия_3]

Скажите пожалуйста почему в Edit выводит отрицательный ответ в виде "145,89-", как минус поставить наперед?

[TaLadno]

Как вводишь, так и выводит

Давай код в студию, а то голова болит и плохо экстрасенсирует

[BARNEY]

if pos(edit1.text,'-')<>0 then
begin
delete(edit1.text,pos(edit1.text,'-'),1);
edit1.text:='-'+edit1.text;
end

писал тут возможны опечатки

[Лидия_3]

procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
w:real;
begin
//расчёт определителя
w:=1;
for i:=1 to N do
w:=w*a[i,i];
Edit2.SelText:=format('%.3f',[w]);
Button4.Enabled:=False;
end;

[Serge_Bliznykov]

Лидия, а зачем Вам Edit2.SelText ?!
Может просто Text нужен?

Edit2.Text:=format('%.3f',[w]);

[Лидия_3]

спасибо)