小弟想知道如何取得Tquery中的Fields是什麼type,從而做出自動對應效果～

好像這樣：

if query1.(不知道用什麼method)＝ {Field的type} then
query1.fields[0].Asstring:=edit1.text;
else
query1.fields[0].Asinteger:=strtoint(edit1.text);

因為edit1.text回傳的是只有string type，如果遇上用integer type的field，便要用strtoint先轉type,
有沒有法子先知道fields，本身的type呢？好讓先做手腳～

請師兄們幫小弟想想。

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

順帶一問：～

query1.Params.AsAsVariant:=edit1.text; //是不可能的，但又有沒有可能可以用到呢？

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

不好意思找到了：～
query1.Params[0].Value
Value就是AsVariant type

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

不好意思小弟第一個問題還未解決，請各位幫小弟想想～謝謝

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var i :integer;
begin
for i := 0 to query1.FieldCount-1 do begin
if Query1.Fields[i].DataType =ftString then begin
query1.fields[0].Asstring:=edit1.text;
end
else if ADOQuery1.Fields[i].DataType =ftInteger
query1.fields[0].Asinteger:=edit1.text;
else if {請查help datatype}
end;
end;
end;[/code]

------
努力會更接近成功

編輯記錄

用這個方法似乎可行，但小弟用的是DBE。。。怎麼辦呢？
===================引 用 pceyes 文 章===================
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var i :integer;
begin
for i := 0 to adoquery1.FieldCount-1 do begin
if ADOQuery1.Fields[i].DataType =ftString then begin
adoquery1.fields[0].Asstring:=edit1.text;
end
else if ADOQuery1.Fields[i].DataType =ftInteger
adoquery1.fields[0].Asinteger:=edit1.text;
else if {請查help datatype}
end;
end;
end;[/code]

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

bde和ado在field.datatype操作方式一樣，請查一下help。

------
努力會更接近成功

編輯記錄

我記得 (好像用過) 直接用

query1.fields[0].Asstring:=edit1.text;

就可以了, 不需要檢查類別.

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.