DBGrid арифметические функции

[Stilet]

Ну... Депозит меня давно не любит. Гражданство ему не нравится )

[toxich]

Специально для тебя -http://www.sendspace.com/file/ng83uw другой файлообменник))
Плиз помоги уже!))

[Stilet]

Специально для тебя

Наш форум снабжен передатчиком файлов. Попрошу в следующий раз обойтись без файлосвалок. Неудобно же...

Жуткий код... ДАвно такой бяки не видел. Без обид конечно, но тебе еще учиться и учиться

Основные моменты:
1) Поля на русском поз BDE... Бр-р-р... Это ты в Фокспро можешь так изголяться, BDE от этого в рыгу может сьездить

2) Код определения полей:

procedure MyDisplay();
var i,ii: Integer;
    F: TFieldDef;
    Ln,D: String;
begin

  fldm:=TFloatField.Create(Form1);   with fldm do begin FieldName:='m';  DataSet:=Form1.Table1; end;
  fldk:=TFloatField.Create(Form1);   with fldk do begin FieldName:='k';  DataSet:=Form1.Table1; end;
  fldtr:=TFloatField.Create(Form1);  with fldtr do begin FieldName:='t';  DataSet:=Form1.Table1; end;


 fld:=TFloatField.Create(Form1);
  with fld do begin FieldName:='itogo'; Calculated:=true; DataSet:=Form1.Table1; end;

 Form1.Table1.Open;
end;

Itogo - вычисляемое поле, получающее свой результ здесь:

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
 fld.AsInteger:=fldm.AsInteger+fldk.AsInteger+fldtr.AsInteger;
end;

Смотри проект и мотай на ус - Такие вещи лучше делать через SQL. Проще

[toxich]

Спасибо!)) Выручил капец как))

[toxich]

подскажи, а как сделать чтобы можно было умножить не целое число, а число с отстанком например 3,5. у меня программа сразу сбрасывает все и вместо 3,5 вписывает целую часть - 3. Как поменять?

[Stilet]

AsInteger видишь? А теперь не поленись - почитай что это за свойство, и какие еще есть свойства приведения типа значений полей БД.

[toxich]

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

var
a:real;
begin
a:=Strtofloat(edit1.Text)
fld.AsInteger:=fldm.AsInteger+fldk. AsInteger+fldtr.AsInteger*a;

А вот пробывал менят за места AsInteger поставить другое свойство и не хрена не получается, там только Astring, AsFloat, AsVariant.
У меня еще проблемма в том, что даже в DBGrid не дает возможности ввести не целое чесло, само тут же переделывает из 34,5 переделывает в 34. Как сделать чтобы можно было ввести я не понимаю!

[Stilet]

там только Astring, AsFloat, AsVariant.

Ну? Вотъ какое из них нужно для вещественных?

само тут же переделывает из 34,5 переделывает в 34.

Еще бы...
Ты DBF чем создавал? Я вообще был в шорохе от того что тип полей в твоей исходной таблице строковый. Поэтому сменил типы на NUMERIC(20,0). Поэтому он и отсекает дробную часть. поставь скажем (10, 5) чтоб хотя бы 5 цифр было после запятой в той проге, которой ты DBF-ку создавал для каждого поля.

[toxich]

АААА ! все! спасибо!)))