Cita:
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;