小编HP *_*ner的帖子

我是Delphi的新手.我有一个Delphi XE2程序.我ComboBox1在表单创建过程中创建如下:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.BeginUpdate;
  ComboBox1.Items.Clear;
  ComboBox1.Items.Add('BBBB');
  ComboBox1.Items.Add('DDDD');
  ComboBox1.Items.Add('AAAA');
  ComboBox1.Items.Add('CCCC');
  ComboBox1.Items.EndUpdate;
end;   

......这里是ComboBox1属性:

Sorted = True
OnChange = ComboBox1Change
OnDropDown = ComboBox1DropDown

我的要求是在项目的选择,做了一些工作,使用case of,记住,我不知道ItemIndex的AAAA ...... DDDD等.

所以我尝试了以下方法:

case ComboBox1.ItemIndex of ComboBox1.Items.IndexOf('AAAA'):
  begin
    //
    //
  end
end;

case ComboBox1.ItemIndex of ComboBox1.Items.IndexOf('BBBB'):
  begin
    //
    //
  end
end;

case ComboBox1.ItemIndex of ComboBox1.Items.IndexOf('CCCC'):
  begin
    //
    //
  end
end;

case ComboBox1.ItemIndex of ComboBox1.Items.IndexOf('DDDD'):
  begin
    //
    //
  end
end;

我的项目没有编译.它给出了如下错误:

[DCC Error] Unit1.pas(....): E2026 …

我有一个包含以下资源的 Delphi XE 项目：

我已经使用function LoadResourceFont并尝试了以下代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function LoadResourceFontByName( const ResourceName : string; ResType: PChar ) : Boolean;
var
  ResStream  : TResourceStream;
  FontsCount : DWORD;
begin
  ResStream := TResourceStream.Create(hInstance, ResourceName, ResType);
  try
    Result  := (AddFontMemResourceEx(ResStream.Memory, ResStream.Size, nil, …