unit UParamTab;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ValEdit;

type
  TParamTabForm = class(TForm)
    ValueListEditor: TValueListEditor;
    procedure FormShow(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
	ParamTabForm: TParamTabForm;

implementation

uses UExecute;

{$R *.dfm}

procedure TParamTabForm.FormShow(Sender: TObject);
var i,j,nbParam : integer;
		S : string;
begin
	//Update valueList
	valueListEditor.Strings.Clear;
	valueListEditor.TitleCaptions[0] := 'Paramètre';
	valueListEditor.TitleCaptions[1] := 'Valeur';

	nbParam := 0;
	for i := 0 to ExecuteForm.DocDOCOMETRE.CANINT.Count - 1
		do if ExecuteForm.DocDOCOMETRE.CANINT[i].GENRE = 'PARAMETRE'
		   then inc(nbParam);

	for i := 1 to nbParam
	do for j := 0 to ExecuteForm.DocDOCOMETRE.CANINT.Count - 1
		 do if ExecuteForm.DocDOCOMETRE.CANINT[j].GENRE = 'PARAMETRE'
				then if ExecuteForm.DocDOCOMETRE.CANINT[j].FENUMPAR = i then
						 begin
							 S := '=' + floattostr(ExecuteForm.TAB_PARAM[0][i-1][0]);
							 valueListEditor.Strings.Add(ExecuteForm.DocDOCOMETRE.CANINT[j].NOM+S);
						 end


end;

end.
