Skrive date til et stringgrid INDE I sit eget program

MyGrid.Cell[1,1] := DateTimeToStr(Now);

VAR
  Strx : String;
begin
  Strx := MyGrid.Cell[MyGrid.Col,MyGrid.Row];
  if InputQuery('Rediger Celle','Indhold :',Strx) then
    MyGrid.Cell[MyGrid.Col,MyGrid.Row] := Strx;
end;

/Martin

Du smider det sidste i OnDblClick event på din Grid

Du kunne også sætte goEditing i Options på din StringGrid, så behøver du ikke dobbeltklik og alt det der, men kan rette direkte i din celle.

Mht. til at gemme/loade
En quick and dirty måde kunne være som følgende. Dog skal du lige huske på at antallet af cols/rows skal være forudbestemt. Der er heller ikke nogen form for fejlhåndtering, men noget du kan arbejde videre på.

procedure TForm1.btnSaveClick(Sender: TObject);
var
  r : integer;
  f  : TextFile;
begin
  AssignFile(f,'c:\grid.txt');
  Rewrite(f);
  for r := 0 to Grid.RowCount do
    WriteLn(f,Grid.Rows[r].CommaText);
  CloseFile(f);
end;

procedure TForm1.btnLoadClick(Sender: TObject);
var
  r : integer;
  f : TextFile;
  s : string;
begin
  AssignFile(f,'c:\grid.txt');
  Reset(f);
  for r := 0 to Grid.RowCount do
  begin
    Readln(f,s);
    Grid.Rows[r].CommaText := s;
  end;
  CloseFile(f);
end;

j-johansen >> skal vi snart ha' noget tilbage melding !!

Jeg vil først lige sige undskyld fordi der er gået så lang tid, men jeg har simpelhen ikke haft tid til at afprøve det (og det har jeg sadig ikke(!)) så derfor deler jeg pointene ligeligt mellem de to der har svaret :o)