1樓:網友
vartostr()
如果返回的是乙個數耐明碧組的話。
varutemppoint: pointer;
uoutarr: array[1..6] of string;//假設返回的是1維陣列有6個元素。
beginutemppoint :=vararraylock(返回的olevariant變數);/鎖定輸出昌舉變體陣列。
trymove(utemppoint^,uoutarr[1],6*sizeof(string));
finally
vararrayunlock(utemp);/解鎖。
end;/槐毀這時uoutarr[1]..uoutarr[6]裡面都是string型別的資料了。
showmessage(uoutarr[1]);
end;
2樓:
varutemppoint: pointer;
uoutarr: array[1..6] of string;//假設返回的是1維陣列有6個元素。
beginutemppoint :=vararraylock(返回的olevariant變數);/唯備猛鎖定輸出變體陣列。
trymove(utemppoint^,uoutarr[1],6*sizeof(string));
finally
vararrayunlock(utemp);/解鎖。
end;/這時uoutarr[1]..uoutarr[6]裡滾扮面指橋都是string型別的資料了。
showmessage(uoutarr[1]);
end;
請問delphi裡面olevariant類是幹嘛的呢
3樓:網友
是與windows系統的是ole軟體進行軟體呼叫、資料交換用的。最常見的例子是,在delphi裡呼叫ms office裡面的軟體,如word、execel等。衝搭這猛埋裡面的資料類枝判螞型基本上都需要使用olevariant,或者variant。
delphi olevariant 記憶體洩露怎麼解決
4樓:建俊哲
乙個select標籤裡面只能寫一條sql語句,如果想乙個select標籤執行多條sql語句的話,用儲存過程可以早租解決,笑橡但陸公升兆是需要實體類該怎麼編寫才能接收到資料。
怎麼將olevariant轉為string
5樓:果然夠
val(string)就皮森迅握行了例子private sub command1_click()dim str as stringstr = 123"燃昌畝dim i as integeri = val(str)print iend sub
delphi datasnap 三層
6樓:
那就把olevariant換成widestring試試。
為何不用datasnap或者webservice,以後擴充套件到移動應用更方便。
7樓:人間雜貨店
是不是傳的資料型別有問題,實在不行就傳json
delphi高手來~看看,瞧瞧!
8樓:網友
你註釋不是已經很清楚了嗎,你程式中缺少某個方法中的某些引數。
把**貼出來別人才能解決呀。
9樓:
所謂常見錯誤提示的資訊也是很多,建議你安裝乙個金山詞霸之類的軟體,然後在開發過程積累你的程式英語的單詞量。
求助改善delphi呼叫olevariant出現「被呼叫方拒絕接收呼叫」
10樓:網友
olevariant 資料型別,通常是在使用 com (activex)技術時會用到的一種資料型別。這種型別可以稱之為 變體 型別,可以是 string, integer, float 等等。
出現「被呼叫方拒絕接收呼叫」這種型別的錯誤,通常是與系統中的 com 元件進行通訊時出現的,其原因有多種,比如:建立 excel 應用物件時,excel 沒有準備好(或正在忙碌)。
由於用 ole 方式建立物件引用,在 delphi 裡不方便除錯,出錯誤通常大多只會在執行期才會出現,建議你可以先用 vbs 指令碼或是 vba 指令碼先把主要的功能編寫測試一下,如果執行無錯,再移植到 delphi **裡(如果是用 createoleobject 方式進行,其**相差不大)。
明白delphi的看看,delphi
工程名,使用單元,編譯所有資源命令。thandle 控制代碼。createfile 建立檔案。nil 沒有指標。program minisize program 是關鍵字,代表這是一個delphi程式,所有delphi工程都以program開始,minisize是這個程式的名稱。useswindows ...
明白delphi的來看看
activecontrol 屬性。返回擁有焦點的控制元件。當窗體被引用時,如在 中,如果被引用的窗體是活動的,activecontrol 指定將擁有焦點的控制元件。在設計時是不可用的 在執行時是隻讀的。語法。object 所在處代表一個物件表示式,其值是 應用於 列表中的一個物件。說明。可以使用 activ...
關於delphi和sql的問題
var k string beginwith adoquery1 dobegin close update fj set fpfpc1 k where id 1 execsql update insert delete的時候都要用execsql,select的時候用open end end vark...