Ver Mensaje Individual
  #3  
Antiguo 10-03-2012
guitarrahugo guitarrahugo is offline
Miembro
NULL
 
Registrado: ene 2012
Posts: 15
Reputación: 0
guitarrahugo Va por buen camino
Hola gracias por tu respuesta y por tu tiempo. Este es el código que carga los resultados y sus respectivas fechas de la base de datos. El tema es que me los ordena mal, y no me doy cuenta porque.
Código Delphi [-]
       
      for I := 1 to NumeroResultados  do
             begin
                    nomen.RecordSetIndex:= i; 
                    y := StrToFloat(StringReplace(Nomen.field['RESULTADO'], '.',',',[rfReplaceAll])); 
                    x := StrToFloat(copy( (Nomen.field['fecha']),1,5));
                    titulo:= copy( (Nomen.field['fecha']),1,5);

                   if strToInt(Nomen.field['ANULADO'])= 1 then
                    begin
                          Series5.AddBubble(x,y,0.2,titulo); //grafica punto anulado
                          PuntoAnulado := PuntoAnulado + 1
                    end
                    else begin
                          Series1.AddBubble(x,y,0.2,titulo);
                          CantResultados := CantResultados + 1;
                          SumaResultados :=  SumaResultados + StrToFloat(StringReplace(Nomen.field['RESULTADO'], '.',',',[rfReplaceAll]));
                          ValordeAnalisis[i]:= StrToFloat(StringReplace(Nomen.field['RESULTADO'], '.',',',[rfReplaceAll]));
                     end;

             
                  if GraficaHasta < StrToInt(copy( (Nomen.field['fecha']),1,2)) + 2 then
                     GraficaHasta := StrToInt(copy( (Nomen.field['fecha']),1,2)) + 2;

              end;
Responder Con Cita