如何將此段VB程式碼翻成Delphi |
|
dennis
一般會員 ![]() ![]() 發表:9 回覆:5 積分:2 註冊:2002-03-13 發送簡訊給我 |
請教各位! 這段VB Code如何翻成Delphi Code? Dim Lbl As Object
Set Lbl = CreateObject ("xxx.xxxx") Dim Flds As Object C'Collection Dim Fld As Object
Dim Count As Integer
Dim FldName As String
Set Flds = Lbl.LabelFields
Count = Flds.Count
For I = 1 To Count
Set Fld = Flds(I)
FldName = Fld.Name
Fld.Value = abcdef?
Set Fld = Nothing
Next 煩請知道的人指導一下吧,感激不盡!
|
ddy
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
我僅依照Delphi 語法翻譯
紅色部份要加入
不知你是'xxx.xxxx'是什麼物件,若可告之則能測試是否正確無誤
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,comobj; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var Lbl :Variant; Flds:Variant;C//Collection Fld :Variant; Count :Integer; FldName : string; i:Integer; begin Lbl := CreateOleObject('xxx.xxxx'); Flds := Lbl.LabelFields; Count := Flds.Count; For i = 1 To Count do begin Fld := Flds[I]; FldName := Fld.Name; Fld.Value :='bcdef?'; Fld.Free; //這個我不確定,不知那個物件是否有此方法? //若無,又該如何釋放呢? //Fld:=NIL; 不知這樣可行嗎? end; end; end.噓~~~~~~沉思中… 發表人 - ddy 於 2002/08/07 00:35:56 發表人 - ddy 於 2002/08/07 00:36:54 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |