Salvar array inteiro.
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.
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
Curtidas 0
Respostas
Wilson Junior
26/08/2010
Acho que isto pode lhe ajudar, pelo menos para lhe dar uma base.
Coloque Classes no uses.
Espero ter colaborado.
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.
GOSTEI 0
Cleber
26/08/2010
Opa, boa tarde,
Muito obrigado era justamente o que eu precisa.
Um abraço e obrigado pela ajuda.
Muito obrigado era justamente o que eu precisa.
Um abraço e obrigado pela ajuda.
GOSTEI 0