Tenes que iterar sobre "registros": guardar el total en $ y el total en cantidades para cada uno de los 10 productos, después ya sabés como usar esos valores para ponerlos en la otra TStringGrid.Code: Pascal [Select]procedure TForm1.Button1Click(Sender: TObject);var i: integer; p1,..,p10: integer; // totales $ c1,..,c10: integer; // totales cantidadbegin p1 := 0; ... p10 := 0; c1 := 0; ... c10 := 0; for i := 1 to 10000 do begin case registros[i].prod of 1: begin p1 := p1 + registros[i].venta; c1 := c1 + 1; end; 2: begin end; 3: begin end; 4: begin end; 5: begin end; 6: begin end; 7: begin end; 8: begin end; 9: begin end; 10: begin end; end; end;end; Es una forma de hacerlo. Otra forma es tener un array de todos los productos con registros y directamente iterar sobre ello:Code: Pascal [Select]typeresultados = record total_dinero: integer; total_cantidad: integer;end; productos: array[1..10] of resultados; for i:=0 to 10000 dobegin productos[registros.prod].total_dinero += registros[i].venta; productos[registros.prod].total_cantidad += 1;end;
En este caso como el resultado tiene que ir por tarjeta tenés que usar un registro para cada tarjeta:typeresultados = record total_dinero_tarjeta1: integer; //efectivo total_dinero_tarjeta2: integer; // master total_dinero_tarjeta3: integer; //visa total_dinero_tarjeta4: integer; //chequeend;usarias el mismo arrayproductos: array[1..10] of resultados; // todos los productos tienen los 4 medios de pagosumar los 4 totales no es dificil.simplemente usa un if--else para saber en que tarjeta guardar.
Bienvenido. Un consejo: pon títulos descriptivos a los mensajes. "help please :c" no dice nada acerca de tu problema, y mucha gente puede pasar por encima sin entrar siquiera si no saben de qué va el tema. Hazlo también para ayudar al buscador del foro.___________________________Welcome. An advice: use descriptive titles in your messages. "help please :c" doesn't tells about your problem and a lot of people will not read it if they don't know what are you talking about. It also help the forum's search engine.