Mega Code Archive

 

Categories / Delphi / Strings

 

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; //Example procedure TForm1.Button1Click(Sender: TObject); var AString: string; AChar: Char; begin AString := 'Test'; AChar := StrToChr(AString, 1);//AChar is now 'T' ShowMessage(AChar) end;