procedure TForm1.FormCreate(Sender: TObject);
var
  str: string;
  n1, n2, n3: Integer;
begin
  str := 'ABC';
  n1 := Low(string); // 1
  n2 := Low(str);    // 1
  n3 := High(str);   // 3

//  ShowMessageFmt('%d, %d, %d', [n1, n2, n3]);
end;

posted on 2013-06-14 22:09  万一  阅读(2431)  评论(0编辑  收藏  举报