Работа с текстовым файлом, программа вывода Опции

[Snord]

Вот такя задачка! Помогите кто может...


Информация об участниках спортивных соревнований содержит:
название команды, фамилию игрока и возраст . Вывести информацию о самой
молодой команде.

[Snord]

Вот код который я набрасал, в нем могут быть ошибки...Поиогите написать обработчик кнопки Вывести .
Буду очень признателен.

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.

Сообщение отредактировано: volvo - 27.11.2009 20:07