Советы по Delphi

         

Перекодировка текста


Публикую присланное читателем письмо:

Недавно меня озадачили. Попросили написать программу которая переводит текст из кодировки Dos в Windows и наоборот. Я немного покопался в help'е и вот что у меня получилось. Я надеюсь вас заинтересует мое решение.

    procedure MyOemToChar;
var  b:string;
begin
b:=Memo1.Lines.Text;
OemToChar(PChar(b),Pchar(b));
Memo2.Lines.Text:=b;
end;



или

    procedure MyOemToChar;
var  b:PChar;
begin
b:=Memo1.Lines.GetText;
OemToChar(b,b);
Memo2.Lines.Text:=StrPas(b);
end;

Я сам предпочитаю использовать вариант N1. Хотя во время тестирования оба варианта работали.

Всего наилучшего. Виталий Еремеев. [000703]



Содержание раздела