WinToDos / DosToWin перекодировка симовлов через модуль Windows - 26 Ноября 2012

Главная » 2012 » Ноябрь » 26 » WinToDos / DosToWin перекодировка симовлов через модуль Windows

08:37 WinToDos / DosToWin перекодировка симовлов через модуль Windows
uses windows; function WinToDos(St: string): string; // из Win в Dos кодировку var Ch: PChar; begin Ch := StrAlloc(Length(St) + 1); AnsiToOem(PChar(St), Ch); Result := Ch; StrDispose(Ch) end; function DosToWin(St: string): string; // из Dos в Win кодировку var Ch: PChar; begin Ch := StrAlloc(Length(St) + 1); OemToAnsi(PChar(St), Ch); Result := Ch; StrDispose(Ch) end;
1 2 3 4 5 Просмотров: 1320 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки