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

Версия 09:34, 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.

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

Задание