procedimiento que muestre por pantalla vector
 

Hola!!! como puedo realizar un procedimiento que muestre por pantalla el contenido de un vector que fue declarado globalmente :confused: desde ya le agradezco su respuesta

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. :)

Listo, un sobresaliente para el examen ;)

Mejor que lo pruebe primero !!! :D:D:D

Saludos. :)

respuesta
 

hola!!!gracias por la respuesta, lo estoy probando. ah! y en el caso de utilizar el label (edit) en lugar de memos, es que todavia no se utilizar esa aplicacion, ya que hace poco estoy utilizando este programa y hay cosas que todavia no las se utilizar...besos y gracias por tenerme paciencia...

Memo: Memo1.Lines.Add(IntToStr(Vector[i]))

Edit: Edit1.Text := Edit1.Text +')('+ IntToStr(Vector[i]);

Label: Label1.Caption := Label1.Caption +')('+ IntToStr(Vector[i]);

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...

Creo que estoy en modo invisible, nadie me ve a mí ni lo que escribo :confused:

Perdón, no sabia que esras tan suceptible... Lo que pasa es que estoy estudiando Analista programador y apenas estoy tratando de entender Delphi y como dije antes hay cosas nuevas que todavia no las entiendo pero todo es cuestion de práctica no?... y como el otro chico me mostro bien el procedimiento quise entenderlo por que lo probe pero no me salio por eso le pedi que me diga que sucede con el procedimiento si en lugar de utilizar Memo(que no lo entiendo como se utiliza) se utiliza el Label (que si lo entiendo)...Disculpa de nuevo.. la version de Delphi que tengo es Delphi 3...gracias

Hola szunny.

Es que si mirás más arriba, Casimiro ya dió respuesta a tu pregunta...
Y por tu anteúltimo post, pareciera que no la hubieras leido.
Es más, te puso tres posibilidades acorde a los conocimientos que dijiste que manejabas.

Solo tenés que reemplazar la línea que dice Memo1 por Edit1 o por Label1 (más el código que puso Casimiro en cada caso).

Saludos. :)

Es broma, se me olvidó poner la carita :)

De todas formas, en el código que he escrito tienes para memo, label o edit... a elegir.


Edito:ecfisa ya había contestado y no lo había visto :D