Llenar un String con datos de una SQL

[Neftali [Germán.Estévez]]

Empezado por jafera

...pero me entra en un bucle sin fin.

Es lo mínimo que puede pasar si uno no cambia de registro...

Código Delphi [-]
SQLZona1.Close; 
SQLZOna1.Open; 
While not (SQLZona1.Eof) do begin
   Zona1 := Zona1 + SQLZona1.Fields[0].AsString;        
   SQLZona1.Next;
end;