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;
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;