Devart Forums

Posted: **Thu 19 May 2005 10:46**

Hi
I'm using delphi5 Ent, MyDac 3.50.0.19

I'd a field where datatype set to ftinteger in my virtual table. It has no effect when I assigned value for it.

with vtsort do begin
edit;
fieldbyname('PAY').value := 1;
post;
end;

The value of pay remain as 0. But if I try to assign as

with vtsort do begin
edit;
fieldbyname('PAY').AsInteger := 1;
post;
end;

Then it work. Why?

Posted: **Fri 27 May 2005 08:42**

We cannot reproduce your problem with Delphi 5 (Build 5.62) Ent, MyDac 3.50.0.19 . Please try the following

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
  VirtualTable1: TVirtualTable;
  f: TFieldDef;
begin
  VirtualTable1 := TVirtualTable.Create(nil);
  with VirtualTable1 do begin
    f := FieldDefs.AddFieldDef;
    f.Name := 'PAY';
    f.DataType := ftInteger;
    f := FieldDefs.AddFieldDef;
    f.Name := 'f2';
    f.DataType := ftString;
    Open;
    Edit;
    FieldByName('PAY').Value:=1;
    FieldByName('f2').Value:=1;
    Post;
  end;
  DataSource1.DataSet := VirtualTable1;
end;

Devart Forums

ftinteger field doesn't work

ftinteger field doesn't work