Учебный курс Программирование на Delphi. Модуль 12: различия между версиями

Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску
 
Строка 1: Строка 1:
−
<center>'''Работа с файлами'''</center>
+
<center>'''Текстовые файлы'''</center>
  
  
  
 
==Пример 1==
 
==Пример 1==
 +
 +
 
*'''Условие'''
 
*'''Условие'''
 +
В текстовом файле Note.txt определить длину самой большой строки.
  
 +
*'''Использованные компоненты'''
  
 
*'''Программный код'''
 
*'''Программный код'''
 +
unit Unit1;
 +
interface
 +
uses
 +
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 +
  Dialogs, StdCtrls, Buttons;
 +
type
 +
  TForm1 = class(TForm)
 +
    BitBtn1: TBitBtn;
 +
    BitBtn2: TBitBtn;
 +
    Label1: TLabel;
 +
    Memo1: TMemo;
 +
    procedure BitBtn1Click(Sender: TObject);
 +
    procedure BitBtn2Click(Sender: TObject);
 +
  private
 +
    { Private declarations }
 +
public
 +
    { Public declarations }
 +
  end;
 +
var
 +
  Form1: TForm1;
 +
  implementation
 +
    {$R *.dfm}
 +
procedure TForm1.BitBtn1Click(Sender: TObject);
 +
  begin
 +
  close;
 +
  end;
 +
var
 +
      note:text;
 +
      max,k,i:integer;
 +
      c:char;
 +
procedure TForm1.BitBtn2Click(Sender: TObject);
 +
  begin
 +
  assignfile(note,'c:\note.txt');
 +
  append(note);
 +
  for i:=0 to memo1.Lines.Count do
 +
  writeln(note,memo1.lines[i]);
 +
  closefile(note);
 +
  max:=0;
 +
    while not eof(note) do     
 +
      begin
 +
          k:=0;                     
 +
          while not eoln (note) do
 +
              begin
 +
                read (note, c); k := k + 1;
 +
              end;
 +
          if k > max then max := k;
 +
              readln (note)
 +
        end;
 +
  label1.Caption:='Наибольшая строка имеет '+ inttostr(max)+' знаков';
 +
  closefile (note);
 +
end;
 +
end.
 +
 
      
 
      
 
   
 
   

Версия 09:08, 1 марта 2008

Текстовые файлы


Пример 1

  • Условие

В текстовом файле Note.txt определить длину самой большой строки.

  • Использованные компоненты
  • Программный код

unit Unit1; interface uses 

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons;
type
 TForm1 = class(TForm)
   BitBtn1: TBitBtn;
   BitBtn2: TBitBtn;
   Label1: TLabel;
   Memo1: TMemo;
   procedure BitBtn1Click(Sender: TObject);
   procedure BitBtn2Click(Sender: TObject);
  private
   { Private declarations }
public
   { Public declarations }
 end;
var
 Form1: TForm1;
  implementation
   {$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
 begin
  close;
 end;
var 
     note:text;
     max,k,i:integer;
     c:char;
procedure TForm1.BitBtn2Click(Sender: TObject);
 begin
 assignfile(note,'c:\note.txt');
 append(note);
 for i:=0 to memo1.Lines.Count do
 writeln(note,memo1.lines[i]);
 closefile(note);
 max:=0;
   while not eof(note) do      
      begin
         k:=0;                       
         while not eoln (note) do
             begin
               read (note, c); k := k + 1;
             end;
         if k > max then max := k;
             readln (note)
       end;
 label1.Caption:='Наибольшая строка имеет '+ inttostr(max)+' знаков';
 closefile (note);
end;
end.


  • Форма с результатом работы программы



Задание

Таблица

Литература

  1. Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
  2. Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
  3. Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

Ссылки

Учебный курс Программирование на Delphi

Учебный план курса Программирование на Delphi

Источник — https://wiki.mininuniver.ru/index.php?title=Учебный_курс_Программирование_на_Delphi._Модуль_12&oldid=2294