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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

12
В этом приложении имена файлов, выбранные в окне
OpenDialog1 и SaveDialog1, отображаются на форме в поле меток
Label1 и Label2.
type TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Memo2: TMemo;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var f, f1 : textfile; s:string;
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
readln(f, s);
if pos(' т ', s) <>0 then writeln(f1, s, ' ; ')
end;
closefile(f); closefile(f1);
memo2.Lines.LoadFromFile(savedialog1.FileName);
end;
end.
Задача 7. Дополнить новыми строками уже существующий тек-
стовый файл . Для выбора имени файла использовать компонент
OpenDialog. Окно работающего приложения : 
                                       12
    В     э т ом прилож ен ии им ен а         ф а йлов, выб ра н н ые в окн е
OpenDialog1 и SaveDialog1, от об ра ж а ю т ся н а ф орм е в поле м еток
Label1 и Label2.
    type TForm1 = class(TForm)
             Button1: TButton;
             Memo1: TMemo;
             OpenDialog1: TOpenDialog;
             SaveDialog1: TSaveDialog;
             Memo2: TMemo;
             Label1: TLabel;
             Label2: TLabel;
             procedure Button1Click(Sender: TObject);
      private { Private declarations }
      public { Public declarations }
      end;
    var Form1: TForm1;
    implementation
    {$R *.dfm}
    procedure TForm1.Button1Click(Sender: TObject);
    var f, f1 : textfile; s:string;
    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
    readln(f, s);
    if pos(' т ', s) <>0 then writeln(f1, s, ' ; ')
    end;
    closefile(f); closefile(f1);
    memo2.Lines.LoadFromFile(savedialog1.FileName);
    end;
    end.


     За д а ча 7. Дополн ить н овым и ст рока м и у ж е су щест ву ю щий т ек-
ст овый ф а йл. Для выб ора им ен и ф а йла использова т ь ком пон ен т
OpenDialog. Окн о ра б от а ю щего прилож ен ия :

Страницы