Советы по 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]




Содержание  Назад  Вперед