Как да запазите файл stringgrid

Бързите ампера като stringgrid запазите файл без двойни цикли

И това, което е най-двойни бримки не са доволни? И това всъщност искате да запазите? От Стария StringGrid или неговите параметри?

> Veetyok # XA0; (30.07.04 17:10)
> Ързи ампера как да се държат в stringgrid без файл
> Двойни цикли

Alt + Print Scrn
Paint.exe, Ctrl + V, Save
В файла? Не цикъла? Ами slavnenko.

Boleshe половината не дърпайте

Чувал съм, че има процедура, която запазва Стария StringGrid от файл с два или три реда, без примка, и ако не знаеш, че просто не мога да отговоря, толкова по-безполезни фрази

Възможно е и един трябва само да напише наследник и той самият ще спаси

Без двойни цикли като нареди.
Ще ти се обадя по-късно профил :)

По дяволите, добре, да ви даде.

Знам, че два начина - тук и потока. Това е най-бързият.

Var е: текстов файл;
х, у: цяло число;
започвам
assignfile (е "Acces.dbs");
презапис (е);
writeln (е, StringGrid1.colcount);
writeln (е, StringGrid1.rowcount);
За X: = 0 до StringGrid1.colcount-1 направи

За Y: = 0 до StringGrid1.rowcount-1 направи
writeln (F, StringGrid1.cells [X, Y]);
closefile (е);

Ето как можете да изтеглите
LOAD

Var
F: текстов файл;
температура, X, Y: цяло число;
tempstr: низ;
започвам
ако FileExists ( "Acces.dbs"), тогава
започвам
assignfile (е "Acces.dbs");
нулиране (е);
readln (F, температура);
My_DataBase.colcount: = температура;
readln (F, температура);
My_DataBase.rowcount: = температура;
За X: = 0 до StringGrid1.colcount-1 направи

тип
.
StringGrid. TStringGrid;

Процедура Podmena;
Var
StringGrid. Nifiga_Ne_StringGrid_A_TListBox;
започвам
# XA0; # XA0; StringGrid.items.savetofile (файла); # XA0;
приключи;

Така luchsche. Без никакви цикли на разходите. ))

процедура SaveComponent (сложен: tcomponent; име на файла: низ);
Var m: tmemorystream;
I: цяло число;
започвам
# XA0; m: = tmemorystream.Create;
# XA0; m.writeComponent (съединение);
# XA0; m.SaveToFile (файла);
# XA0; m.Free;
приключи;

О, и в придатък

процедура LoadComponent (сложен: tcomponent; име на файла: низ);
Var m: tmemorystream;
започвам
ако FileExists (файла) = фалшива след излизане;
m: = tmemorystream.Create;
m.LoadFromFile (файла);
m.readComponent (съединение);
m.Free;
приключи;

> Veetyok (07/30/04 18:40) [12]

"StringGrid.items.savetofile (файла);"
"Това, което елементи?"

Прочетете отговорите НОМЕР 9 ОН наистина работи.

> Veetyok (07/30/04 18:40) [12]

"StringGrid.items.savetofile (файла);"
"Това, което елементи?"

Прочетете отговорите НОМЕР 9 ОН наистина работи.

Извинявам за повторение.