Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Multiplicar 2 celdas de un stringgrid (https://www.clubdelphi.com/foros/showthread.php?t=61512)

Elite237 11-11-2008 00:51:30

Multiplicar 2 celdas de un stringgrid
 
Alguien sabe como multiplicar 2 celdas de un stringgrid, para que aparezca el resultado en la siguiente columna.Ejemplo:

Código Delphi [-]
+--+---+---+
 7  |  5 | 35 |
---+---+---+
8   | 5  | 40 |
-------------

Le estoy intentando asi:
Código Delphi [-]
  y:=sgGrafica.cells[0,sgGrafica.RowCount].asstring*sgGrafica.cells[1.sgGrafica.RowCount].asstring
sgGrafica.cells[2,sgGrafica.RowCount]:=inttostr(y);

De esta manera me manda el siguiente error:
Código Delphi [-]
[Error] Unit1.pas(595): Record, object or class type required

Elite237 11-11-2008 01:07:54

Le quite el .asstring a todos y me manda este nuevo error:

Código Delphi [-]
[Error] Unit1.pas(596): Operator not applicable to this operand type

Lo deje asi mi codigo:
Código Delphi [-]
y:=(sgGrafica.cells[2,sgGrafica.RowCount-0])*(sgGrafica.cells[1,sgGrafica.RowCount-2])
sgGrafica.cells[2,sgGrafica.RowCount-2]:=inttostr(y);

roman 11-11-2008 01:19:53

Debes entender que el contenido de una celda es texto y por tanto debes convertir a números su contenido antes de hacer la multiplicación. Una vez hecha la operación, conviertes de vuelta en texto. Por ejemplo, suponiendo que se trata de números enteros:

Código Delphi [-]
var
  N, M, P: Integer;

begin
  N := StrToInt(StringGrid1.Cells[..,..]); // una celda
  M := StrToInt(StringGrid1.Cells[..,..]); // la otra celda

  P := N * M; // multiplicas

  StringGrid1.Cells[....] := IntToStr(P); // conversión de entero a string
end;

// Saludos

Elite237 11-11-2008 02:02:59

Gracias Roman.No sabien como se hacia, y es lo que intentaba hacer, por eso es que me da gusto que me hayas contestado y dicho como hacerlo correctamente.


La franja horaria es GMT +2. Ahora son las 14:25:03.

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