procedrue getdata(ss:tstrings);
begin
adoquery4.edit;(adoquery4.Append)
adoquery4.FieldByName('wtdw').AsString:=ss[1];
adoquery4.FieldByName('xmmc').AsString:=ss[2];
..................
adoquery4.post;
end;
..........................................
var
ss:tstrings;
begin
ss:=tstringlist.create;
ss.add(edit1.text);
.....................
getdate(ss);
end;
begin
adoquery4.edit;(adoquery4.Append)
adoquery4.FieldByName('wtdw').AsString:=ss[1];
adoquery4.FieldByName('xmmc').AsString:=ss[2];
..................
adoquery4.post;
end;
..........................................
var
ss:tstrings;
begin
ss:=tstringlist.create;
ss.add(edit1.text);
.....................
getdate(ss);
end;