Mega Code Archive

 

Categories / Delphi / System

 

Convert ascii to ansi

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