請教各位！ 這段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 煩請知道的人指導一下吧，感激不盡！

我僅依照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