Ver Mensaje Individual
  #2  
Antiguo 18-09-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.

Última edición por ecfisa fecha: 18-09-2010 a las 23:25:31.
Responder Con Cita