Cum de a salva un fișier stringgrid

AMPS Prompt ca stringgrid salva un fișier fără cicluri duble

Și ceea ce este buclele duble nu sunt mulțumiți? Și asta doresc de fapt să salveze? Din StringGrid vechi sau parametrii săi?

> Veetyok # XA0; (30.07.04 17:10)
> AMPS Prompt cum să păstreze în stringgrid fără fișier
> cicluri duble

Alt + Print Scrn
Paint.exe, Ctrl + V, Salvare
În fișierul? Nu există cicluri? Ei bine slavnenko.

Boleshe jumătate nu a trage

Am auzit că există o procedură care păstrează Vechiul StringGrid dintr-un fișier cu două sau trei linii fără looping, iar dacă nu știi că pur și simplu nu poate răspunde, frazele mai inutile

Este posibil și unul trebuie doar să scrie un succesor și el însuși va salva

Fără cicluri duble așa cum a ordonat.
Voi reveni mai târziu cont :)

La naiba, bine, da.

Știu două moduri - aici și de flux. Asta e cel mai rapid.

var f: textfile;
x, y: integer;
începe
assignfile (f, "Acces.dbs");
rescrie (f);
writeln (f, StringGrid1.colcount);
writeln (f, StringGrid1.rowcount);
Pentru X: = 0 până la StringGrid1.colcount-1 do

Pentru y: = 0 până la StringGrid1.rowcount-1 do
writeln (F, StringGrid1.cells [x, y]);
closefile (f);

Iată cum se descarcă
SARCINA

var
f: textfile;
temp, x, y: integer;
tempstr: string;
începe
dacă FileExists ( "Acces.dbs"), atunci
începe
assignfile (f, "Acces.dbs");
reset (f);
readln (f, temp);
My_DataBase.colcount: = temp;
readln (f, temp);
My_DataBase.rowcount: = temp;
Pentru X: = 0 până la StringGrid1.colcount-1 do

tip
.
StringGrid. TStringGrid;

Procedura Podmena;
var
StringGrid. Nifiga_Ne_StringGrid_A_TListBox;
începe
# XA0; # XA0; StringGrid.items.savetofile (filename); # XA0;
se încheie;

Deci luchsche. Fara nici un cost cu cicluri. ;))

Procedura SaveComponent (comp: tcomponent; filename: string);
var m: tmemorystream;
i: integer;
începe
# XA0; m: = tmemorystream.Create;
# XA0; m.writeComponent (comp);
# XA0; m.SaveToFile (filename);
# XA0; m.Free;
se încheie;

Oh, și în apendice

Procedura LoadComponent (comp: tcomponent; filename: string);
var m: tmemorystream;
începe
dacă fileexists (filename) = fals atunci ieșire;
m: = tmemorystream.Create;
m.LoadFromFile (filename);
m.readComponent (comp);
m.Free;
se încheie;

> Veetyok (30.07.04 18:40) [12]

"StringGrid.items.savetofile (filename);"
„Ce elemente?“

Citește răspunsuri NUMBER 9 OH funcționează.

> Veetyok (30.07.04 18:40) [12]

"StringGrid.items.savetofile (filename);"
„Ce elemente?“

Citește răspunsuri NUMBER 9 OH funcționează.

Îmi cer scuze pentru repetarea.