Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.052 c
14-1105092511
Empleado
2005-01-07 13:08
2005.01.23
Спасибо Королевству


1-1105452842
saNat
2005-01-11 17:14
2005.01.23
Выделенный пункт в ListBox


3-1103521111
КаПиБаРа
2004-12-20 08:38
2005.01.23
Алгоритм реализации расчетов на основе БД


1-1105006087
Afonya
2005-01-06 13:08
2005.01.23
не могу найти DsgnIntf.dcu


14-1104584420
Чеширский_Кот
2005-01-01 16:00
2005.01.23
Кто заметил такую фишку?