OEMTOANSI FOR MIXD — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показаны 2 промежуточные версии этого же участника)
Строка 2: Строка 2:
 
  Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251
 
  Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251
 
[[OEMTOANSI_FOR_MIXD]]()
 
[[OEMTOANSI_FOR_MIXD]]()
= Текст =
+
= Использование =
  local path, name, af, aa
+
  [[Лаборатория]] - Открыть файл c:\MIXD\TMP.TXT
+
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]]
 
[[Функции Delphi]]

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

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

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

OEMTOANSI_FOR_MIXD()

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

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

Смотрите также

Полезные функции

Функции Delphi