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

                                       28
    while not eof(f) do
    begin read(f, d); label2.caption:=label2.caption + d end;
    closefile(f)
    end;

     За д а ча 38. Созд а т ь т ипизирова н н ый ф а йл, сост оя щий из сим волов,
введ ён н ых в окн о ввод а Edit. За м ен ит ь послед н ий сим вол ф а йла н а
сим вол ′ ∗ ′ .




     За д а ча 39. Созд а т ь т ипизирова н н ый ф а йл, сост оя щий из сим волов,
введ ён н ых в окн о ввод а Edit. За писа ть в н овый типизирова н н ый ф а йл
все м а лые а н глийские б у квы исход н ого типизирова н н ого ф а йла .




    П роцед у ра об ра б отки соб ыт ия щелчка по кн опке В ы пол н и ть :
    procedure TForm1.Button2Click(Sender: TObject);
    var f, h : file of char; d : char; alp : string;
    begin
    alp:='abcdefghijklmnopqrstuvwxyz';
    if not opendialog1.Execute then exit;
    assignfile(f, opendialog1.FileName);
    label1.Caption:=opendialog1.FileName;
    if not savedialog1.Execute then exit;
    assignfile(h, savedialog1.FileName);
    label2.Caption:=savedialog1.FileName;
    reset(f); rewrite(h);