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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

10
begin
if not opendialog1.Execute then exit;
assignfile(f, opendialog1.FileName);
memo1.Lines.LoadFromFile(opendialog1.FileName);
reset(f);
k:=0;
while not eof(f) do
begin
readln(f, s); if length(s)=4 then inc(k);
end;
closefile(f);
label1.Caption:='Ответ ' + inttostr(k)
end;
Задача 3. Показать строки файла , начинающиеся с буквы ″ф″.
Для выбора имени файла использовать компонент OpenDialog. Для
отображения в форме нужных строк файла использовать компонент
Memo. Окно работающего приложения :
procedure TForm1.Button1Click(Sender: TObject);
var f : textfile; s : string;
begin
if not opendialog1.execute then exit;
assignfile(f, opendialog1.filename);
reset(f);
while not eof(f) do
begin
readln(f, s); if s[1]='ф ' then memo1.Lines.Add(s);
end;
closefile(f);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.Clear;
end; 
                                        10
      begin
      if not opendialog1.Execute then exit;
      assignfile(f, opendialog1.FileName);
      memo1.Lines.LoadFromFile(opendialog1.FileName);
      reset(f);
      k:=0;
      while not eof(f) do
      begin
      readln(f, s); if length(s)=4 then inc(k);
      end;
      closefile(f);
      label1.Caption:='От вет ' + inttostr(k)
      end;
      За д а ча 3. П ока за т ь ст роки ф а йла , н а чин а ю щиеся с б у квы ″ф ″.
Для выб ора им ен и ф а йла использова т ь ком пон ен т OpenDialog. Для
от об ра ж ен ия в ф орм е н у ж н ых строк ф а йла использова т ь ком пон ен т
Memo. Окн о ра б ота ю щего прилож ен ия :




    procedure TForm1.Button1Click(Sender: TObject);
    var f : textfile; s : string;
    begin
    if not opendialog1.execute then exit;
    assignfile(f, opendialog1.filename);
    reset(f);
    while not eof(f) do
    begin
    readln(f, s); if s[1]='ф ' then memo1.Lines.Add(s);
    end;
    closefile(f);
    end;
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    memo1.Lines.Clear;
    end;

Страницы