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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
 
Строка 4: Строка 4:
 
= Использование =
 
= Использование =
 
  [[Лаборатория]] - Открыть файл c:\MIXD\TMP.TXT
 
  [[Лаборатория]] - Открыть файл 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]]
 
[[Функции Delphi]]

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

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

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

OEMTOANSI_FOR_MIXD()

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

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

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

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

Функции Delphi