hente og gemme data

Hvis jeg var dig ville jeg nok bruge INI filer :-) g det er da nemt at håndtere, ellers skal jeg nok hjælpe dig.

/Kallesen

vi antager at din stringgrid er 10 * 10 og har en kolonne foroven og til venstre.

procedure save(destination:string);
var
fl: file of string[30];
i,j: integer;
begin
try
  assingfile(fl,destination);
  rewrite(fl);
  for i := 1 to 10 do
  for j := 1 to 10 do
  write(fl,stringgrid1.cells[i,j]);
finally
  closefile(fl);
end;
end;

procedure load(destination:string);
var
fl: file of string[30];
i,j: integer;
begin
try
  assingfile(fl,destination);
  reset(fl);
  for i := 1 to 10 do
  for j := 1 to 10 do
  read(fl,stringgrid1.cells[i,j]);
finally
  closefile(fl);
end;
end;

dette er skrevet uden delphi så jeg kan ikke garantere at det er fejlfrit.

procedure TForm1.Button1Click(Sender: TObject);
var
  f: textfile;
  i,j: integer;
begin
  assignfile(f,'c:\temp\test.dat');
  rewrite(f);
  writeln(f,inttostr(StringGrid1.colcount));
  writeln(f,inttostr(StringGrid1.rowcount));
  for i := 1 to StringGrid1.colcount do
    for j := 1 to StringGrid1.rowcount do
      writeln(f,StringGrid1.cells[i,j]);
  closefile(f);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.cells[2,3] := 'Hej med dig';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  f: textfile;
  i,j: integer;
  s: string;
begin
  assignfile(f,'c:\temp\test.dat');
  reset(f);
  readln(f,s);
  StringGrid1.colcount := strtoint(s);
  readln(f,s);
  StringGrid1.rowcount := strtoint(s);
  for i := 1 to StringGrid1.colcount do
    for j := 1 to StringGrid1.rowcount do
    begin
      readln(f,s);
      StringGrid1.cells[i,j]:= s;
    end;
  closefile(f);
end;

Button1 gemmer indholdet og Button2 henter indholdet.
Størrelsen på din stringgrid gemmes sammen med indholdet, så det følger med.