Delphi динамика

[tanek]

Здраствуйте дорогие форумчанины.... Возник вопрос...
Есть два вида списка. Они сделаны как массив. Как сделать эти массивы динамическими? Я вот набрасала код, но он не работает. Выдает ошибку Incompatible types в строке

SetLength(ATC,temp+1);

не могли бы вы мне помочь....
Вот кусок кода:

 Type
  TATC=record
    data: string[40];			// дата
    numbers: array[1..2] of int64;		//массив номеров
    tariff : extended; 			// тариф
    time:integer;               //время разговора
    cityname:string[40];    //название города
    citycode:word;
  end;

 Type
  TATC2=record
    tariff : extended; 			// тариф
    time:integer;               //время разговора
    cityname:string[40];    //название города
  end;

Var
  Fz  : file of  TATC;		// Файл типа запись
  Ft  : TextFile;			// Текстовой файл
  ATC : array of TATC;	// Массив записей
  nzap : integer;			// Номер записи
  FileNameZ, FileNameT : string; 	// Имя файла
  summa:extended;
  ATC2 : array of TATC2;
var
  Form3: TForm3;

implementation

{$R *.dfm}



procedure TForm3.stuftClick(Sender: TObject);
begin
    nzap:=nzap+1;
  with ATC[nzap] do begin
           data:=DataSpeak.Text;
           numbers[1]:=StrToInt(NumberTel1.Text);
           numbers[2]:=StrToInt(NumberTel2.Text);
           citycode:=StrToInt(CodeTown.Text);
           cityname:=NameTown.Text;
           time:=StrToInt(TimeSpeak.Text);
           tariff:=StrToFloat(Tarif.Text);
  OutputData.Lines.Add(data+'  '+IntToStr(numbers[1])+'  '+ IntToStr(numbers[2])+'   '+IntToStr(citycode)+'   '+cityname+'     '+IntToStr(time)+'    '+FloatToStr(tariff));
   //summa
  end;
     Write(fz,ATC[nzap]);					// Запись в файл
   DataSpeak.Text:='';
   CodeTown.Text:='';
   NameTown.Text:='';
   TimeSpeak.Text:='';
   Tarif.Text:='';
   NumberTel1.Text:='';
   NumberTel2.Text:='';

end;
procedure AlocDinamycs( var ATC:TATC; var TAC2:TATC2 );
var
  temp:integer;
begin
  temp:=0;
  while not eof(fz) do
     inc(temp);
  SetLength(ATC,temp+1);
  SetLength(ATC2,temp+1);
end;

[Alex Cones]

  while not eof(fz) do
     inc(temp);

А что здесь получается? Не бесконечный цикл? Вы ж файл дальше не листаете, на одной и той же строке сидите.

[raxp]

( var ATC:TATC; var TAC2:TATC2 );

- вы задаете atc как запись, но устанавливаете размер как для массива

SetLength(ATC,temp+1);

как понимаю -procedure AlocDinamycs вызывается один раз для задания размера, уберите вообще - ( var ATC:TATC; var TAC2:TATC2 )
...тем более что у вас объявлен глобальный-> ATC : array of TATC;// Массив записей

[tanek]

Alex Cones здесь в данном случае переменная fz является глобальной и когда вызываетя процедура выделения динамики, то переменная fz уже связана с файлом. поэтому цикл будет не бесконечен

огромное спасибо... она заработала)))))

Alex Cones вы были правы она идет в бесконечный цикл.....
а как исправить?