Mega Code Archive

 

Categories / Delphi / Algorithm Math

 

How to convert ASCII to ANSI

Title: How to convert ASCII to ANSI procedure TForm1.Button1.Click(Sender: TObject); var AsciiString: string; AnsiString: string; begin AsciiString := '??¨¹'; OEMtoChar(PChar(AsciiString), PChar(AnsiString)); end;