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

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

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

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

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

OEMTOANSI_FOR_MIXD()

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

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

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

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

Функции Delphi