var
V: Variant;
vFieldNames: string;
begin
vFieldNames := StringRelpace(Trim(Table1.FieldList.Text), #13#10, ';', [rfReplaceAll]);
V := Table1[vFieldNames];
{V[0] := 20;}
Table1.Edit;
Table1[vFieldNames] := V;
Table1.Post;
end;
V: Variant;
vFieldNames: string;
begin
vFieldNames := StringRelpace(Trim(Table1.FieldList.Text), #13#10, ';', [rfReplaceAll]);
V := Table1[vFieldNames];
{V[0] := 20;}
Table1.Edit;
Table1[vFieldNames] := V;
Table1.Post;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货