Mega Code Archive

 

Categories / Delphi / Strings

 

Convert ASCII to ANSI

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