Заполнение динамического массива

[Utkin]

Не ну я конечно проморгал немного , но есть еще СтрингЛист. Я почему спрашивал про формат, если можно и свой, то можно кажждую строку двухмерного массива запихивать в обычную текстовую строку. Тогда твой двухмерный массив и будет представлен текстом из кучи строк. Для этого отлично подходит СтрингЛист и он также сохраняет и читает инфу всего одним вызовым функции на каждую операцию. Просто поищи в инете описание TStringList, и на будущее обязательно пригодится (а может и не раз).

[Skalp]

Появилась новая проблема:



Значит есть у меня двумерный динамический массив с неизвестным заранее количеством строк и столбцов.
Есть комбобокс и стринггрид (см. рисунок).
У стринггрида изменяется только вторая колонна, вместе с фиксированной частью.

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

Нажатием на ОКбтн идет заполнение бокса и грида, на событие боксчендж идет перезаполнение элементов грида согласно выбранному элементу бокса из массива.

[Skalp]

Проблема рассосалась сама собой, кому интересно, могу выложить код )

Будут еще проблемы, напишу здесь.
Спс всем.

[Skalp]

procedure TForm1.N2Click(Sender: TObject);
var sTemp: string;
    i,j,k: integer;

begin
  saveDialog1.InitialDir:=GetCurrentDir;
  if SaveDialog1.Execute then
    begin
      ShowMessage('Файл: '+SaveDialog1.FileName+' успешно сохранен.');
      sTemp:='';
      SetLength(mx,ComboBox1.Items.Count,StringGrid1.RowCount);
      k:=1;
      for i:=0 to ComboBox1.Items.Count-1 do
        begin
          for j:=0 to StringGrid1.RowCount-1 do
            begin
              sTemp:=sTemp+mx[i,j]+'%';
            end;
            sTemp:=sTemp+';';
            k:=k+1;
        end;
      sTemp:=sTemp+IntToStr(k-1);
      SaveStrToFile(sTemp,SaveDialog1.FileName);
    end
  else
    ShowMessage('Сохранение файла отменено.');
end;

procedure TForm1.SaveStrToFile(SrcStr: string; FileName: string);
var
  FS: TFileStream;
begin
  FS := TFileStream.Create(FileName, fmCreate);
  try
    FS.WriteBuffer(SrcStr[1], Length(SrcStr) * SizeOf(SrcStr[1]));
  finally
    FS.Free;
  end;
end;

Процедура почти правильно все делает, НО в конце сохраненного файла появляется пара невидимых символов(((
Кто подскажет, что тут не так ?

[Skalp]

up........

[Serge_Bliznykov]

проблема ещё не решена?..