Просчет и Едит

[4321]

У меня простой просчет тоисть взял едит1 прибавил едит2 а ответ написал в едит3, так вот проблема как записать в едит3 ответ у которого после запиой будут только две цифры а не десять
помогите пожалуйста!!!

[фЁдОр]

Ваш код где?

[4321]

var
// avansis gamoTvla
    xax:  real;
    av1:  real;
    av2:  real;
    av3:  real;
    ito:  real;
//daklebuli saatebis gamoTvla
    xax1:   real;
    tve:    real;
    gac:    real;
    ert:    real;
    itog:   real;
//damatebiti saatebis gamoTvla
    xax2:    real;
    tve2:    real;
    dam:     real;
    ert2:    real;
    itogi:   real;
//saboloo gamotvla
    adx11:    real;
    dx11:     real;
    dsx11:    real;
    summ11:   real;
begin
    xax  := StrToFloat(DBEdit2.Text); // ?????? ???????? ??????
    av1  := StrToFloat(DBEdit3.Text);
    av2  := StrToFloat(DBEdit4.Text);
    av3  := StrToFloat(DBEdit5.Text);
    // 2 nawili
    xax1  := StrToFloat(DBEdit2.Text); // ?????? ???????? ??????
    tve  := StrToFloat(Edit2.Text);
    ert  := StrToFloat(Edit4.Text);
    gac  := StrToFloat(DBEdit6.Text);
    // 3 nawili
    xax2  := StrToFloat(DBEdit2.Text); // ?????? ???????? ??????
    tve2  := StrToFloat(Edit2.Text);
    ert2  := StrToFloat(Edit4.Text);
    dam   := StrToFloat(DBEdit7.Text);
    // gamotvla da matematika
    ito   := xax - av1 - av2 - av3;
    itog  := xax1 / tve / ert * gac;
    itogi := xax2 / tve2 / ert2 * dam;
    // pasuxebi da sevseba
    Edit1.Text :=
       '' + FloatToStr(ito) + '';

    Edit3.Text :=
       '' + FloatToStr(itog) + '';

    Edit5.Text :=
       '' + FloatToStr(itogi) + '';
/////////////////////////////////////////////////////////////
// 4 nawili
    adx11  := StrToFloat(Edit1.Text); // ?????? ???????? ??????
    dx11   := StrToFloat(Edit3.Text);
    dsx11  := StrToFloat(Edit5.Text);

summ11  := adx11 - dx11 + dsx11;

    Edit8.Text :=
       '' + FloatToStr(summ11) + ''
end;

[alex_fcsm]

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

т у которого после запиой будут только две цифры а не десять
помогите пожалуйста!!!

При арифметических операциях используйте функцию RoundTo(округляет до указанной точности из модуля Math
RoundTo(значение,точность);
Например x:=RoundTo(summa,-2);

[Stilet]

Все еще проще:

Edit3.Text :=Format('%5.3f',[itog]);

[4321]

Stilet что означает в конце

[itog]);

[SERG1980]

formatfloat('0.00',itog)

[Stilet]

Это массив значений которые нужно отформатировать.
См. Хелп там описано все.

[4321]

а подробней, я не понел а который нужно форматировать? и как искать в хелпе?

[Stilet]

я не понел а который нужно форматировать?

Теперь я не понял. Там же у тебя один itog.
Короче см. что написал SERG1980.