procedimiento que muestre por pantalla vector

[szunny18]

Empezado por ecfisa

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.

Gracias por tu respuesta, pero quisiera saber si en lugar de Utilizar memos se utiliza el label como quedaría en ese caso este procedimiento...