Текущий архив: 2003.11.17;
Скачать: CL | DM;
Вниз
Динамические массивы... Найти похожие ветки
← →
XinSide (2003-11-06 17:11) [0]Дурацкая вроде ошибка, но видимо слепой я...
{max_cols = 2, arr_sz = 800000}
{data_arr и все остальные: array of TRealArray}
{TRealArray = array of TReal}
SetLength(data_arr, arr_sz, max_cols);
SetLength(tmp_arr, arr_sz, max_cols);
SetLength(summ_arr, arr_sz, max_cols);
SetLength(mid_arr, arr_sz, max_cols);
SetLength(sigma_arr, arr_sz, max_cols);
{следующий цикл есть суть просто проверка}
for j := 0 to max_cols - 1 do
for i := 0 to arr_sz - 1 do
begin
data_arr[i, j] := 0;
tmp_arr[i, j] := 0;
summ_arr[i, j] := 0;
mid_arr[i, j] := 0;
sigma_arr[i, j] := 0;
end;
While not EOF(in_file) do
begin
ReadLn(in_file, work_str);
if (work_str[1] in ["0".."9", DecimalSeparator, "-"]) then
begin
StrToArray(work_str, work_arr);
Inc(dot_max);
data_arr[dot_max - 1] := work_arr;
end;
end;
if dot_max = 0 then Application.MessageBox("Данные в файле не найдены. Это какой-то странный файл без данных.", "Ошибка");
ww := (2 * window_width) + 1;
for j := 0 to max_cols - 1 do
for i := 0 to dot_max - 1 do
{вот тут ругается даже при i = 0 и j = 0}
{dot_max < arr_sz}
summ_arr[i, j] := 0;
Вот так...
← →
default (2003-11-06 17:13) [1]ну совсем уже офигели...даже отладку на форум перекладывают)
← →
XinSide (2003-11-06 17:19) [2]default © (06.11.03 17:13) [1]
Простите коли не так, мы из чата пришли, куда еще класть?
← →
han_malign (2003-11-06 17:20) [3]ошибка в StrToArray
← →
Внук (2003-11-06 17:50) [4]>>default © (06.11.03 17:13) [1]
Не ругайте парня, это он по нашей инициативе :)
>>XinSide ©
>>data_arr и все остальные: array of TRealArray
Сдается мне надо
data_arr: array of array of TRealArray
← →
XinSide (2003-11-06 17:59) [5]Внук © (06.11.03 17:50) [4]
Спасибо!
data_arr: двумерный из real (TRealArray = array of real;
han_malign © (06.11.03 17:20) [3]
Проверено Watch"ами - нету ошибки там...
Страницы: 1 вся ветка
Текущий архив: 2003.11.17;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.016 c
