F�rum Salvar array inteiro. #384668

26/08/2010

Prezados amigos bom dia, Venho at� v�s para sanar uma d�vida. Tem como eu salvar um arrary inteiro, sem a necessidade de percorre-lo ? Ex. Tenho o seguinte array preenchido :         while not Qupedidos.Eof do
            begin
               Valores[qupedidos.RecNo] := Qupedidos.fieldbyname('notafiscal').AsString ;
               qupedidos.Next;
            end;
E preciso salva-lo no dataset completo sem precisar percorrer uma a um no registro :         DsetConhecObs.AsString := Valores[]; Alguem poderia me ajudar ? Desde j� agrade�o. Delphi 7 + Firebird.

Cleber

Curtir t�pico

+ 0

Responder

Posts

26/08/2010

Wilson Junior

Acho que isto pode lhe ajudar, pelo menos para lhe dar uma base.

var
  stlValores: TStringList;
begin
  stlValores := TStringList.Create;

  while not Qupedidos.Eof do
  begin
    stlValores.Add( Qupedidos.fieldbyname('notafiscal').AsString );

    qupedidos.Next;
  end;

  DsetConhecObs.AsString := stlValores.Text;
end;

{ Para limpar use stlValores.Clear;}

Coloque Classes no uses.

Espero ter colaborado.

Responder

Gostei + 0

27/08/2010

Cleber

Opa, boa tarde,
Muito obrigado era justamente o que eu precisa.
Um abra�o e obrigado pela ajuda.

Responder

Gostei + 0