Mega Code Archive

 

Categories / Delphi / VCL

 

How to ViewEdit MS DOS Text in a TMemo

Title: How to View/Edit MS-DOS Text in a TMemo procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Font.Handle := GetStockObject(OEM_FIXED_FONT); end; procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); var ch: string[1]; begin CharToOem(@Key, @ch[1]); Key := ch[1]; end;