Введите условия поиска Отправить форму поиска
	Web DelphiSources.ru

Преобразовать файл из OEM в ANSI

Оформил: DeeCo

procedure ConvertFile(const FileName: string; fromCodepage: Integer);
 var
   ms: TMemoryStream;
 begin
   if getOEMCP <> fromCodepage then
     raise Exception.Create('ConvertFile: Codepage doesn''t match!');
   ms := TMemoryStream.Create;
   try
     ms.LoadFromFile(FileName);
     // make backup 
    ms.Position := 0;
     ms.SaveToFile(ChangeFileExt(FileName, '.BAK'));
     // convert text 
    OEMToCharBuff(ms.Memory, ms.Memory, ms.Size);
     // save back to original file 
    ms.Position := 0;
     ms.SaveToFile(FileName);
   finally
     ms.Free;
   end;
 end;