IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Текстовые файлы, помогите дописать код программы
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 7
Пол: Мужской

Репутация: -  0  +


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


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



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



Код


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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 52
Пол: Мужской
Реальное имя: Александр

Репутация: -  1  +


Если я правильно понял, то:
1. находим минимальный год.
2. определяем название команды для этого года.
3. выводим всех студентов, подходящих под запись год+команда.


--------------------
With best regards, Better Kind
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 7
Пол: Мужской

Репутация: -  0  +


Немного не понимаю, как можно вывести под запись год+команда, кода года все разные и могут повторяться. Может здесь средний возраст искать нужно ?
Вот форма программы, если поможет
[img]http://manualix.info/form1.gif[/img]

Сообщение отредактировано: Snord -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.09.2020 19:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name