D delphi6 Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-30 #1 哪位富哥给一个类似于c++中结构数组的pascal 记录的例子，包括定义和使用。谢谢！
N notnoname Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-30 #3 type TPoint = record X, Y: Single; end; TVector = array[0..1] of TPoint; TMonth = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec); TDate = record D: 1..31; M: TMonth; Y: 1900..1999; end; 这方面Pascal比C++强多了！
type TPoint = record X, Y: Single; end; TVector = array[0..1] of TPoint; TMonth = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec); TDate = record D: 1..31; M: TMonth; Y: 1900..1999; end; 这方面Pascal比C++强多了！
金 金圣叹 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-01 #4 type TPoint = record X, Y: Single; end; TVector = array[0..1] of TPoint; TMonth = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec); TDate = record D: 1..31; M: TMonth; Y: 1900..1999; end; 这方面Pascal比C++强多了！
type TPoint = record X, Y: Single; end; TVector = array[0..1] of TPoint; TMonth = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec); TDate = record D: 1..31; M: TMonth; Y: 1900..1999; end; 这方面Pascal比C++强多了！
W weekboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-01 #5 定义： type Prec=^myrecord; type myrecord=record i:integer; j:string; next:myrecord; end; 使用： var:rec:myrecord; begin prec:=@rec; prec^.i:=9; prec^.j:='myrecord'; end;
定义： type Prec=^myrecord; type myrecord=record i:integer; j:string; next:myrecord; end; 使用： var:rec:myrecord; begin prec:=@rec; prec^.i:=9; prec^.j:='myrecord'; end;
C cranexie Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-01 #6 type Elemtype=record goodscode:string[6]; goodsname:string[11]; minUnitonware:integer; curUnitonware:integer; end; linearlist=record element:array [0..99] of elemtype; count:integer end;
type Elemtype=record goodscode:string[6]; goodsname:string[11]; minUnitonware:integer; curUnitonware:integer; end; linearlist=record element:array [0..99] of elemtype; count:integer end;
金 金圣叹 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-06 #7 type Elemtype=record goodscode:string[6]; goodsname:string[11]; minUnitonware:integer; curUnitonware:integer; end; linearlist=record element:array [0..99] of elemtype; count:integer end;
type Elemtype=record goodscode:string[6]; goodsname:string[11]; minUnitonware:integer; curUnitonware:integer; end; linearlist=record element:array [0..99] of elemtype; count:integer end;
