Title: How to get a specified (type safe) Char from a String
// This function will convert a specified char in a string to a char.
function StrToChr(Str: string; Pos: Integer): Char;
begin
Result := Str[Pos];
end;
procedure TForm1.Button1Click(Sender: TObject);
var
AString: string;
AChar: Char;
begin
AString := ??Test??;
AChar := StrToChr(AString, 1);//AChar is now ??T??
ShowMessage(AChar)
end;