for em componentes diferentes, para gravar em uma tabela.

Question

Boa Noite,Mais uma vez estou com problemasTenho a seguinte situa��o.Preciso fazer um for, em todos os componentes do meu form, os componentes que est�o visiveis eu preciso gravar em uma tabela os valo...

Rjun · Answer

Todos os componentes visuais herdam de TControl. Acho que voc� poderia fazer algo assim:

for i:=0 to Self.ComponentCount -1 do 
begin 
  if (Self.Components[i] as TControl).Visible then 
  begin 
     Close; 
     SQL.Clear;                           
     ParamByName(�edtvalor�).AsString:= (Self.Components[i] as TControl).Text; 
     ParamByName(�edtobs�).AsString:= (Self.Components[i] as TControl).Text; 
   end; 
end;

Lynx · Answer

Com TControl,  n�o funciona o .text...

Davicarrano · Answer

cara, a propriedade Text do Edit � implementada pela classe TCustomEdit que � ancestral do Edit, mas n�o � ancestral do TDateTimePicker....
ou seja, um component do tipo TDateTimePicker n�o possui essa propriedade Text.... Ele possui uma propriedade Date que n�o � do tipo string como a propriedade Text, ou seja armazena data mesmo, do tipo TDate...

entao eu sugiro que voc� fa�a assim...

for i:=0 to Self.ComponentCount -1 do
begin
if Self.Components[i].ClassType = TEdit then
begin
if TEdit(Self.Components[i]).Visible then
begin
Close;
SQL.Clear;
*SQL PARA INSERIR*

ParamByName(�edtvalor�).AsString:= TEdit(Self.Components[i]).Text;
ParamByName(�edtobs�).AsString:= TEdit(Self.Components[i]).Text;
end;
end;

if Self.Components[i].ClassType = TDateTimePicker then
begin
if TDateTimePicker(Self.Components[i]).Visible then
begin
Close;
SQL.Clear;
*SQL PARA INSERIR*

ParamByName(�edtvalor�).AsString:= Datetostr(TDateTimePicker(Self.Components[i]).Date);
ParamByName(�edtobs�).AsString:= DatetoStr(TDateTimePicker(Self.Components[i]).Date);
end;
end;

end;

se der certo manda a resposta....
espero ter ajudado....
um abra�o...

Massuda · Answer

[quote:077ac62774=�lynx�][code:1:077ac62774]...  ParamByName(�edtvalor�).AsString:= (Self.Components&#91;i&93; as TEdit).Text;  ParamByName(�edtobs�).AsString:= (Self.Components&91;i&93; as TEdit).Text;...[/code:1:077ac62774]...da para perceber que o edtvalor, e o edtobs recebem sempre os mesmos valores....[/quote:077ac62774]O seu c�digo est� atribuindo o mesmo valor aos par�metros. Acho que o que voc� queria � que o valor de um determinado Edit fosse para um determinado par�metro; nesse caso, voc� precisa ter algo que relacione o Edit com o par�metro mas, uma vez tendo isso, me parece que n�o faz muito sentido fazer o loop na lista de componentes do form....

Lynx · Answer

na verdade eu poderia controlar tudo, sem fazer um for nos componentes.
Mas controlando tudo vou precisar digitar o comando SQL v�rias vezes.

ous seja:

TDateTimePicker1 edtValor1 edtObs1
TDateTimePicke2 edtValor2 edtObs2
etc...

poderia verificar se n�o est� em branco os componentes acima, e colocar o comando sql para inserir.

O Problema disso que preciso repetir o comando sql para cada linha, de componentes visiveis em meu form

Massuda · Answer

Eu n�o entendi onde encaixa na est�ria o TDateTimePicker, mas acho que voc� poderia fazer algo assim...

type
  TMeuGrupo = record
    DTPicker: TDateTimePicker;
    EditValor: TEdit;
    EditObs: TEdit;
  end;

....

const
  MeuGrupo: array[1..4] of TMeuGrupo = (
    (DTPicker: TDateTimePicker1; EditValor: EdtValor1; EditObs: EdtObs1), 
    ...
    (DTPicker: TDateTimePicker4; EditValor: EdtValor4; EditObs: EdtObs4)
  );

...
  for I := Low(MeuGrupo) to High(MeuGrupo) do begin

    if MeuGrupo[I].EditValor.Visible
      and MeuGrupo[I].EditObs.Visible then begin

      SuaQuery.Close; 
      SuaQuery.SQL.Clear;
      SuaQuery.SQL.Add(...)

      SuaQuery.ParamByName(�edtvalor�).AsString:= MeuGrupo[I].EditValor.Text; 
      SuaQuery.ParamByName(�edtobs�).AsString:= MeuGrupo[I].EditObs.Text; 

      ...
    end;      
  end;

Lynx · Answer

Valeu Massuda, � isso ai mesmo.Eu n�o estava conseguindo fazer o TDateTimePicker, ficar junto com os edit�s na hora de inserir.Agora que voc� postou esse exemplo com array, j� vou conseguir me virarObrigado mesmo :)...

F�rum for em componentes diferentes, para gravar em uma tabela. #299203