procedimiento que muestre por pantalla vector

[szunny18]

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

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

[Casimiro Notevi]

Listo, un sobresaliente para el examen

[ecfisa]

Empezado por Casimiro Notevi

Listo, un sobresaliente para el examen

Mejor que lo pruebe primero !!!

Saludos.

[szunny18]

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

[Casimiro Notevi]

Empezado por szunny18

[..] y en el caso de utilizar el label (edit) en lugar de memos [..]

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

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

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

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

[Casimiro Notevi]

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

[szunny18]

Empezado por Casimiro Notevi

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

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

[ecfisa]

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.

[Casimiro Notevi]

Empezado por szunny18

Perdón, no sabia que esras tan suceptible... [..]

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