type
TMatrizString=array[1..4,1..5] Of string;
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
public
procedure MatrizCeros(var m:TMatrizString);
procedure MatrizPrint(var m:TMatrizString);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MatrizCeros(var m:TMatrizString);
var
i:Integer;
j: Integer;
begin
for i := 1 to 4 do
for j := 1 to 5 do
m[i,j]:='0';
end;
procedure TForm1.MatrizPrint(var m:TMatrizString);
var
i:Integer;
j: Integer;
begin
Memo1.Lines.Clear;
for i := 1 to 4 do
for j := 1 to 5 do
Memo1.Lines.Add(Format('m[%d,%d]=%s',[i,j, m[i,j]]));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
m:TMatrizString;
begin
MatrizCeros(m);
MatrizPrint(m);
end;