[code delphi]
for i:= 0 to MyAdoquery.Parameters.Count -1 do memo1.Lines.Add(retnull(MyAdoquery.Parameters[i].Name ' ' MyAdoquery.Parameters.Items[i].Value));

function TAMFrame.retnull(s: variant): string;
var ss:string;
begin
if (s =null) then result := ''
else begin
if (VarType(s) =varDouble ) then ss := floattostr(s)
else ss:= VarToStr(s);
result := VarToStr(s);
end;
[/code]
因為資料庫存取上有問題，所以想列出所有的Parameters的變數名及值
卻遇上了：Could not convert variant of type (OldStr) into type (Double) 的錯誤？
該如何轉換成String 輸出到memo 上呢？

Hi, retnull() 有判斷 null，但沒有用，因為您傳入 (MyAdoquery.Parameters[i].Name +'    ' + MyAdoquery.Parameters.Items[i].Value) 給它，這個引數不會是空值，至少那幾個空格不是空值。
要判斷 MyAdoquery.Parameters.Items[i].Value 才對，它可能是 null 值，應該不會自動轉換成空字串，所以出錯了。

原來是括號放錯邊....
感謝提醒，不然真不知道這盲點要多久才會看到