nit Unit5;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, Menus, StdCtrls, Unit2, Buttons, ExtCtrls, Mask, Grids, CheckLst,.
ActnCtrls, ToolWin, ActnMan, ActnMenus, TeeProcs, TeEngine, Chart,.
ValEdit, ComCtrls;
type.
TForm1 = class (TForm).
MainMenu1: TMainMenu;
ComboBox1: TComboBox;
Memo2: TMemo;
N1: TMenuItem;
Edit3: TEdit;
Label3: TLabel;
Button2: TButton;
Label1: TLabel;
N2: TMenuItem;
N3: TMenuItem;
Label2: TLabel;
N4: TMenuItem;
N5: TMenuItem;
(процедуры используемые в программе).
procedure ComboBox1Change (Sender: TObject);
procedure Edit1KeyPress (Sender: TObject; var Key: Char);
procedure Button2Click (Sender: TObject);
procedure N2Click (Sender: TObject);
procedure N3Click (Sender: TObject);
procedure N5Click (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
implementation.
uses Unit4;
{$R *.dfm}.
procedure TForm1. ComboBox1Change (Sender: TObject);
var stroka, s: string;
begin.
stroka:=Combobox1.Items.Strings[Combobox1.ItemIndex]; // присвоение переменной «stroka» названия выбранного компонента в ComboBox.
AssignFile (F, '1.txt'); // привязка текстового файла к файловой переменной F.
Reset (F); // открытие файла F для чтения.
Repeat // цикл с постусловием. в переменную S считываются строки из файла до тех пор, пока строка в файле не совпадёт с выбранным элемнтом в ComboBox.
readln (F, s).
until s='***'+stroka+'***';
Memo2.Lines.Text:='';
readln (F, s); // опять считывается.
while s'***' do begin // цикл с предусловием.
Memo2.Lines.Text:=Memo2.Lines.Text+s; // в Memo дописываются данные из переменной s.
readln (F, s); // считывается строка из файла в переменную S.
end;
CloseFile (F); // закрытие файла.
end;
procedure TForm1. Edit1KeyPress (Sender: TObject; var Key: Char);
begin.
var stroka, s: string;
label W;
begin.
stroka:=Edit3.Text; // присвоить переменной текст из поля Edit3.
AssignFile (F, '1.txt'); // привязка текстового файла к файловой переменной F.
Reset (F); // открытие файла F для чтения.
Repeat // цикл с постусловием. в переменную S считываются строки из файла до тех пор, пока строка в файле не совпадёт с выбранным элемнтом в ComboBox.
readln (F, s);
if seekEof (F) then begin // условие о совпадении.
Edit3.Text:='Компонент не найден или вы ошиблись в написании!!!'; // если не совпадет то вывести надпись.
goto w;
end;
until s='***'+stroka+'***';
Memo2.Lines.Text:=''; // очищение поля Мемо2.
readln (F, s); // опять считывается.
while s'***' do begin // цикл с предусловием.
Memo2.Lines.Text:=Memo2.Lines.Text+s; // в Memo дописываются данные из переменной s.
readln (F, s);
end;
W:
CloseFile (F);
end;
procedure TForm1. N2Click (Sender: TObject);
end;
procedure TForm1. N3Click (Sender: TObject);
begin.
Form1.Close; //закрытие формы 1(осуществление выхода из программы).
end;
procedure TForm1. N5Click (Sender: TObject);
begin.
Form4.Show;
end;
end.
