Ir ao conteúdo
  • Cadastre-se

[Delphi] Salvado números em Vetor e depois mostrando sua posição!


Posts recomendados

Ola Pessoal boa noite!

 

 

Estou com uma dificuldade muito Grande,

tenho um algoritmo no Delphi XE7 que corresponde em um vetor array de [0..5] posições, que no qual o mesmo sera preenchido pelo usuário.

e depois o programa devera mostra em um edit.text  o numero que foi armazenado na posição 4 e 5 do vetor. 

 

o problema e que essa parte de mostra  o numero da posição X do vetor não estou conseguindo fazer.

 

Seque o código!

 

ONDE ESTA ESCRITO VETOR MAIOR E VETOR MENOR, SERIA VETOR POSIÇÃO 4, VETOR POSIÇÃO 5 [A QUESTÃO E, COMO MOSTRAR O QUE ESTA GRAVADOR EM UMA CERTA POSIÇÃO DO VETOR]

 

 

post-764888-0-69210500-1430540140_thumb.

 

 

 

dês de já muito obrigado a todos!

     unit Unit1; {$mode objfpc}{$H+} interface uses  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons,  StdCtrls, ExtCtrls; type   { TForm1 }   TForm1 = class(TForm)    BitBtn1: TBitBtn;    BitBtn2: TBitBtn;    BitBtn3: TBitBtn;    Edit1: TEdit;    Edit2: TEdit;    Edit3: TEdit;    GroupBox1: TGroupBox;    Label1: TLabel;    Label2: TLabel;    Label3: TLabel;    Label4: TLabel;    Label5: TLabel;    Label6: TLabel;    Panel1: TPanel;    SpeedButton1: TSpeedButton;    SpeedButton2: TSpeedButton;    SpeedButton3: TSpeedButton;    procedure BitBtn1Click(Sender: TObject);    procedure BitBtn2Click(Sender: TObject);    procedure BitBtn3Click(Sender: TObject);    procedure FormCreate(Sender: TObject);  private    { private declarations }  public    { public declarations }  end;{=============================================================================                    BLOCO DE COMANDO VARIAVEIS=============================================================================}  var  Form1: TForm1;  t:array[1..6] of integer;{  ma, me, i, cont: integer;implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject);begin end;{=============================================================================                 BLOCO DE COMANDO BOTÃO GRAVAR VALORES=============================================================================} procedure TForm1.BitBtn1Click(Sender: TObject);begin  if i=6 theni:=i;i:=i+1;t[i]:= Strtoint(edit1.text);edit1.clear;edit1.setfocus;Edit1.text:=('');label1.caption:= inttostr (i);end;{=============================================================================                BLOCO DE COMANDO BOTÃO MOSTRA VETORES=============================================================================} procedure TForm1.BitBtn2Click(Sender: TObject);begin  me:=999;for cont:= 1 to 6 dobegin if t[cont]>ma thenma:=t[cont]; if t[cont]<me thenme:=t[cont];  end;edit2.text:= IntToStr(ma);edit3.text:= IntToStr(me);edit1.setfocus;Edit1.text:=('zero');end;{=============================================================================                       BLOCO DE COMANDO BOTÃO LIMPAR=============================================================================} procedure TForm1.BitBtn3Click(Sender: TObject);begin  edit1.setfocus;  Edit1.text:=('zero');  Edit3.text:=('zero');  Edit2.text:=('zero');end; {end;} end.         

post-764888-0-53059900-1430540137_thumb.

codigo.txt

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...