Kod: Tümünü seç
with adoTablo do
begin
Text := FloatToStr((FieldByName('Alan1').AsInteger + FieldByName('Alan2').AsInteger) / 2);
end;
vesselam.
Kod: Tümünü seç
with adoTablo do
begin
Text := FloatToStr((FieldByName('Alan1').AsInteger + FieldByName('Alan2').AsInteger) / 2);
end;
Kod: Tümünü seç
with DataSet do
begin
FieldByName('Ortalama').AsFloat := (FieldByName('Alan1').AsInteger + FieldByName('Alan2').AsInteger) / 2;
end;