[Edinora]

У меня вопрос к старожилам.
Есть мелкая программка с несколькими формами. В каждой форме фигурируют данные с файла, для удобства записанные в массив TeamsArray. С массива они распределяются по табличках этих формах. (Это в идеале).
Теперь сам вопрос:

Код:

type
  TPerson = record
    FTeam: string[130];
    FCity: string[50];    
    FYearOfFoundation: Integer;
  end;

  TeamFile = file of Team;

var
  Form1: TForm1;
  TeamsArray:array[1..100] of  TPerson;
  ImageTeamsArray:array[1..100] of string;

При попытке вынести TeamsArray в public(что бы он был доступен и другим формам), выкидывает ошибку типа данных, так как тип TPerson все равно объявляется ниже.

Как то меня не радует в каждой из форм считывать данные с файла, записывать в локальный массив, работать с ним, а потом опять записывать в файл.

Есть ли другой, более простой, способ справиться с данной проблемой?

[NumLock]

TeamsArray и так доступен всем модулям.
добавлено позже
а если глобальные переменные вне закона (чушь, конечно):

Код:

type
  TPerson = record
    FTeam: string[130];
    FCity: string[50];
    FYearOfFoundation: Integer;
  end;

  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    TeamsArray:array[1..100] of  TPerson;
  end;

[icWasya]

Вообще говоря, пишется юнит

Код:

unit
  UnitTeams;
interface
type
  TPerson = record
    FTeam: string[130];
    FCity: string[50];
    FYearOfFoundation: Integer;
  end;

var
  TeamsArray:array[1..100] of  TPerson;
  TeamsCount:Integer=0;

procedure ReadTeams(FileName:String);
procedure WriteTeams(FileName:String);

implementation
procedure ReadTeams(FileName:String);
var
  T:File of TPerson;
  I:Integer;
begin
  Assignfile(F,FileName);
  TeamsCount:=0;
{$-}
  Reset(F);
  If IoResult <> 0 then Exit;

  I:=FileSize(F);
  
  // if I>100 then ????

  TeamsCount:=I;
  for I:=1 to TeamsCount do begin
    Read(F,TeamsArray[i]);
  end;
  
  CloseFile(F);
{$+}
end;

procedure WriteTeams(FileName:String);
var
  T:File of TPerson;
  I:Integer;
begin
  Assignfile(F,FileName);
  Rewrite(F);
  
  Seek(F,0);

  for I:=1 to TeamsCount do begin
    Write(F,TeamsArray[i]);
  end;

  CloseFile(F);


end;
end.

и подключается к uses в интерфейсной части там, где надо

[Bargest]

а если глобальные переменные вне закона (чушь, конечно)

Почему сразу чушь. Мне приходилось писать код, в котором было никак нельзя использовать глобальные переменные. Правда на си, и правда это очень специфичная область применения.

[Edinora]

Сообщение от NumLock

TeamsArray и так доступен всем модулям.

Я пробовала к нему обращаться как к переменной (Form1.TeamsArray[i]), но что-то явно пошло не так (видимо надо было просто TeamsArray[i]).

Сообщение от NumLock

а если глобальные переменные вне закона (чушь, конечно):

Возможно и чушь, я чуть протупила и поставила type TPerson = record в пределах public. На вашем коде я увидела свою ошибку.
Спасибо

Сообщение от icWasya

Вообще говоря, пишется юнит
и подключается к uses в интерфейсной части там, где надо

Хмм... интересное решение, я как то даже не подумала о такой возможности. Спасибо, пойду экспериментировать

[NumLock]

1. да, естественно "просто" TeamsArray[i]
2. "чушь" это сказано про категорический запрет использования глобальных переменных, не про ваш код
3. опять же, если принять во внимание категорический запрет использования глобальных переменных, стоит это реализовать отдельным классом, где массив TeamsArray будет свойством класса, а не глобальной переменной. но повторю - чушь это don't use global vars