Dovresti specificare la tecnologia con cui accedi ai dati (ADO? BDE? ...)...
Comunque, ti scrivo una porzione di codice che dovrebbe fare al caso tuo e che può essere facilmente adattata a qualsiasi situazione.
codice:
procedure TForm1.Button1Click(Sender: TObject);
var
qry: TADOQuery;
begin
qry := TADOQuery.Create(nil);
try
qry.Connection := ADOConnection1;
qry.SQL.Text := 'SELECT * FROM TB_CLIENTI';
qry.Open;
while not qry.Eof do
begin
// Elaborazione riga per riga della query
qry.Next;
end;
qry.Close;
finally
qry.Free;
end;
end;
Spiegazione in breve: viene creato a runtime un componente ADOQuery del quale si garantisce la distruzione al termine dell'uso tramite il costrutto try...finally. La sua proprietà Connection viene impostata per sapere su quale database (o connessione alla base dati generica) si deve eseguire la query. Successivamente, viene impostato il testo della query tramite la proprietà SQL. Con il metodo Open, lanciamo l'elaborazione e riceviamo i record richiesti di cui facciamo la scansione compiendo l'elaborazione che ci interessa.
Al termine dell'elaborazione, la query viene chiusa e distrutta.
Se utilizzi componenti diversi, dovrebbe essere abbastanza semplice sostituire i tipi riportati nell'esempio con i tipi relativi ai componenti che utilizzi.
Ciao! 
Permessi di invio
Rispondi quotando