FULL LOL

http://www.oficinadanet.com.br/apostilas/98/delphi http://www.apostilando.com/sessao.php?cod=13 http://blog.segr.com.br/wp-content/uploads/2014/03/Delphi-b%C3%A1sico.pdf http://www.planetadelphi.com.br/busca/Delphi http://www2.fateb.br/ftp/apostilas/Delphi/OO-Delphi.pdf http://www.devmedia.com.br/apostilas-delphi/744

Ou Apenas Close

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] 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. codigo.txt