- 97 名前：89 2/2 [2007/08/08(水) 00:27:52 ]
- >>92の前に
procedure TDM1.Get_SeitoSuu(Cond: TGakkoCond_Rec;
List: TList);
var
p: PGakko004_Rec;
beginで
PGakko004_Rec = ^TGakko004_Rec;
TGakko004_Rec = record
F_KT_BEID: Integer; //
F_KT_GAKKOID: Integer; //
F_KT_MODEL: Integer; //
F_KT_GAKKO_TYPE_CD: String[1]; //
F_KT_SEITO: Integer;
end;
です。
