procedure TGE_GridSpaceObject.Save(const FileName:string); 
var
    lst:PStrList;
    i,j:integer;
    s:string;
begin
  if copy(FileName, length(FileName)-2, 3) = 'txt' then
    begin
      lst := NewStrList;
      for i := 0 to mh-1 do
        begin
          s := '';
          for j := 0 to mw-1 do
            s := s + int2str(GetCell(j , i));
          lst.Add(s);
        end;
	  lst.SaveToFile(FileName);
      lst.free;
    end
  else
    begin
	  //other format
    end;
end;