F
flyso
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.suiComboBox1Click(Sender: TObject);
begin
case suiComboBox1.ItemIndex of
0: begin
suiForm1.UIStyle:=WinXP;
end;
1: begin
suiForm1.UIStyle:=MacOS;
end;
2: begin
suiForm1.UIStyle:=Protein;
end;
end;
提示信息如下:
[Error] Unit1.pas(158): Undeclared identifier: 'WinXP'
[Error] Unit1.pas(161): Undeclared identifier: 'MacOS'
[Error] Unit1.pas(164): Undeclared identifier: 'Protein'
[Error] Unit1.pas(168): ';' expected but '.' found
[Error] Unit1.pas(170): Declaration expected but end of file found
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'
begin
case suiComboBox1.ItemIndex of
0: begin
suiForm1.UIStyle:=WinXP;
end;
1: begin
suiForm1.UIStyle:=MacOS;
end;
2: begin
suiForm1.UIStyle:=Protein;
end;
end;
提示信息如下:
[Error] Unit1.pas(158): Undeclared identifier: 'WinXP'
[Error] Unit1.pas(161): Undeclared identifier: 'MacOS'
[Error] Unit1.pas(164): Undeclared identifier: 'Protein'
[Error] Unit1.pas(168): ';' expected but '.' found
[Error] Unit1.pas(170): Declaration expected but end of file found
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'