Извините за off,
но просто к сведению: cooler на форуме

http://vlady.uzelok.net/smf/index.php

и я - 2 разных человека, а то сегодня случайно забрёл и обнаружил (кстати ник как-нибудь можно сменить, а то он мне уже самому не нравится)

А насчет программы, скоро попробую выложить что-нибудь новенькое

Может у кого-нибудь есть примеры как реализуются события?
Или просто какой-нибудь FAQ, а то вообще практически ничего не знаю

Меню конечно нужно переделывать,ну это потом.

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

Сам-то я эту процедуру напишу, только как инициализировать коэффициенты?


*****************
P.S. Эта тема по-тихонечку превращается в разговор с самим собой....
Со стороны кажется, наверное, странным

Вас что так разочаровала моя программа????!!!!?
Почему ничего не пишете?
Может я глупые вопросы задаю?

7ое сообщение подряд и ни одного ответа...
Аууууууууу!??
В чём дело??

ty.
Вот тебе сообщение :-)

Как хоть что-нибудь будет работать выложи.

Хотелось бы по делу...

Попытка - не пытка.
Вот конструктор Игрока, процедура для расчёта коэф. команды,процедура изменений
в составе.
Что нужно написать вместо вопросов, чтобы значение переменной к передавалось в процедуру
расчёта коэффициента?

constructor TFootballer.init(AName: string; AnAge: integer;
	    team, position: string; Ak: byte);
var
  p: TPosition;
  i: integer;

begin
  inherited init(AName, AnAge);
  for p := low(Tposition) to high(TPosition) do
    if s_position[p] = position then begin
      code_position := p;
    end;

  for i := 1 to max_teams do
    if s_team[i] = team then begin
      code_team := i;
     end;
   k := Ak;??????????????????????????????
end;


procedure Tteam.Koef;
var i,j:byte;
    sumk,teamk:integer;
begin
?????????????????????
?????????????????????

for i:=1 to 11 do
sumk:=0;
sumk:=sumk+tk;
teamk:=trunc(sumk/11);
writeln('TEAM KOEF: ',sumk);
end;



procedure TTeam.changes;
var f,sec,secv: byte;
    kk:char;
begin
repeat
write('First player: ');
readln(f);
write('Second player: ');
readln(sec);
clrscr;
secv:=70;
squad[secv]:=squad[f];
squad[f]:=squad[sec];
squad[sec]:=squad[secv];
team.koef;
team.squad_print;
write('Continue ? [Y/N] ');readln(kk);
writeln;
until(kk='n') or (kk='N');
end;