StringGrid

[evg_m]

потом еще что за format и что за SL.values? что они делают? не пользовался такими раньше...

1. пишем format ставим курсор на него нажимаем F1 читаем
2. нажимаем F1 пишем format читаем
3. заходим на страницу основы Delphi находим format читаем.
тоже (кроме возможно п.3) для TstingList (точнее Tstrings)

[Serge_Bliznykov]

вы с "Сями" ничего не путаете? "'SG[%d,%d]',[i,j]"
потом еще что за format и что за SL.values? что они делают? не пользовался такими раньше...

вот вам повод начать пользоваться.
Человек постоянно узнаёт что-то новое, осваивает новые технологии и инструменты.

про Format вполне можете почитать в стандартной справке (help) Delphi по F1

про отладку я писал, плохо понимаю как она осуществляется в делфи

честно говоря, мне непонятно и то, как можно не понимать, как отладка осуществляется в Delphi (имхо, суть отладки одинакова во всех отладчиках),
но и самого главного не понимаю - хотите ли Вы научиться отлаживать код и как Вам в этом (если Вы хотите научиться) помочь...

да вы что? о_О может всю тему прочитаете для начала?

перечитал. Без отладки тяжко.. Вот, например, почему в процедуре загрузки не задаётся число строк (RowCount) и столбцов (ColCount) в гриде?
вообще, создаётся такое впечатление, что это нам (форумчанам) нужно найти ошибку в вашем коде, что нам это важнее, чем Вам...

[Serge_Bliznykov]

NewLamer&Programer, замените процедуру чтения из файла на такой код (c) evg_m :

procedure SGLoadFromSL(SG: TStringGrid; SL: TStringList; ds1, ds2, ds3, ds4, ds5, ds6: string); 
var
  i, j: integer;
  r, rez: string;
begin
  for i := 0 to SG.ColCount - 1 do
    for j := 0 to SG.RowCount - 1 do
    begin
      r := format('SG[%d,%d] ', [i, j]);
      rez := Trim(SL.values[r]);
      if pos(';', rez) > 0
        then Delete(rez, pos(';', rez), 1);
      SG.cells[i, j] := rez;
    end;
end;

p.s. конечно, по хорошему в процедуру достаточно передавать только SG: TStringGrid; SL: TStringList;:

procedure SGLoadFromSL(SG: TStringGrid; SL: TStringList);

....
    SGLoadFromSL(StringGrid1, sl);

остальные параметры абсолютно не нужны!


Замечания.
1. Лучше Вам бы взять и код записи и код чтения из файла полностью те, что предложил evg_m!
2. учтите, что у Вас при каждом закрытии файла данные дописываются в конец файла
чтобы этого не было - нужно чистить SL перед сохранением списка в лист: sl.Clear;
3. Вы TStringList создаёте и не освободждаете. В конце программы (на onDestroy формы) допишите либо sl.Free; либо FreeAndNil(sl)