摘要： type TOneArray = array of Integer; procedure AddArrayItem(Arr: TOneArray; x: Integer); begin SetLength(Arr,Length(Arr)+1); Arr[High(Arr)] := x; end; 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var s1: AnsiString; //单字节储存 s2: WideString; //双字节储存 begin s1 := '万一OK'; s2 := '万一OK'; ShowMessage(s1[1]); //显示乱码 ShowMessage(s2[1]); /... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var s1: ShortString; //为兼容老版本而存在 s2: string; //长字串，相当于动态字符数组 s3: string[10]; //短字串，相当于静态字符数组，代替 ShortString begin ShowMessage(IntToStr... 阅读全文