Delphi以不同的单元枚举(Delphi Enums in Different Units)

 所以我正在使用Delphi来使用SOAP服务，但努力设置枚举值。 以下是枚举声明： 
 
Extension = (pdf, xls, txt, xlsx, docx, doc, xml, png, jpg, gif);
 
 一旦导入WSDL，这将在Delphi单元中进行声明。 现在我的应用程序正在使用这个单元，我尝试了下面的选项，但无济于事。 
 
 选项1 :(不编译，未声明标识符：'pdf'） 
 
uses SOAPAPI_Unit
type
   Extension = SOAPAPI_Unit.Extension;
....
procedure TForm1.Button2Click(Sender: TObject);
var
   Ext : Extension;
begin
   Document.Extension := pdf;
end;
 
 选项2 :(编译，但我得到一个服务器错误，说对象ref没有设置） 
 
uses SOAPAPI_Unit

....
procedure TForm1.Button2Click(Sender: TObject);
var
   Ext : SOAPAPI_Unit.Extension;
begin
   Document.Extension := Ext(0);
end;
 
 选项3（在主.pas文件中重新声明Enum，但后来我得到不兼容的类型：'SOAPAPI_Unit.Extension'和'formMain.Extension'） 
 
uses SOAPAPI_Unit
type
   Extension = (pdf, xls, txt, xlsx, docx, doc, xml, png, jpg, gif);
....
procedure TForm1.Button2Click(Sender: TObject);
var
   Ext : Extension;
begin
   Document.Extension := pdf;
end;
 
 选项4（编译，但从服务器获取对象引用没有设置错误） 
 
uses SOAPAPI_Unit
....
procedure TForm1.Button2Click(Sender: TObject);
var
   Ext : Extension;
begin
   Document.Extension := Ext.pdf;
end;

So I'm consuming SOAP services using Delphi, but struggling to set the value of an enum. Below is the enum declaration:
 
Extension = (pdf, xls, txt, xlsx, docx, doc, xml, png, jpg, gif);
 
This is declared in the unit Delphi imports once you import the WSDL. Now my app is using this unit, and I've tried below options, but to no avail.
 
Option 1: (Doesn't compile. Undeclared identifier: 'pdf')
 
uses SOAPAPI_Unit
type
   Extension = SOAPAPI_Unit.Extension;
....
procedure TForm1.Button2Click(Sender: TObject);
var
   Ext : Extension;
begin
   Document.Extension := pdf;
end;
 
Option 2: (Compiles, but I get a server error saying object ref not set)
 
uses SOAPAPI_Unit

....
procedure TForm1.Button2Click(Sender: TObject);
var
   Ext : SOAPAPI_Unit.Extension;
begin
   Document.Extension := Ext(0);
end;
 
Option 3 (Re-Declare the Enum in the main .pas file, but then I get Incompatible types: 'SOAPAPI_Unit.Extension' and 'formMain.Extension')
 
uses SOAPAPI_Unit
type
   Extension = (pdf, xls, txt, xlsx, docx, doc, xml, png, jpg, gif);
....
procedure TForm1.Button2Click(Sender: TObject);
var
   Ext : Extension;
begin
   Document.Extension := pdf;
end;
 
Option 4 (Compiles, but get object ref not set error from server)
 
uses SOAPAPI_Unit
....
procedure TForm1.Button2Click(Sender: TObject);
var
   Ext : Extension;
begin
   Document.Extension := Ext.pdf;
end;

原文：https://stackoverflow.com/questions/41694391