Недавно меня озадачили. Попросили написать программу которая переводит текст из кодировки Dos в Windows и наоборот. Я немного покопался в help'е и вот что у меня получилось. Я надеюсь вас заинтересует мое решение.
procedure MyOemToChar; var b:string; begin b:=Memo1.Lines.Text; OemToChar(PChar(b),Pchar(b)); Memo2.Lines.Text:=b; end;
