Текущий архив: 2005.01.23;
Скачать: CL | DM;

Вниз

И опять этот долбаный StringGrid...   Найти похожие ветки 

← →
ArchValentin ©   (2005-01-06 15:31) [0]

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

---

← →
KSergey ©   (2005-01-06 15:38) [1]

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

---

← →
Bork   (2005-01-06 15:39) [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;

---

← →
Rock2015   (2005-01-06 16:22) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.03 c