http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=48121
使用方式:
代碼: 選擇全部
procedure Tform1.Button4Click(Sender: TObject);
var
wstr: Array[0..2048] of WideChar;
ws: Widestring;
begin
GetPrivateProfileStringW('MY Section', 'A3', '', PWideChar(@wstr), 2048, 'c:1.ini');
ws := wstr;
ADOQuery1.SQL.Text := 'Insert Into test (F1, F2, F3) values (:v1, :v2, :v3)';
ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text, true);
//... assign v1, v2 ..
ADOQuery1.Parameters.ParamByName('v3').DataType := ftWideString;
ADOQuery1.Parameters.ParamByName('v3').value := ws;
ADOQuery1.ExecSQL;
end;