Текущая версия на 12:23, 20 марта 2020

OEMTOANSI_FOR_MIXD - это программа из R266

Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251

OEMTOANSI_FOR_MIXD()

Использование

Лаборатория - Открыть файл c:\MIXD\TMP.TXT

@@ Строка 1: / Строка 1: @@
-OEMTOANSI_FOR_MIXD - это программа из [[R266]]
+[[OEMTOANSI_FOR_MIXD]] - это программа из [[R266]]
+ Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251
-Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251
+[[OEMTOANSI_FOR_MIXD]]()
+= Использование =
-= Текст программы =
+  [[Лаборатория]] - Открыть файл c:\MIXD\TMP.TXT
-  local path, name, af, aa
- path := 'c:\MIXD\'
- name := 'TMP.TXT'
- aa := {}
- try
-   af := [[AssignFile]]( path + name )
-   if [[Empty]]( af )
-     return
-   endif
-   [[TextReset]]( af )
-   while ![[TextEof]]( af )
-     Aadd( aa, [[OemToAnsi]]( ReadLn( af ) ) )
-   end
- finally
-   if ![[Empty]]( af )
-     [[CloseFile]]( af )
-   endif
- end
- [[WriteTxtFile]]( aa, name, path )
 = Смотрите также =
+[[Полезные функции]]
 [[Функции Delphi]]
-[[Полезные функции]]