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

[Utkin]

Так - формат который предлагаете Вы, он Ваш собственный или есть какие-то требования? Ну там преподаватель, заказчик и пр. Есть и другие решения, более наглядные.

[Skalp]

Сообщение от Utkin

Так - формат который предлагаете Вы, он Ваш собственный или есть какие-то требования? Ну там преподаватель, заказчик и пр. Есть и другие решения, более наглядные.

Мой собственный, требований никаких нет )
Я бы взглянул на Ваши решения.

[Serge_Bliznykov]

Skalp

я тут на форуме неоднократно выкладывал примеры чтения/записи...

посмотрите вот эти темы.
может поможет чем...

Загрузка SthingGrid 'a

Работа со Stringgrid

Ну и добавьте своё преобразование (для сжатия/расжатия), если хотите..

[Skalp]

Сообщение от Serge_Bliznykov

Skalp

я тут на форуме неоднократно выкладывал примеры чтения/записи...

посмотрите вот эти темы.
может поможет чем...

Загрузка SthingGrid 'a

Работа со Stringgrid

Ну и добавьте своё преобразование (для сжатия/расжатия), если хотите..

Не обижайся, но я не люблю записывать/считывать информацию из файлов посредством AssignFile, мне файловые потоки больше по душе )

Да ладно с чтением из файла, помог бы лучше с расшифровкой и последующей записью в массив.
Вот алгоритм шифрования:

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+';';
        end;

[Serge_Bliznykov]

Не обижайся, но я не люблю записывать/считывать информацию из файлов посредством AssignFile, мне файловые потоки больше по душе )

Да чего ж обижаться то.
я тоже считаю, что файловые потоки лучше использовать.

я только не вижу, в чём у тебя проблема.
прочитать то, что ты записываешь, легко. Если код записи такой, как ты привёл у себя в начальных постах (см. страница 1 данной темы),
то прочитать в строку можно так:

var BopStream : TFileStream;
    str : AnsiString;
begin
   if not FileExists('namefile.ddd') then begin
     Application.MessageBox('Файл не найден!', 'Ошибка', MB_ICONERROR or MB_OK);
     Exit;
   end;
   BopStream := TFileStream.Create('namefile.ddd', fmOpenRead );
   if BopStream.Size = 0 then str := ''
   else begin
     SetLength(str, BopStream.Size);
     BopStream.ReadBuffer(str[1], BopStream.Size);
   end;

а потом парсить строчку и заполнять стрингрид.

только я не понимаю, раз уж Вы используете файловые потоки, то запишите вначале ДВА Integer'а в файл: количество строк и количество столбцов стрингрида.
да и длину строки тоже неплохо бы сохранять...

показать пример?...

[Skalp]

Извлечь строчку из файла я смогу, проблема в том, чтобы эту строчку обратно занести в двухмерный массив. Строчка размечена двумя разделителями, один отделяет столбцы другой стоки.
Сейчас напишу, что конкретно я хочу сделать.

[Skalp]

Есть файл, в нем сохранена информация в виде:

blablabla%blablabla%blablabla%;blabla%blabla%blabla%;bla%bla%bla%;

У массива есть измерения i,j.

Разделитель "%" делит йотые элементы, а ";" делит итые строки массива.

Вот как строку такого вида преобразовать в двухмерный массив используя разделители ?

Все было бы прекрасно, но меня смущает то, что перед каждым разделителем строк стоит разделитель столбцов. Не знаю как с этим быть.

[Zer0]

получаешь строку и заменяешь "%;" на ";":

StringReplace(str,'%;',';',[rfReplaceAll]);

один из варинатов

[Mad_Cat]

цикл while спасет вас. идете по строке по достижению ; увеличиваете № строки и пишете уже в нее при этом я думаю сами догадаетесь как номер столбца увеличивать и когда сбрасывать в начало и т.д.

[Skalp]

Сообщение от Zer0

получаешь строку и заменяешь "%;" на ";":

Точно, вот почему я сам до этого не догадался ?)))