Delphi World - Считывать строки из текстового DOS файла
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Считывать строки из текстового DOS файла

Автор: Dimka Maslov

Налоговая полиция конфисковала большую партию пиратских дисков с Windows-98. То, что программа ненастоящая, стало ясно после того, как она поднялась за считанные секунды и к тому же нормально работала на 486-м процессоре.


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;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования