следующая тема »

[01 Сентябрь 2025, 14:09:26]

Новости, реклама:

[01 Сентябрь 2025, 14:09:26]

Новости, реклама:

[Черный Дракон]

Код:

program utf8;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var f,fi:TextFile;
    s:string;

begin
     AssignFile(f,'out.txt');
         AssignFile(fi,'in.txt');
     Rewrite(f);
     Reset(fi);
     Readln(fi,s);
     s:=UTF8Decode(s);
     Writeln(f,s);
     CloseFile(f);
     CloseFile(fi);
end.

Компильнуть в D7 или выше.

В in.txt открытый notepad-ом вставляем закорючки "Валентина Павловна" копипейстом из OutLook. Запускаем utf8.exe. Из out.txt достаем "Валентина Павловна"