...convert ASCII to ANSI?

Author: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Category: System

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

 

printed from
www.swissdelphicenter.ch
developers knowledge base