一个简单的问题 50分

Question

type
  TPoint = record
    X, Y: Single;
  end;
  TVector = array[0..1] of TPoint;
var 
  vecter1:TVecter; vecter1[0].X=10;

Answer 1

Type
Tstudent=record
  name:string;
  stuno:int;
  ......
end;
tstuds:=array [1..32] of tstudent;
var
  glass1:tstuds;
begin
  glass1[1].name:='corao';
  glass1[2].stuno:=1;
 ......
end;

Answer 2

以下是将Dataset中的数据读进来：Type
TStudent = record
  name: string;
  stuno: integer;
  ......
end;var
   myTable: TTable;
   aSt:     array[1..64] of TStudent;
begin
  with myTable do
  begin
    Open;
    aSt[1].Name := FieldByName('name').AsString;
    ...
    Close;
  end;
end;

Answer 3

to zxh1972、thinking_man、Rikee
   用此方法能生成动态数组（二或三维）吗，因为学生个数不确定的。
   解答后，马上送分。

Answer 4

type
  TStudent = record
    X, Y: string;
  end;var
  S1: array of TStudent;
  Count:integer;  Table1.Active;
  Count:=Tab1e1.RecordCount;
  SetLength(S1,Count);// 设定数组长度  Table1.first;
  S1[0].X:=Table1.FieldByName('X').Asstring; // 取一条记录
  Table1.Next;