关于字符串, 之前没这样用过    

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;

---