Ukladani a nahravani StringGridu – Delphi – Fórum – Programujte.com

zdravim, mam tabulku StringGrid ktera obsahuje nejaka cisla, jak mam udelat abych tabulku ulozil do souboru? je jedno jak bo do jakeho formatu ale aby se dala ta data posleze nahrat zpet. predem diky za odpoved.

No pokud StringGrid nema metodu SaveToFile, jakoze asi nema, tak si budes muset napsat vlastni funkci, ktera to ulozi a pak druhou, ktera data zase nahraje.....

Format souboru bych asi zvolil:

pocetRadku
pocetSloupcu
radek1 - Slopec1 sloupec2 sloupec3 sloupec4
radek2 - sloupec1 ....

Nevim jestli jsem ti pomohl, ale pokud ne tak napis a budem pokracovat :)

To joudicek : No díky ale ete estli bys mi poradil trochu s tou funkcí sem precejen trochu zacatecnik.Dik

zeby sa s tym dalo pracovat ako s maticou...

To MiMi : rikam ze sem zacatecnik takze si mi jako moc neporadil

for i:=1 to ColCount do

	for j:=1 to RowCount do

		writeln(subor,StringGrid1.Cells[i,j]);

for i:=1 to ColCount do
for j:=1 to RowCount do
writeln(subor,StringGrid1.Cells[i,j]);

Prechadzas tym ako dvojrozmernym polom ColCount je pocet stlpcov a RowCount je pocet riadkov

Pisu to z hlavy, budou v tom chyby....

const cesta = '.\\StringGrid.txt';





Procedure ulozSG(var SG:TStringGrid);

var Col,row,i,j:integer;

     f:Text;

begin

	

	Col := SG.ColCount;

	row := SG.RowCount;



	Assign(f,cesta);

        Rewrite(f);



	Writeln(f,Col);

        WriteLn(f, row);



        for(i:= 0 to Row) do                   {muze byt chyba, nejsem si jistej jestli SG ma cislovany radky a sloupce od 0}

        begin

             for k:= 0 to Col do 

             begin

                    Writeln(f,SG.Cells[j][i]);            {na kazdy radek jedna polozka....}          

             end;

        end;



       close(f);

end;





procedure nactiSG(var SG:TStringGrid);

var f:Text;

     Col,Row,i,j:integer;

begin

	Assign(f,cesta);

       reset(f);



      Readln(f,Col);

      ReadLn(f,Row);



      SG.ColCount := Col;

      SG.RowCount := Row;



      for i:= 0 to row do begin

            for j:= 0 to col do begin

                  ReadLn(SG.Cells[j][i]) 

            end;

      end;

      

      Close(f);

end;

jj diky moc, je tam par chybek ale jen s touhle si nevim rady -

f:text;

[Error] Unit1.pas(82): Constant or type identifier expected

To Syny : Zkus tam dat misto text, TextFile .....