Информация об участниках спортивных соревнований содержит:
название команды, фамилию игрока и возраст . Вывести информацию о самой
молодой команде.
Вот код который я набрасал, в нем могут быть ошибки...Помогите написать обработчик кнопки Вывести .
Буду очень признателен.
Код
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
BitBtn1: TBitBtn;
Memo4: TMemo;
Memo5: TMemo;
Memo6: TMemo;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type stud=record
fam:string[20];
kom:string[20];
god : integer;
end;
var
Form1: TForm1;
f:file of stud;
ft:textfile;
w:stud;
fname,fnamet:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear; memo2.Clear; memo3.Clear;
edit1.clear; edit2.clear; edit3.clear;
Button1.Hide;
Button5.Hide;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
w.kom:=edit1.text;
w.fam:=edit2.text;
w.god:=strtoint(edit3.text);
write(f,w);
memo1.lines.add(w.kom); //окно команды
memo2.lines.add(w.fam); // окно фамилий
memo3.lines.add(inttostr(w.god)); // окно возрастов
edit1.clear; edit2.clear; edit3.clear;
Button5.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SaveDialog1.Title:='Создать файл';
SaveDialog1.DefaultExt:='.dat';
if SaveDialog1.Execute then
begin
fname:=SaveDialog1.FileName;
AssignFile(f,fname);
Rewrite(f);
end;
Button1.Show;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
OpenDialog1.Title:='Открыть файл';
if OpenDialog1.Execute then
begin
fname:=OpenDialog1.FileName;
AssignFile(f,fname);
Reset(f);
end;
memo1.clear; memo2.clear; memo3.clear;
while not eof(f) do
begin
read(f,w);
memo1.lines.add(w.kom);
memo2.lines.add(w.fam);
memo3.lines.add(inttostr(w.god));
end;
closeFile(f);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
SaveDialog1.Title:='Сохранить в текстовом файле';
SaveDialog1.DefaultExt:='.txt';
if SaveDialog1.Execute then
begin
fnamet:=SaveDialog1.FileName;
AssignFile(ft,fnamet);
Rewrite(ft);
end;
writeln(ft,' Команды');
writeln(ft,' Фамилия возраст');
reset(f);
while not eof(f) do
begin
read(f,w);
with w do
writeln(ft,kom:10,fam:10,god:10);
end;
closeFile(f);
closeFile(ft);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin // Вывести
// этот обработчик ?
//выводит в мемо4 мемо5 мемо6 соотвественно
end;
closeFile(f);
end;
end.