Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-09-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola vbeta.

Hice un ejemplo al vuelo a fin de que te pueda guiar un poco, traté de respetar las formas de tu código. Toma en cuenta que no realiza ningún tipo de verificación de los datos ingresados ni tiene decorado alguno. Y por supuesto, como todo código a las corridas, que no es la única ni la mejor manera de hacerlo.

Tampoco pasa los datos a otro arreglo bidimensional, que es sólo recorrer filas y columnas del StringGrid y copiar valores de celdas, dejo esa tarea (y las que resten) en tus manos
Código Delphi [-]
procedure TForm1.btnComenzarClick(Sender: TObject);
var
  c,f: Integer;
  apro, repro: Integer;
  nom: string;
  nta, max, min, sum: Double;
begin
  with StringGrid1 do
  begin
    FixedCols:= 0;
    FixedRows:= 1;
    ColCount:= FixedCols + StrToInt(EditNroNota.Text) +2; //+2 por nombre y promedio
    RowCount:= StrToInt(EditNroAlum.Text)+ 1; // +1 por los títulos
    // títulos
    Cells[0,0]:= 'Nombre';
    for c:= 1 to ColCount-1 do Cells[c, 0]:= 'Nota '+IntToStr(c);
    Cells[ColCount-1,0]:= 'Promedio';
    //carga
    min:= MaxInt;
    max:= 0;
    for f:= FixedRows to RowCount-1 do
    begin
      c:= 0;
      Cells[c,f]:= InputBox('Notas', 'Ingrese El Nombre','');
      while c < ColCount-2 do
      begin
        Inc(c);
        Cells[c, f]:= InputBox('Notas','Ingrese La Nota','');
        nta:= StrToFloat(Cells[c,f]);
        if nta < min then min:= nta;
        if nta > max then max:= nta
      end;
    end;
    // promedio en la última columna
    for f:= FixedRows to RowCount-1 do
    begin
      sum:= 0;
      for c:= FixedCols+1 to ColCount-2 do
        sum:= sum + StrToFloat(Cells[c,f]);
      Cells[ColCount-1, f]:= Format('%8.2f',[sum/(ColCount-2)]);
    end;
  end;
  // notas mínima y máxima en dos labels
  LabelMinNota.Caption:= Format('Nota máxima: %8.2f',[max]);
  LabelMaxNota.Caption:= Format('Nota mínima: %8.2f',[min]);
end;



Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 03-09-2014 a las 22:01:30.
Responder Con Cita
  #2  
Antiguo 03-09-2014
vbeta vbeta is offline
Registrado
NULL
 
Registrado: sep 2014
Posts: 4
Poder: 0
vbeta Va por buen camino
Smile

jaja muchas gracias
estaba apunto de salir y vi tu respuesta gracias por la molestia tu respuesta me ayuda bastante
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Alguien podra ayudarme con el componente Kazip? pablopessoa Varios 1 08-04-2009 23:18:08
quien puede ayudarme con una consulta narcisoplayero SQL 2 28-05-2007 16:43:30
Error en QReport - Alguien puede ayudarme? tehuacanero Impresión 4 21-09-2005 10:14:03
Problema!!! ayudarme please!! novatillo.. jaajja kye_z SQL 10 22-10-2004 15:45:29
Anima...te hgiacobone Gráficos 6 29-04-2004 19:12:15


La franja horaria es GMT +2. Ahora son las 01:22:57.


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