Array

[Guest Ronald_A_M]

Não sei quais sãos os componentes que devo colocar no Form1 para que se possa entrar com os elementos de um array tipo vetor.

O programa roda mas para na linha de leitura dos elementos.

Já tentei Edit1 e ListBox1 mas não funcionou.

Por favor, alguém pode me ensinar quais são os componentes para o programa ler as entradas no Form ?

Obrigado

Ronald.

unit UnitExemploVetor;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, ValEdit;

type

TForm1 = class(TForm)

ListBox1: TListBox;

ListBox2: TListBox;

BtnMostrar: TButton;

ValueListEditor1: TValueListEditor;

procedure BtnMostrarClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtnMostrarClick(Sender: TObject);

var

A, B : array[1..5] of integer;

I: integer;

begin{ *** Entrada dos Dados ***}

for I := 1 to 5 do

begin

write('Informe o valor', I);

writeln; // O programa para a execução nesta linha!!!!!!!!

end;{ *** Teste Par ou Ímpar ***}

for I := 1 to 5 do

if (I mod 2 = 0) then

B := A * 5

else

B := A + 5;

writeln;

{ *** Apresentação das matrizes ***}

for I := 1 to 5 do

writeln('A[', I:2,'] = ', A:2, ' ', 'B[', I:2, '] = ', B:2 );

writeln;

writeln('Tecle <ENTER> para encerrar: ');

readln;

end;

end.

[Vivendo&Aprendendo]

cara acredito que seja o Edit mesmo ai você atribui o valor dele para as variaveis

V&A