Курсовая работа: Разработка программы на Delphi

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 }

end;

var

Form1: TForm1;

F: TextFile;

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)