Ver Mensaje Individual
  #7  
Antiguo 19-09-2010
szunny18 szunny18 is offline
Registrado
 
Registrado: sep 2010
Posts: 7
Reputación: 0
szunny18 Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
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...
Responder Con Cita