Cita:
Empezado por Casimiro Notevi
No se entiende qué problema tienes ni lo que quieres conseguir.
|
Mira hasta aqui llevo mi ejercicio y lo unico que me falta es que el string grid este del lado derecho asi como en la imagen que puse en el post
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
suma:integer;
begin
suma:=0;
suma:=strtoint(LabeledEdit1.Text)+strtoint(LabeledEdit2.Text);
LabeledEdit3.Text:=inttostr(suma);
StringGrid1.Colcount:=Length(LabeledEdit1.Text);
StringGrid2.Colcount:=Length(LabeledEdit2.Text);
StringGrid3.Colcount:=Length(LabeledEdit3.Text);
begin
with StringGrid1 do
for x:=0 to Colcount -1 do
for y:=0 to RowCount -1 do
begin
Cells[x,y]:=LabeledEdit1.Text[x+1];
end;
end;
begin
with StringGrid2 do
for x:=0 to Colcount -1 do
for y:=0 to RowCount -1 do
begin
Cells[x,y]:=LabeledEdit2.Text[x+1];
end;
end;
begin
with StringGrid3 do
for x:=0 to Colcount -1 do
for y:=0 to RowCount -1 do
begin
Cells[x,y]:=LabeledEdit3.Text[x+1];
end;
end;
end;