Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: октябрь 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как прочитать русский текст MS-DOS 4

"Компьютерщики" - это такие люди, у которых слова "вчера с матерью трахался" вызывают не возмущение, а сочувствие.


 function ConvertAnsiToOem(const S: string): string;
 { ConvertAnsiToOem translates a string into the OEM-defined character set }
 {$IFNDEF WIN32}
 var
   Source, Dest : array[0..255] of Char;
 {$ENDIF}
 begin
   {$IFDEF WIN32}
   SetLength(Result, Length(S));
   if Length(Result) > 0 then
     AnsiToOem(PChar(S), PChar(Result));
   {$ELSE}
   if Length(Result) > 0 then
   begin
     AnsiToOem(StrPCopy(Source, S), Dest);
     Result := StrPas(Dest);
   end;
   {$ENDIF}
 end; { ConvertAnsiToOem }
 
 function ConvertOemToAnsi(const S: string): string;
 { ConvertOemToAnsi translates a string from the OEM-defined
 character set into either an ANSI or a wide-character string }
 {$IFNDEF WIN32}
 var
   Source, Dest : array[0..255] of Char;
 {$ENDIF}
 begin
   {$IFDEF WIN32}
   SetLength(Result, Length(S));
   if Length(Result) > 0 then
     OemToAnsi(PChar(S), PChar(Result));
   {$ELSE}
   if Length(Result) > 0 then
   begin
     OemToAnsi(StrPCopy(Source, S), Dest);
     Result := StrPas(Dest);
   end;
   {$ENDIF}
 end; { ConvertOemToAnsi }
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS