Hola szunny y bienvenido/a.|
Agregá un TMemo y un TButton al Form.
Ejemplo:
Código Delphi
[-]
...
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
procedure MostrarVector;
end;
var
Form1: TForm1;
Vector: array[1..50] of Integer;
implementation {$R *.dfm}
procedure TForm1.MostrarVector;
var
i: Integer;
begin
Memo1.Clear;
for i:= 1 to 50 do
Memo1.Lines.Add(IntToStr(Vector[i]))
end;
Ejemplo de llamada:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
MostrarVector;
end;
Saludos.