динамические масивы

[Квэнди]

как же вы массиву присваиваете значение элемента

[mrandrey]

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

и второе: что мне делать если по другому не получаеться

[Voland]

Кажется понял. У тебя наверное тип массива объявлен в обоих модулях отдельно. Поэтому компилятор считает что они несовместимы, даже если они объявлены одинаково.
Вот так:

unit Unit1;

interface

type MyArray = array of <something>;
...

var a: MyArray;
...

unit Unit2;

interface

uses Unit1;

type MyArray = array of <something>;

var b: MyArray;

...

компилятор считает, что
Unit1.a - типа Unit1.MyArray
Unit2.b - типа Unit2.MyArray, то есть несовместимы

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

[mrandrey]

Unit 1;
type
onedat=record
id,All,last,min,ends:integer;
f:boolean;
str:TStrings;
end;
......
game:array of onedat;



Unit 2;
.....
procedure TForm.Button4Click(Sender: TObject);
fix:array of onedat;
....

Вроди бы все нормально, тип onedat обьявлен только в Unit1, а в чем проблема я не пойму.

Но работать я ее заставил
game:=fix;-так не проходит
game:=@fix[0]; - так работает нормально

кому интерестно в чем была проблема:
некоторые записи в fix присваивались с game в том числе и str:tstrings
а некоторые создавались новые

затем масив память массива game полностю очищалась и
game:=@fix[0];

ошибка возникала потому что str:tstrings тоже удалялись и оставались лишь указатели на них.

[Voland]

С onedat - всё верно. Но надо ещё массив этих onedat-ов объявить как тип. Тогда всё будет пучком. Выкинь к чертям своё "game:=@fix[0];" и сделай так:

Unit 1;

interface

type
  OneDat = record
    id, All, last, min, ends: Integer;
    f: Boolean;
    str: TStrings;
  end;
  OneDatArray = array of OneDat;

...

var Game: OneDatArray;

...

unit Unit2;

...

implementation

uses Unit1;

...

procedure TForm.Button4Click(Sender: TObject);
var fix: OneDatArray;
begin
  Game:=fix; //всё покатит
...

И ещё насчёт TStrings. Нельзя создавать его экземпляр - это абстрактный класс (насколько я помню). Надо использовать TStringList.