[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

[Edinora]

Подскажите пожалуйста:
1. Есть отсортированный динамический массив.
2. Есть типизованный файл в который этот массив записывается.
3. В середину массива добавляется значение, это же значение нужно добавить в файл(соответственно в середину).
Как добавить запись в файл раздвинув остальные (уже существующие) записи?

---
P.S.: Для каждого нового вопроса нужно новую тему создавать?

[Black Raider]

Код:

Seek(F,nRec);

должен вроде вам помочь, где nRec Номер записи.
либо вообще взять и перезаписать файл

[Edinora]

Код:

Seek(F,nRec);

не помогает, он просто перезаписывает в файле запись поверх записи с номером nRec.
Можно перезаписывать файл... но как-то это... слишком просто и примитивно, должен же быть способ сделать пусть сложнее но эффективней (Да здравствует теория! ).

[Bargest]

Как добавить запись в файл раздвинув остальные (уже существующие) записи?

Все записи после N переписать сдвинутыми на 1, а на место N вставить новую.

[NumLock]

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

Как добавить запись в файл раздвинув остальные (уже существующие) записи?

проще перезаписать целиком

[poli-smen]

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

Подскажите пожалуйста:
1. Есть отсортированный динамический массив.
2. Есть типизованный файл в который этот массив записывается.
3. В середину массива добавляется значение, это же значение нужно добавить в файл(соответственно в середину).
Как добавить запись в файл раздвинув остальные (уже существующие) записи?

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

[Edinora]

Все записи после N переписать сдвинутыми на 1, а на место N вставить новую.

Так и сделала, спасибо.

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

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