Создать размер массива(Delphi)

Всем доброго времени суток.

Как создать размер массива, если есть счетчик который щелкает n-ое кол-во раз. Вот так объявить массив не получается:

massB: array [0..n,0..n] of integer; где n - счетчик.

 

up

 

Можно и без начального задания размера. Функция SetLength. Постепенно увеличивать в цикле его размер.

 

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

 

Могу предложить такой способ..
Правда не практично и скорей всего можно решить проблему иначе.. ну работает вполне быстро !

Сначала нужно создать динамичный массив : Array of String

var
Form1: TForm1;
accountArray: Array of String;

Сам код:

Спойлер

procedure TForm1.Button1Click(Sender: TObject);
var
accountFile: TextFile;
str: String;
count: Integer;
t: TStringList;
begin
lengthAccountFile:= 0;
AssignFile(accountFile, 'account.txt');
Reset(accountFile);
while not Eof(accountFile) do begin // Сначала получаем количество строк в файле
ReadLn(accountFile, str);
inc(lengthAccountFile);
end;
CloseFile(accountFile);
SetLength(accountArray, lengthAccountFile); // Задаем размер массива
count:=0;
t:=TStringList.Create;
AssignFile(accountFile, 'account.txt');
Reset(accountFile);
while not Eof(accountFile) do begin // Читаем строки в массив
ReadLn(accountFile, str);
accountArray[count] := str;
inc(count);
end;
CloseFile(accountFile);
t.Free;
end;

 

вот я просто и сделал большой массив

 

Вот ещё пример создания динамичного массива:

Сначала создать глобальные переменные..
var
lengthAccountFile: Integer;
loginArray: Array of String;

Код:

Спойлер

function TForm1.accountGet(): string;
var
accountFile: TextFile;
str: String;
count: Integer;
begin
lengthAccountFile:= 0;
count:= 0;
AssignFile(accountFile, 'account.txt');
Reset(accountFile);
while not Eof(accountFile) do begin
ReadLn(accountFile, str);
inc(lengthAccountFile);
SetLength(loginArray, lengthAccountFile);
loginArray[count]:=str;
inc(count);
end;
CloseFile(accountFile);
end;

 

Берёшь какой-то массив
s : array of string; (без указания размеров)
Потом задаёшь его длину setlength(s,n);
Или же можешь сделать цикл
while not eof(input) do
begin
inc(i);
readln(s);
end;

 

На самом деле вам нужен уже не массив, а связный список. Делов то.

 

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