Problems when using UnimFieldSet

[aurelioset]

 

hi, how can i clear a UnimFieldSet and write again?

this is my code.

 

procedure TPrincipal.Listagem;
var
FrameSoma : TFFrameProduto;
item      : TUnimFieldContainer;
i,EOF     : Integer;
begin

  eof := MainModule.UniMainModule.DataSourceProd.DataSet.RecordCount;
         MainModule.UniMainModule.DataSourceProd.DataSet.First;
    try
       UnimFieldSet1.BeginUpdate;

       for I := 1 to eof do
       begin
          FrameSoma        := TFFrameProduto.Create(self);
          item             := TUnimFieldContainer.Create(self);
          FrameSoma.Name   := 'frame'+ I.ToString;
          FrameSoma.Parent := item;
         // item.Height      := 50;
          //item.Width       := FPrincipal.Width;

          FrameSoma.UnimLabel1.Caption := (MainModule.UniMainModule.FDQProd.FieldByName('produto').AsString);
          FrameSoma.UnimImage1.Picture.LoadFromFile(MainModule.UniMainModule.FDQProd.FieldByName('imagem').AsString);
          FrameSoma.UnimLabel2.Caption := 'Valor '+(MainModule.UniMainModule.FDQProd.FieldByName('Valor').AsString);
          FrameSoma.UnimLabel3.Caption := (MainModule.UniMainModule.FDQProd.FieldByName('Descricao').AsString);
          item.Parent := UnimFieldSet1;

          begin
           MainModule.UniMainModule.DataSourceProd.DataSet.Next;
           UnimFieldSet1.EndUpdate;

          end;

       end;

      Except

      end

end;

[aurelioset]

 

sorry my poor english

 

[Sherzod]

Hello,

Can you please specify which editon and build of UniGUI are you using?

[aurelioset]

 

 

hi Sherzod, I'm using unigui 1.90.0.1530. I am trying to solve the problem with this code.

procedure TPrincipal.ApagarLista;
var
i,EOF     : Integer;
Campo: TComponent;
begin

  eof := MainModule.UniMainModule.DataSourceProd.DataSet.RecordCount;
         MainModule.UniMainModule.DataSourceProd.DataSet.First;
    try
       for I := 0 to eof do
       begin
       Campo := FindComponent('frame'+ I.ToString);
        if not (Campo = nil) then
         begin
         Campo.Free;
         end;
        end;
        MainModule.UniMainModule.DataSourceProd.DataSet.Next;
    finally
       begin
       UnimFieldSet1.Container.RemoveAll;
       end;

    end;
end;

[Sherzod]

7 minutes ago, aurelioset said:

I'm using unigui 1.90.0.1530

Hi,

Are you using a trial edition?

[aurelioset]

 

no, I was having trouble cleaning up the creation of a component (parent), I believe it worked!

thank you very much Sherzod. it's 2:15am here, I'm already very tired

[Sherzod]

4 hours ago, aurelioset said:

no

Please adjust your forum email address: 

And you can attach a simple testcase to check.