Ir para conteúdo
  • 0
ericborrero

Array menor Valor

Pergunta

Boa Noite a todos ....

 

aguem pode me ajudar com esse código.... preciso que ele procure o menor valor e não o maior como esta aqui

 

 

 

Procedure TfrmAvaliacao.PiorTempo;
var
  ArrayString: Array [1 .. 5] of string;
  PiorTempo: string;
  i: Integer;
begin

  ArrayString[1] := dbtext2.Caption;
  ArrayString[2] := dbtext4.Caption;
  ArrayString[3] := dbtext6.Caption;
  ArrayString[4] := dbtext8.Caption;
  ArrayString[5] := dbtext10.Caption;

  PiorTempo := EmptyStr;

    for i := low(ArrayString) to high(ArrayString) - 1 do
    if PiorTempo < ArrayString then
      PiorTempo := ArrayString;


  Label210.Caption := PiorTempo;

 

end;

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

0 respostas a esta questão

Recommended Posts

Até agora não há respostas para essa pergunta

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

  • Conteúdo Similar

    • Por felk_fel@hotmail.com
      Boa tarde a todos!

      De vez em quando, acontece isso comigo, o Delphi compila a aplicação mas ela não roda ou fecha sozinha...Para resolver eu estou sempre tendo que fechar o delphi e criar uma nova aplicação. Alguém poderia me ajudar conforme o vídeo abaixo?

      https://www.youtube.com/watch?v=cFBJSS5yTN8

      Agradeço pela atenção.
    • Por Felipe Garciax
      Ola,
       
      Estou com o seguinte problema, no formulario principal do meu projeto tenho um SplitView e um Image em AlClient com uma imagem em 193 kb, ao abrir e fechar o SplitView em execucao a imagem PISCA, ja usei no OBJECT INSPECTOR o DoubleBuffered em TRUE tanto para o form quanto para o SplitView e o problema persiste, ja fiz o teste no codigo tanto para o EVENTO OnShow e OnCreat:
      DoubleBuffered :=True;  e nenhum resultado... Help Me
    • Por Remeling
      Ola pessoal,
      Estou fazendo um sistema web em Delphi xe8 Intraweb, coloco os objetos no form e quando vou compilar o sistema, aparece somente a pagina em branco, o que estou fazendo errado.
    • Por Marcelo_Ribeiro
      E aí pessoal, tudo bem? 
      Quero montar um sistema que irá acessar um banco de dados Firebird em outra máquina. 
      Consegui fazer a conexão via socket. Criei um remote data module, criei um server, e pelo socket server, consegui fazer a conexão. 
      Mas tem um porém. To usando Firebird. No meu note, tô com o server rodando, e rodei o client tb. Ao mesmo tempo, rodei o client em outro pc. 
      Tenho uma tabela teste que possui 6 registros. Ao abrir o client nos 2 pcs, a consulta traz os 6 registros. No meu note, crio um 7º registro. Mas no outro pc, ao consultar, ele só traz 6 registros. Se eu fechar e abrir de novo, ao consultar traz os 7. 
      Criei o remote data module como Instancing = Multiple instance e Threading Model = Single. Será que isso tem alguma coisa a ver? 
       
      Instalei o Sql Server. Fazendo tudo do mesmo jeito, o Sql server atualiza, mas o firebird não. Será que é limitação?
       
      Valeu pessoal 
      Abs
       
    • Por marcio pereira batista
      boa noite amigos, estou iniciando com a parte de webserver e estou com dificuldade para pegar os parametros que são passados por uma catraca, ja consegui fazer toda a configuração da mesma e o webserver que fiz consegue indentificar a requisição dela, meu problema esta para pegar a informação do id_user que vem no json
      quando coloco a digital na catraca o meu webserver identifica o evento vindo da mesma na porta 8080:
      POST /new_user_identified.fcgi?session=?& HTTP/1.1
      ate ae tudo ok,+ eu preciso e da informação que vem junto com o POST da ctraca no meu webserver agora segue oque o fabricante me passou:
      O Fluxo de comunicação entre o servidor (web server que escutará as requisições http que o equipamento para enviará, o verbo http é o POST)  que você vai desenvolver e o equipamento é o seguinte:

      Primeiro um pouco de teoria para você entender o fluxo do endpoint que você precisará implementar: new_user_identified.fcgi (https://www.controlid.com.br/suporte/api_idaccess_latest.html#50_events)

      Usuário identificado
      CLIENT -> SERVER
      POST /new_user_identified.fcgi?session=gJgOHkblq69Vc3WLOOdUMvrf& HTTP/1.1
      Host: 192.168.2.121
      Accept: */*
      Content-Type: application/x-www-form-urlencoded
      Connection: Keep-Alive
      Content-Length: 105

      event=8&device_id=468507&identifier_id=1651076864&portal_id=1&user_id=1&user_name=Danilo&user_has_image=0
      preciso pegar a informação do user_id acima e não sei como ja que oque chega na uri e somente:POST /new_user_identified.fcgi?session=?& HTTP/1.1
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.