with adotable1 do
begin
adotable1.active:=true;
bianliang:=adotable1.fieldbyname('memo').value;
adotable1.fieldbyname('memo').value:=bianliang;
end;
begin
adotable1.active:=true;
bianliang:=adotable1.fieldbyname('memo').value;
adotable1.fieldbyname('memo').value:=bianliang;
end;
s :string;
begin
s: = Adotable.fieldbyname('field').asstring;//读 Adotable.fieldbyname('field').asstring :=s//写end;直接当字符串操作就可以。