Управление матрицей, сохраненной из Memo

[sergobrit]

Здравствуйте, всех с наступающим. У меня вопрос: я пытаюсь написать код, который строит спектрограмму для данных (пока .wav или .dat). У меня есть кусок кода, который строит картинку на Image из массива данных, сохраненного в .txt файле (все примеры для наглядности во вложении). Задумка такая, что у меня есть файл какой-то длины N. Я разбиваю его на K участков, длиной N1 каждый. От каждого беру БПФ, немножко химичу и вывожу сумму этих преобразованных участков, которые должны мне дать спектрограмму.
Главная проблема в том, что я не могу сохранить матрицу в файл, чтобы у нее было задаваемое мной количество строк, и, соответственно, столбцов. Я подумал использовать функцию Length, которая возвращает количество символов в строке, но она, вроде, только для чтения, или я неправильно использую ее.
Весь проект, картинка желаемой спектрограммы и файл с матрицей (в архиве в папке data) во вложении . За любую помощь заранее огромное спасибо.

[chertovich]

матрица - это всего лишь массив массивов, поэтому записывайте последовательно элементы массива:

var
  I, J: Integer;
  a: array [1..10, 1..20] of Integer;
begin
  for I := 1 to 10 do
    for J := 1 to 20 do
    begin
      Memo1.Lines.Add(IntToStr(a[I, J]));
    end;

[sergobrit]

Спасибо за подсказку, но я не понимаю, как сохранить значения, которые у меня хранятся в переменной s , в этот массив.

Memo1.Clear;
     FastFourierTransform(Xk,n,False);
     for i := 0 to 2*n - 1 do
     begin
     Max:=Abs(Xk[1]);
     //Form1.fs2.AddXY(i,Abs(Xk[i]));
     s:=s+' '+ FloatToStr(round(Abs(Xk[i]/Max)));
     end;

     begin
     for I := 1 to K do
     for J := 1 to N1 do
     begin
       SetLength(a, K, N1);

       Memo1.Lines.Add(IntToStr(K) + ' ' + IntToStr(N1) + #13#10 + IntToStr(a[I, J]));
     end;
     end;
     //запись матрицы в файл
     memo1.lines.SaveToFile('Matrix.txt');

[Mad_Cat]

а что мешает после

     s:=s+' '+ FloatToStr(round(Abs(Xk[i]/Max)));

вот это

round(Abs(Xk[i]/Max

записать сразу в матрицу?

[sergobrit]

а что мешает после
Код:

s:=s+' '+ FloatToStr(round(Abs(Xk[i]/Max)));

вот это
Код:

round(Abs(Xk[i]/Max

записать сразу в матрицу?

Первоначально (до введения массива a[]) у меня так и было -- после s была строчка Memo1.Add.Lines и сразу сохранение в файл. Вот и была проблема сохранить матрицу заданных размеров.

[Mad_Cat]

откуда вообще берется матрица если Xk у вас Вектор?

[sergobrit]

Да, Xk - вектор. Первоначально я выводил его содержимое в Memo, оттуда сохранял в файл. Далее я матрицу эту вывожу на TImage. Так вот, чтобы вывести ее, нужно чтобы сохранялась она в формате количество строк*количество столбцов, которые K*N1 соответственно. В строчке

Memo1.Lines.Add(IntToStr(K) + ' ' + IntToStr(N1) + #13#10 + IntToStr(a[I, J]));

, где вместо массива a[] стоял s, я вывожу сначала размерность матрицы, потом с новой строчки добавляю сами данные. Ну так когда я просто выводил s -- он записывал значения подряд, не ограничивая количество столбцов. chertovich посоветовал записывать матрицу через массив массивов a[] (первый коммент), вот только я не знаю, как мне данные сначала сохранить в этот двумерный массив.

[Mad_Cat]

var f:textfile;
{...}
assignfile(f,'output.txt');
rewrite(f);
writeln(f,K ,' ',N1);
for i:=1 to k do
begin
for j:=1 to n1 do
write(f,a[i,j],' ');
writeln(f);
end;
closefile(f);

[sergobrit]

Спасибо за код, Mad_Cat. Но тут, если я не ошибаюсь, массив записывается в текстовый файл. У меня проблема данные Xk (или s) поместить в этот массив. А сохранение у меня идет прямо из компонента Memo в файл, откуда я потом снова читаю (во вложении в самом начале исходник, если интересно или что-то неясно). На данный момент a[i,j] - пустой. Данные все в векторе s

[sergobrit]

Поскольку тема как-то заглохла, а решение своей проблемы я не нашел, перефразирую:
а возможно ли в самом компоненте Memo регулировать количество строк/столбцов. У него есть свойство Lines, вот только не соображу, как задавать количество строк.
А возможно ли данные (они содержатся в векторе или массиве, не важно) поместить в компонент Stringgrid в виде матрицы уже заданной размерности? Ведь мне главное в текстовый файл сохранить правильную матрицу, не обязательно из Memo.