haiou327’blog

Tm = record h, w: Integer; end; uses Generics.Collections; var m1, m2: TList; mr: Tm; i: Integer; begin m1 := TList.Create; for i := 1 to 5 do begin mr.h := i; mr.w := i;

xe var s: string; sList: TStringList; begin s := 'aaa,bbb,cc c,dd dd,eee'; sList := TStringList.Create; sList.StrictDelimiter := True; //Delph7无此属性 sList.Delimiter := ','; sList.Delimi

type TSmt = record SName: string[16]; Feeder: Integer; Dushu: Real; end; Psmt = ^TSmt; var List: TList; procedure TForm2.Button1Click(Sender: TObject); var buf: Psmt; i: I