摘要： var MyArr: array[0..1, 0..2] of char;beginMyArr[0,0] := 'a';MyArr[0,1] := 'b';MyArr[0,2] := 'c';MyArr[1,0] := '1';MyArr[1,1] := '2';MyArr[1,2] := '3';MyArr[0,0] := Chr(0);ShowMessage(MyArr[0]); end; ... 阅读全文

摘要： unit CutStr; interface uses Classes; type wd = record a : String; b : String; c : String; end; function cutin(StrSource,StrBegin,StrEnd:string):string;function cutout(StrSource,StrBegi... 阅读全文

摘要： 啊啊说的 阅读全文