Hola odrack,
Analicemos lo que tu pides:
1. Necesitas determinar si un usuario existe en la base de datos
2. En caso de existir no se debe hacer nada
3. Sino existe entonces hay que agregarlo
¿Qué se necesita para conseguir esto?
Para saber si existe el usuario necesitamos hacer una consulta a la base de datos. Esta consulta debe ser restrictiva. Tu error es muy conceptual: ¡No se necesita recorrer toda la tabla para saber si existe!
La verdadera consulta SQL que debes emplear debe ser así:
Código SQL
[-]select id_usuario
from usuarios
where usuario.Nombre = :pNombre
pNombre es un parámetro y se los distingue por esos dos puntos que lo anteceden. Recomiendo el uso de éstos.
Ahora bien, en la consulta pedimos que nos busque al usuario por un nombre. Entonces antes de lanzar dicha consulta debemos hacer algo como esto:
Código Delphi
[-]ADOQuery1.Parameters.ParamByName('pNombre').Value := Edit1.Text;
ADOQuery1.Parameters.ParamByName('pNombre').DataType := ftString;
Suponiendo que son Componentes ADO. Hice el supuesto de que en Edit1 escribimos el nombre del usuario que deseamos buscar.
Una vez lanzada la consulta tenemos muchas posibilidades de saber si existe este usuario... no se requiere de ningún bucle. ¿Porqué? Porque supuestamente estamos recibiendo al menos un registo (Esto dependerá de tus circunstancias, pero en fin para ejemplo basta).
Podríamos decir que:
Código Delphi
[-]Existe := ADOQuery1.RecordCount >= 1;
¿Que significa esto? Que si la consulta ha devuelto al menos un registro es porque existe. ¿Recorrí los registros afectados para saber si existe? No... y no es necesario...
basta con saber si la consulta regresa registros.
Y de aqui en más la actividad es muy simple... basta un simple condicional para saber que acción tomar:
Código Delphi
[-]if Existe
then ShowMessage('Este usuario ya existe');
else begin
end;
Creo que con esto se explica mejor la situación y su solución.
Recomiendo una mejor lectura sobre consultas SQL. Tu problema es que haces un select sin restricciones, y asi te ves obligado a examinar los registros... si podemos averiguar a traves de SQL sobre algo en particular vale la pena hacerlo.
Saludos,