Считывать строки из текстового DOS файла

procedure
 ReadDosTextFile(FileName: string
; List: TStrings);
var

 S: string
;
 i: integer;
begin

 List.BeginUpdate;
 try

  List.LoadFromFile(FileName);
  for
 i:=0 to
 List.Count - 1 do
 begin

   S:=List[i];
   OemToChar(PChar(S), PChar(S));
   List[i]:=S;
  end
;
 finally

  List.EndUpdate;
 end
;
end
;

procedure
 WriteDosTextFile(FileName: string
; List: TStrings);
var

 S: string
;
 I: integer;
 L: TStringList;
begin

 L:=TStringList.Create;
 try

  L.Assign(List);
  for
 i:=0 to
 L.Count - 1 do
 begin

   S:=L[i];
   CharToOem(PChar(S), PChar(S));
   L[i]:=S;
  end
;
  L.SaveToFile(FileName);
 finally

  L.Free;
 end
;
end
;

Другое по теме:

• Как консольное приложение может узнать, что Винды завершаются
• Как использовать консоль в не-консольном приложении
• Как захватить весь вывод в консоли