OEMTOANSI FOR MIXD — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | OEMTOANSI_FOR_MIXD - это программа из [[R266]] | + | [[OEMTOANSI_FOR_MIXD]] - это программа из [[R266]] |
| − | + | Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251 | |
| − | Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251 | + | [[OEMTOANSI_FOR_MIXD]]() |
| − | + | = Текст = | |
| − | = Текст | + | |
| − | + | ||
local path, name, af, aa | local path, name, af, aa | ||
| Строка 27: | Строка 25: | ||
[[WriteTxtFile]]( aa, name, path ) | [[WriteTxtFile]]( aa, name, path ) | ||
| − | |||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 15:59, 14 июня 2017
OEMTOANSI_FOR_MIXD - это программа из R266
Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251
OEMTOANSI_FOR_MIXD()
Текст
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 )
