Версия 16:01, 14 июня 2017

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

Преобразовать файл 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