Tengo q hacer un programa en el cual rellene la fila y columna ingresada por el usuario
Mi codigo es el siguiente:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls;
type
TRellenar = class(TForm)
Tabla: TStringGrid;
Label1: TLabel;
Fila: TEdit;
Rellenar: TButton;
Label2: TLabel;
Columna: TEdit;
Panel: TPanel;
procedure RellenarClick(Sender: TObject);
private
public
end;
var
Rellenar: TRellenar;
implementation
{$R *.dfm}
procedure TRellenar.RellenarClick(Sender: TObject);
var
i,j,m,n:integer;
begin
i:= strtoint (Fila.Text);
j:= strtoint (columna.text);
If (i=0) or (j=0) then
ShowMessage ('Error')
else
begin
for m:=0 to Tabla.ColCount-1 do
begin
for n:=0 to Tabla.RowCount-1 do
begin
Tabla.Cells[m,0]:= '*';
Tabla.Cells[0,n]:= '*';
end;
end;
end;
end;
end.
Necesitaria saber como puedo hacer para q la fila y columna q ingresan en los edits me los relacione con los 2 for de abajo para q se rellene esa fila y columna
gracias