Программирование в среде Delphi. Часть 3. Файлы. Садовская О.Б. - 18 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

18
вый текстовый файл по одному в строке. Окно работающего при -
ложения :
procedure TForm1.Button1Click(Sender: TObject);
var f, f1 : textfile; s, m : integer;
begin
if not opendialog1.Execute then exit;
assignfile(f, opendialog1.FileName);
label1.Caption:=Opendialog1.FileName;
memo1.Lines.LoadFromFile(opendialog1.FileName);
if not savedialog1.Execute then exit;
assignfile(f1, savedialog1.FileName);
label2.Caption:=savedialog1.FileName;
reset(f); rewrite(f1);
while not eof(f) do
begin
s:=0;
while not eoln(f) do
begin read(f, m); s:=s + m end;
writeln(f1, s); readln(f)
end;
closefile(f); closefile(f1);
memo2.Lines.LoadFromFile(savedialog1.FileName);
end;
Задача 21. Дан текстовый файл , содержащий целые числа . Найти
максимальное число в каждой строке файла . Найденные числа запи-
сать в новый текстовый файл по одному в строке. Окно работаю-
щего приложения : 
                                    18
вый т екст овый ф а йл по од н ом у в ст роке.      Окн о ра б от а ю щего при-
лож ен ия :




      procedure TForm1.Button1Click(Sender: TObject);
      var f, f1 : textfile; s, m : integer;
      begin
      if not opendialog1.Execute then exit;
      assignfile(f, opendialog1.FileName);
      label1.Caption:=Opendialog1.FileName;
      memo1.Lines.LoadFromFile(opendialog1.FileName);
      if not savedialog1.Execute then exit;
      assignfile(f1, savedialog1.FileName);
      label2.Caption:=savedialog1.FileName;
      reset(f); rewrite(f1);
      while not eof(f) do
      begin
      s:=0;
      while not eoln(f) do
      begin read(f, m); s:=s + m end;
      writeln(f1, s); readln(f)
      end;
      closefile(f); closefile(f1);
      memo2.Lines.LoadFromFile(savedialog1.FileName);
      end;
      За д а ча 21. Да н т екст овый ф а йл, сод ерж а щий целые числа . На йт и
м а ксим а льн ое число в ка ж д ой строке ф а йла . На йд ен н ые числа за пи-
са т ь в н овый т екст овый ф а йл по од н ом у в ст роке. Окн о ра б от а ю -
щего прилож ен ия :

Страницы