| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

И опять этот долбаный StringGrid... [D6, D7, Win95/98, WinME, WinXP]

ArchValentin ©   (2005-01-06 15:31:00) 

Народ, подскажите. Вопрос до безобразия банальный, как всю ту муть, которая введена в StringGridсохранить в файл, а потом, конечно же, при надобности загрузить обратно. Где-то это уже видел, значения не придал, а щас понадобилось...

---

Rock2015   (2005-01-06 16:22:00) [1]

Слушай ты поистини глупый вопрос задаешь!
Руками все это делай!

---

Bork   (2005-01-06 15:39:00) [2]

Procedure tform1.Save(filename:string);
var
f:textfile;
x,y:integer;
begin
assignfile (f,Filename);
rewrite (f);
writeln (f,stringgrid1.colcount);
writeln (f,stringgrid1.rowcount);
For X:=0 to stringgrid1.colcount-1 do
For y:=0 to stringgrid1.rowcount-1 do
writeln (F, stringgrid1.cells[x,y]);
For X:=0 to stringgrid1.colcount-1 do
For y:=0 to stringgrid1.rowcount-1 do
writeln(f,inttostr(stringgrid1.colwidths[y]));
For X:=0 to stringgrid1.colcount-1 do
For y:=0 to stringgrid1.rowcount-1 do
writeln(f,inttostr(stringgrid1.rowheights[x]));
closefile (f);
end;

Procedure tform1.Load(filename:string);
var
f:textfile;
temp,x,y:integer;
tempstr,tempheight,tempwidth:string;
begin
assignfile (f,Filename);
reset(f);
readln(f,temp);
stringgrid1.colcount:=temp;
readln(f,temp);
stringgrid1.rowcount:=temp;
For X:=0 to stringgrid1.colcount-1 do
For y:=0 to stringgrid1.rowcount-1 do begin
readln(F, tempstr);
stringgrid1.cells[x,y]:=tempstr;
end;
For X:=0 to stringgrid1.colcount-1 do
For y:=0 to stringgrid1.rowcount-1 do begin
readln(f,tempwidth);
stringgrid1.colwidths[y]:=strtoint(tempwidth);
end;
For X:=0 to stringgrid1.colcount-1 do
For y:=0 to stringgrid1.rowcount-1 do begin
readln(f,tempheight);
stringgrid1.rowheights[x]:=strtoint(tempheight);
end;
closefile (f);
end;

---

KSergey   (2005-01-06 15:38:00) [3]

См. StringGrid.Cells и пример в справке к AssignFile

---

Наверх