Respond

Insufficient 2
Hans Pieters (Jan 26 2002 1:41PM)

If you need to create the stringgrids during runtime then you should - in case of calamity - provide the user at least with an elegant way to correct the situation. To show how to provide such a framework I changed your procedure, making it far more robust. Like your example, it doesn't have all the required functionality yet!  

Respond

Insufficient 3
Hans Pieters (Jan 26 2002 1:42PM)

function setup_dispgrid2(
  StrGrid: TStringGrid;
  const Section: string;
  GridIni: TIniFile): boolean;
var
  itmp: integer;
  ctmp: string ;
begin
  result := true;
  try
    with StrGrid do
    begin

      rowcount := GridIni.ReadInteger(Section, 'RowCount', 0);
      if rowcount = 0 then
      begin
        rowcount := 1;
        GridIni.writeinteger(Section, 'RowCount', 0);
        result := false;
      end;

      ColCount := GridIni.ReadInteger(Section, 'ColCount', 0);
      if colcount = 0 then
      begin
        colcount := 1;
        GridIni.writeinteger(Section, 'ColCount', 0);
        result := false;
      end;

      for itmp := 0 to colcount - 1 do
      begin
  
        ctmp := IntToStr(itmp);
        cols[itmp].Clear;

        cols[itmp].Add(GridIni.ReadString(Section, 'ColTitleX' + ctmp, '?'));
        if cells[0, itmp] = '?' then
        begin
          GridIni.writeString(Section, 'ColTitleX' + ctmp, '?');
          result := false;
        end;

        colwidths[itmp] := GridIni.ReadInteger(Section, 'ColWidth' + ctmp, 0);
        if colwidths[itmp] = 0 then
        begin
          colwidths[itmp] := 1;
          GridIni.writeString(Section, 'ColWidth' + ctmp, '0');
          result := false;
        end;

      end;

    end;
    if not result then
      messagebox(
        'Grid was not completely initialized' +
        #13'Open the application Ini-file and ' +
        #13'look for section[' + section + '].' +
        #13'Enter a correct value for the items' +
        #13'with an =? or an =0'+
        #13'Problems? Call Eber Irigoyen');

  except
    result := false;
    messagebox('Grid not ready. Call ...');
  end;
end;

Respond

Insufficient 4
Hans Pieters (Jan 26 2002 1:43PM)

The main difference with your approach is, that when the section is nonexistent the section and keys are created and sets its initial value to a recognisable value. You can help even your most ignorant user by telephone to enter the required parameters. In that case you should start with adaptint the colcount and the rowcount. Restart the application and the procedure with the stringrid. After this the framework will be completed with keys for all columns.

More coding, please.... :-)
Hans Pieters
Respond