Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-02-2005
sergio_015 sergio_015 is offline
Miembro
 
Registrado: jul 2003
Ubicación: Aguascalientes, Ags.
Posts: 46
Poder: 0
sergio_015 Va por buen camino
StringGrid y contadores

Que tal, estoy haciendo un stringgrid con valores de 0 y 1 solamente. Necesito sacar las lineas que tengan mas "1". Exactamente seria la mitad, de las lineas. Por ejemplo si mi matriz es de 20*5, tengo que sacar las 10 lineas o filas q tengan mas "1". El stringgrid lo rlleno de manera aleatoria, bnasicamente lo q requiero es contar cuantos "1" tiene la fila y escoger las 10 mas altas. Espro me puedan ayudar. Gracias
__________________
Sergio Esquivel Arredondo
T.S.U. Informatica
Responder Con Cita
  #2  
Antiguo 01-03-2005
el_enigma1 el_enigma1 is offline
Miembro
 
Registrado: may 2004
Posts: 57
Poder: 20
el_enigma1 Va por buen camino
el mismo tema

Cita:
Empezado por sergio_015
Que tal, estoy haciendo un stringgrid con valores de 0 y 1 solamente. Necesito sacar las lineas que tengan mas "1". Exactamente seria la mitad, de las lineas. Por ejemplo si mi matriz es de 20*5, tengo que sacar las 10 lineas o filas q tengan mas "1". El stringgrid lo rlleno de manera aleatoria, bnasicamente lo q requiero es contar cuantos "1" tiene la fila y escoger las 10 mas altas. Espro me puedan ayudar. Gracias
En StringGrid.Cells[numeroColumna,numeroRenglon] puedes obtener el dato y luego lo comparas con 0 o 1 segun prefieras.
Código:
  indice1 := 0;//integer
  indice2 := 0;//integer
  while indice1 < StringGrid.ColCount do
    begin
  	while indice2 < stringGrid.RowCount do
  	  begin
  		 if  StringGrid.Cells[indice1, indice2] =1 then
  		   begin
  				contadorDeUnos = contadorDeUnos + 1;
  			   //aqui te lo dejo a ti
  			   //puedes usar un contador para cada fila indicada por indice 1
  			   //un contador para todas y meter cada valor en otro arreglo y
  			   //luego compararlo, etc.
  			   //el caso es que bueno ya tue decides si quieres la respuesta 
  			   //completa o quieres probar por ti
  		   end;
  
  		 indice2 := indice2 + 1;
  	  end:
  	 indice1 := indice1 + 1;
    end;
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 20:29:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi