全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1104
推到 Plurk!
推到 Facebook!

月光Delphi Tip 1 - array and record

 
a6475
高階會員


發表:67
回覆:230
積分:154
註冊:2002-09-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-07-23 18:24:45 IP:211.23.xxx.xxx 未訂閱
 
record:記錄,可以將很多相關的變數用比較有意義的名稱集合起來,比如一個學生資料可以
這樣宣告:
    AStudent : record
      SN : Integer; //學號
      Name : String; //姓名
      SEX : String; //性別
      Math : Byte; //數學成績
    end;
而使用時,就可像
AStudent.SN := 91131010;
AStudent.Name := '李小明';
這樣就不需要為了一個學生,宣告太多難以管理的變數。
如果今天要記錄全班50個學生的資料呢?
新手的作法可能是用一大推距陣
    AStudentSN : array [0..49] of Integer;
    AStudentName : array [0..49] of String;
    AStudentSEX : array [0..49] of String;
    AStudentMath : array [0..49] of Byte;
較好的做法是先用type宣告一個record型態,然在在使用距陣
teyp TStudent = record            //一個學生型態
       SN : Integer; //學號
       Name : String; //姓名
       SEX : String; //性別
       Math : Byte; //數學成績
     end;
var aryStudent : array [0..49] of TStudent;
使用方法
  aryStudent[0].SN := 91131010; //設定第一個學生的學號
這樣就算增加欄位(如 英文成績),也只要修改TStudent類別即可。
而且寫較長的程式碼也看來就易讀。    array  record 是我很喜歡用的方法,不用Create物件,用完就可以亂丟(不用Destroy)用途也很廣。    市面上的書,也幾乎沒有教像這樣的用法
大家可以參考看看。
..-----------βλμε------------..
◎Oo月夜 光明 藍更愁oO◎
藍調月光城v4:http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調.月光):http://mypaper2.ttimes.com.tw/user/a6475
------
月夜 光明 藍更愁
系統時間:2024-05-18 14:47:39
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!