Strings Delphi

  1. Home
  2. Delphi
  3. Strings
  4. 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;