ayuda con ciclo for que no se repite

[cloayza]

Amigo creo que podrias ahorrarte algunas lines haciendo lo siguiente:

Código Delphi [-]
 //recorro todos los registros del Tstring grig
     For i:=1 to Ffactura.SGFact.RowCount-1 do
      begin
        if Ffactura.SGFact.Cells[0,i]= Trim(wcodigobarras) then
        begin
             {tomo los registros que existen en el flexgrid de acuerdo al registro que introdujeron}
             wcodigomodificar:=Ffactura.SGFact.Cells[0,i]; //codigo barras
             wdescripcionmodificar:=Ffactura.SGFact.Cells[1,i]; //descripcion
             wcantidadmodificar:=StrToInt(Ffactura.SGFact.Cells[2,i]); //cantidad venta
             wpreciomodificar:=wprecioventa;
             wdescuentomodificar:=StrToFloat(Ffactura.SGFact.Cells[4,i]);//descuento
             {valido la variable de cantidad para ver si es mayor a uno}

             Ffactura.SGFact.Cells[0,i]  :=wcodigobarras;//codigobarras
               Ffactura.SGFact.Cells[1,i]:=wdescripcionmodificar;//descripcion

             if wcantidad_venta<>0 then
               wventa_totalmodificada:=wcantidadmodificar+wcantidad_venta
             else
               wventa_totalmodificada:=wcantidadmodificar+1;

             Ffactura.SGFact.Cells[2,i]:=IntToStr(wventa_totalmodificada);//asigno cantidad a celda
             wprecio_total:=(wventa_totalmodificada*wprecioventa);//multiplico la cantidad por precio
             Ffactura.SGFact.Cells[5,i] := Format('%8.2f',[wprecio_total]);
             calcula_totales;
             wcantidad_venta:=0;
             Ffactura.txtcodigo.SetFocus;
             wcodigobarras:='';
             Exit;

          {termino la informacion proporcionada}
        end;
      end;
    end;

Saludos