線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1106
推到 Plurk!
推到 Facebook!

這個自定義不可視為何是錯的?

答題得分者是:sryang
mp394681143
一般會員


發表:64
回覆:40
積分:20
註冊:2009-10-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-12-18 02:43:58 IP:61.136.xxx.xxx 訂閱
這個自定義不可視為何是錯的?錯在哪了?能給個完整代碼嗎?簡單點的!復雜看不懂的!

[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
Tstudent=class(Tobject);
name=string[20];
Tsex=(male,female);
sex=Tsex;
Tage=1960..1993;
age=Tage;
end;
var
Form1: TForm1;
student:Tstudent;
implementation
{$R *.DFM}
constructor Tstudent.create(Aowner:Tobject);
begin
inherited create(Aowner);
age:=1988;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
student:=Tstudent.create;
showmessage('我是1988年的');
end;

end.

[/code]

編輯記錄
mp394681143 重新編輯於 2009-12-18 02:47:02, 註解 無‧
mp394681143 重新編輯於 2009-12-18 03:33:21, 註解 無‧
GrandRURU
站務副站長


發表:240
回覆:1680
積分:1874
註冊:2005-06-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-12-18 08:28:02 IP:203.75.xxx.xxx 未訂閱
錯在哪邊?
這是做什麼用的?


===================引 用 mp394681143 文 章===================
這個自定義不可視為何是錯的?錯在哪了?能給個完整代碼嗎?簡單點的!復雜看不懂的!
......
sryang
尊榮會員


發表:39
回覆:762
積分:920
註冊:2002-06-27

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-12-18 09:55:46 IP:59.125.xxx.xxx 訂閱
[code delphi]
Tstudent=class(Tobject);
name=string[20];
Tsex=(male,female);
sex=Tsex;
Tage=1960..1993;
age=Tage;
end;
[/code]
你這樣寫當然是錯的,你試圖在類別中定義類別,應該把 Tsex 與 Tage 的定義拉到 Tstrdent 的外面
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/
系統時間:2024-03-29 13:52:31
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!