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

                                           9
б у д ет вн ест и изм ен ен ия в т екст програ м м ы. Доб а вив н а ф орм у ком -
пон ен т SaveDialog, м ы полу чим у д об н ое сред ст во д ля выб ора им ен и
созд а ва ем ого ф а йла н а э т а пе ра б оты прилож ен ия . Окн о прилож ен ия
после д об а влен ия ком пон ен т а SaveDialog:




      П реоб ра зова н н а я процед у ра Button1Click:
      procedure TForm1.Button1Click(Sender: TObject);
      var f : textfile; n, i :integer;
      begin
      if not savedialog1.Execute then exit;
      assignfile(f, savedialog1.filename);
      rewrite(f);
      n:=memo1.Lines.Count;
      for i:=0 to n-1 do writeln(f, memo1.lines.strings[i]);
      closefile(f);
      end;
      За д а ча 2. В ычислит ь количест во ст рок из четырёх сим волов д а н -
н ого текст ового ф а йла . Для выб ора им ен и ф а йла использова т ь ком по-
н ен т OpenDialog. В ыб ра н н ый ф а йл от об ра зит ь в окн е Memo. Окн о
прилож ен ия :




    procedure TForm1.Button1Click(Sender: TObject);
    var f : textfile; s : string; k : byte;