StringGrid

[NewLamer&Programer]

понадобилось реализовать процедуры записи и чтения StringGrid из файла (врожденных то нет...), написал процедуры, выдает ошибку "List index out of bounds" ну никак не соображу что не так... точнее вместо файла я использую StringList, т.к. потом его можно спокойно SL.LoadFromFile, SL.SaveToFile

Procedure SGLoadFromSL(SG: TStringGrid; SL: TStringList; ds1, ds2, ds3, ds4, ds5, ds6: string); //ds - Decimal Separator - по 1 паре разделителей на каждое число и текст
Var i, j, x, y, s1, s2, s3: integer;
begin

s1:= 0;
s2:= 0;
s3:= 0;

for i:= 0 to SG.ColCount-1 do
for j:= 0 to SG.RowCount-1 do

for x:= 0 to SL.Count do
begin
s1:= 0;
s2:= 0;
s3:= 0;

//SG[S1,S2] = S3
for y:= pos(ds1,SL[x])+1 to pos(ds2, sl[x])-1 do Inc(s1); //S1
for y:= pos(ds3,SL[x])+1 to pos(ds4, sl[x])-1 do Inc(s2); //S2
for y:= pos(ds5,SL[x])+1 to pos(ds6, sl[x])-1 do Inc(s3); //S3

if (StrToInt(Copy(SL[x], pos(ds1,SL[x])+1, s1)) = i) and (StrToInt(Copy(SL[x], pos(ds3,SL[x])+1, S2)) = j)
then SG.Cells[i,j]:= Copy(SL[x], pos(ds5, SL[x])+1, s3);
end;

end;

Procedure SGSaveToSL(SG: TStringGrid; SL: TStringList);
Var i, j: integer;
begin
for i:= 0 to SG.ColCount-1 do
for j:= 0 to SG.RowCount-1 do
SL.Add('SG['+IntToStr(i)+','+IntToStr(j)+'] = '+SG.Cells[i,j]+';');
end;

[evg_m]

for x:= 0 to SL.Count do // номер последней строки count-1

[NewLamer&Programer]

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

for x:= 0 to SL.Count do // номер последней строки count-1

о! спасибо не заметил

[NewLamer&Programer]

еще такой трабл: при загрузке из файла, сохраненного с использованием выше описанной процедуры SGSaveToSL, в ячейках появляется "=", как от него избавиться? вызываю вот так: SGLoadFromSL(StringGrid1, SL, '[', ',', ',', ']', #32, ';'); //#32 пробел

[Stilet]

SG['+IntToStr(i)+','+IntToStr(j)+']

Стесняюсь спросить, а зачем именно в такой форме сохранять?
Давай упростим максимально:

Сохранение

var i:integer;
begin
 with TStringList.Create do begin
  with StringGrid1 do  for i:=0 to  RowCount-1 do Add(Rows[i].CommaText);
  SaveToFile(файл);
  Free;
 end;
end;

Считывание:

var i:integer;
begin
 with TStringList.Create do begin
  with StringGrid2 do  for i:=0 to  st.Count-1 do Rows[i].CommaText:=String[i];
  Free;
 end;
end;

Не?

[NewLamer&Programer]

Stilet, омг что это? о_О я просил упрощать? кому как, но имхо у меня было красивее :D пусть это не важно, но чисто эстетически лучше смотриться у меня... потом... боюсь спросить что такое Rows[i].CommaText... и вообще я писал не обработчик событий для одного единственного использования в одной программе, я писал процедуру которую можно будет использовать в разных программах (модуль)

[Stilet]

я просил упрощать?

Что ж. Не буду отвлекать от мук творчества.

боюсь спросить что такое Rows[i].CommaText

Это строка грида, где значения каждой колонки разделены запятой. Используется при сериализации (типа твоей).

и вообще я писал не обработчик событий для одного единственного использования

И где я тебе про обработчик что-то говорю? Читай внимательнее посты.

[NewLamer&Programer]

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

Это строка грида, где значения каждой колонки разделены запятой. Используется при сериализации (типа твоей).

не совсем понял...
а чем вам просто StringGrid.Cells не угодил?

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

И где я тебе про обработчик что-то говорю? Читай внимательнее посты.

ну я имел в виду, то что ты импользуешь уже созданный StringGrid, я же делаю процедуру в которую будет подаваться ссылка на него...

так или иначе я все равно не понял что такое Rows[i].CommaText, на котором ты базируешься... не приходилось как то использовать...

[Smitt&Wesson]

Stilet. я не паскуалист, я сишник но даже глядя на это

with StringGrid2 do

у меня закрадываются смутные сомнения, чо это будет работать. TStringGrid, класс Tobject. Каким образом он с булевой переменной вяжеться?
Может я чего-то недопонимаю?

[Stilet]

Каким образом он с булевой переменной вяжеться?

Не понял... Булинка ту при чем? Это аналог сишого

using(StringGrid2){
 тут обращение к его свойствам без надобности писать имя.
}

Я правда не помню как в Сях такая инструкция описывается точно, но смысл надеюсь донес верный.