OEMTOANSI FOR MIXD

Материал из Фабиус wiki
Перейти к: навигация, поиск

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

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

OEMTOANSI_FOR_MIXD()

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

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

Текст

local path, name, af, aa

CopyFile( 'c:\MIXD\TMP.TXT', 'c:\MIXD\TMPTMP.TXT' )

path := 'c:\MIXD\'
name := 'TMPTMP.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