Foros Club Delphi - Urgente!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Urgente!! (https://www.clubdelphi.com/foros/showthread.php?t=81494)

gonzabec

19-11-2012 20:56:30

Urgente!!

Buenas! Tengo un problema que no se como solucionar. Estoy trabajando con base de datos en delphi, y lo que me pasa es que se me clava el .exe cuando ejecuto con este codigo. Lo componentes que trabajo son TTable, DBGrid y DataSource, si alguien me pudiera decir, porq este codigo rompe el programa.
Lo que hago es pasar todo el contenido a Strin Grid y despues trato de recorrer y buscar similitud con TEdit.
Muchas Gracias.
Saludos.

encontrado:=false;
i:=1;
while not (encontrado) and (i <= Listas.sgCanciones.RowCount -1) do
if (Listas.sgCanciones.Cells[0,i] = txtBuscador.Text) then begin
encontrado:=True;
Listas.sgCanciones.RowCount:=Listas.sgCanciones.RowCount+1;
end;
end
end;

ecfisa

19-11-2012 21:12:33

Hola gonzabec.

Título, falta de etiquetas, falta de detalles,... has roto casi todas las normas de Club Delphi en un solo mensaje! :)

A ver si primero podemos aclarar el código:

Código Delphi [-]var
  encontrado: Boolean;
  i: Integer;
begin
  encontrado:=false;
  i:= 1;
  L
  while not (encontrado) and (i <= Listas.sgCanciones.RowCount -1) do
  begin
    if (Listas.sgCanciones.Cells[0,i] = txtBuscador.Text) then
    begin
      encontrado := True;
      Listas.sgCanciones.RowCount:= Listas.sgCanciones.RowCount+1;
    end;
  end
end;

Si lo acomodé correctamente, lo primero que veo es que no incrementas el valor de 'i', por lo que no salis del ciclo while:

Código Delphi [-]var
  encontrado: Boolean;
  i: Integer;
begin
  encontrado:=false;
  i:= 1;
  while not encontrado and (i <= Listas.sgCanciones.RowCount -1) do
  begin
    if (Listas.sgCanciones.Cells[0,i] = txtBuscador.Text) then
    begin
      encontrado := True;
      Listas.sgCanciones.RowCount:= Listas.sgCanciones.RowCount+1;
    end;
    Inc(i); // <=== por ejemplo aquí
  end
end;

Saludos. :)

cloayza

19-11-2012 23:37:43

Cita:

Empezado por ecfisa (Mensaje 449885)

Hola gonzabec.

Si lo acomodé correctamente, lo primero que veo es que no incrementas el valor de 'i', por lo que no salis del ciclo while:

Código Delphi [-]var
  encontrado: Boolean;
  i: Integer;
begin
  encontrado:=false;
  i:= 1;
  while (i <= Listas.sgCanciones.RowCount -1) do
  begin
    if (Listas.sgCanciones.Cells[0,i] = txtBuscador.Text) then
    begin
          encontrado := True;
          break;
    end;
      //Listas.sgCanciones.RowCount:= Listas.sgCanciones.RowCount+1; Para que aumentar el número de filas del Grid...?

    Inc(i); // <=== por ejemplo aquí
  end
  //Creo interpretar que cuando lo encuentra debe posicionarse en la fila correspondiente...
 
  if encontrado then
     Listas.sgCanciones.Row:=i;
end;

Saludos. :)

Si no es así...olvida lo que digo.

Un abrazo

jpgonzalez

20-11-2012 00:32:36

Cita:

Empezado por cloayza (Mensaje 449895)

Si no es así...olvida lo que digo.

Un abrazo

Código Delphi [-]if (Listas.sgCanciones.Cells[0,i] = txtBuscador.Text) then begin
   encontrado := True;
   break;
end
else begin
    Listas.sgCanciones.RowCount:= Listas.sgCanciones.RowCount+1;   // si lo que hace es pasar al siguiente, debe estar en el else 
end;

Por lo que entendi de tu codigo, estas pasando al siguiente de la lista cuando lo encuentras, en lugar de pasar al siguiente si no lo haces.
Abrazo!

cloayza

20-11-2012 01:01:43

Cita:

Empezado por jpgonzalez (Mensaje 449901)

Código Delphi [-]if (Listas.sgCanciones.Cells[0,i] = txtBuscador.Text) then begin
   encontrado := True;
   break;
end
else begin
    Listas.sgCanciones.RowCount:= Listas.sgCanciones.RowCount+1;   // si lo que hace es pasar al siguiente, debe estar en el else 
end;

Por lo que entendi de tu codigo, estas pasando al siguiente de la lista cuando lo encuentras, en lugar de pasar al siguiente si no lo haces.
Abrazo!

Amigo lo que sucede es que al incluir la linea:

Código Delphi [-] Listas.sgCanciones.RowCount:= Listas.sgCanciones.RowCount+1;

El ciclo se tornará infinito, ya que le estas agregando una nueva fila al grid...:confused:

ecfisa

20-11-2012 02:13:28

Hola.

Yo tampoco entiendo el por que de esa línea, pero según lo veo, sólo agrega una fila y es cuando halla una igualdad con la propiedad Text del Edit.

Es decir si Cells[0, i] <> txtBuscador.Text, no se agrega ninguna columna.

Y s iCells[0, i] = txtBuscador.Text, :

Pone en verdadero a 'encontrado'.
Agrega una línea al StringGrid. (no sé por que motivo).
Incrementa a 'i'.
Sale del ciclo while ya que 'encontrado' es verdadero.

Código Delphi [-]...
 encontrado:=false;
  i:= 1;
  while not encontrado and (i <= Listas.sgCanciones.RowCount -1) do
  begin
    if (Listas.sgCanciones.Cells[0,i] = txtBuscador.Text) then
    begin
      encontrado := True;
      Listas.sgCanciones.RowCount:= Listas.sgCanciones.RowCount+1;
    end;
    Inc(i); // <=== por ejemplo aquí
  end
...

Saludos.:)

jpgonzalez

20-11-2012 14:03:49

Cita:

Empezado por cloayza (Mensaje 449904)

Amigo lo que sucede es que al incluir la linea:

Código Delphi [-] Listas.sgCanciones.RowCount:= Listas.sgCanciones.RowCount+1;

El ciclo se tornará infinito, ya que le estas agregando una nueva fila al grid...:confused:

Ok, es cierto lo que dices... de todas maneras, creo que el error esta en que NUNCA incrementa el valor de la variable "i", por lo cual siempre va a valer 1.

Abrazo!

La franja horaria es GMT +2. Ahora son las 04:19:36.