这段程序错在哪?

sanno 2004-08-11 09:36:21
unit demoform;

interface

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

type
TForm1 = class(TForm)
Shape1: TShape;
ColorDialog1: TColorDialog;
Button1: TButton;
Button2: TButton;
Button3: TButton;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Shape1.Shape:= stRectangle; 
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Shape1.Shape:= stRoundRect; 
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Shape1.Shape:= stEllipse;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 ColorDialog1.Execute;

  Shape1.Brush.Color:= ColorDialog1.Color;
end;

end.

菜鸟问题,请帮忙指点.谢谢!
...全文
65 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
getit911 2004-08-12
  • 打赏
  • 举报
回复
代码里有中文全角的' '空格
primeP 2004-08-12
  • 打赏
  • 举报
回复
检查一下你代码中是否有非法字符。
zijida 2004-08-12
  • 打赏
  • 举报
回复
小问题,你的代码段里有不可识别的字符,估计跟你Ctrl+V的源头有关,你是从网页上直接切来的吧?
sanno 2004-08-12
  • 打赏
  • 举报
回复
初入DELPHI行,小事无人帮,悲~
sanno 2004-08-11
  • 打赏
  • 举报
回复
[Error] demoform.pas(36): Illegal character in input file: ' ' ($A1A1)
[Error] demoform.pas(41): Illegal character in input file: ' ' ($A1A1)
[Error] demoform.pas(51): Illegal character in input file: ' ' ($A1A1)
[Error] demoform.pas(53): Illegal character in input file: ' ' ($A1A1)
[Fatal Error] sample.dpr(5): Could not compile used unit 'demoform.pas'
数字蛋糕 2004-08-11
  • 打赏
  • 举报
回复
具体是什么错误?
sanno 2004-08-11
  • 打赏
  • 举报
回复
Shape1.Shape:= stRectangle; 
运行到这的时候提示错误
kaguo 2004-08-11
  • 打赏
  • 举报
回复
这样看不出来...

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧