Fórum Maior e Menor Valor #207293
18/01/2004
0
Olá pessoal, gostaria de saber como faço pro Delphi pegar o maior e o menor valor digitado sem precisar mtos IFs, sao 5 numeros inteiros, 1 em cada edit, e ai o Delphi tem que verificar o maior e o menor numero digitado e exibir o maior e o menor numero.
Desde já agradeço a ajuda.
Desde já agradeço a ajuda.
Diegobarcelos
Curtir tópico
+ 0
Responder
Posts
18/01/2004
Aroldo Zanela
Colega,
O forma de menor esforço seria adicionar os valores em forma de string oara um TStringList, utilizar o método sort da classe TStringList e pegar o primeiro e último elemento da lista.
O forma de menor esforço seria adicionar os valores em forma de string oara um TStringList, utilizar o método sort da classe TStringList e pegar o primeiro e último elemento da lista.
Responder
Gostei + 0
18/01/2004
Aroldo Zanela
Colega,
Pegue o código abaixo (Selecione e copie) e vai para o Delphi em cima de um formulário novo (não é no código e sim vendo o formulário) e pressione CTRL + V para criar os componentes.
Coloque os códigos abaixo em suas respectivas posições:
Pegue o código abaixo (Selecione e copie) e vai para o Delphi em cima de um formulário novo (não é no código e sim vendo o formulário) e pressione CTRL + V para criar os componentes.
object Edit1: TEdit
Left = 116
Top = 10
Width = 121
Height = 21
TabOrder = 0
Text = ´Edit1´
end
object Edit2: TEdit
Left = 116
Top = 53
Width = 121
Height = 21
TabOrder = 1
Text = ´Edit2´
end
object Edit3: TEdit
Left = 116
Top = 96
Width = 121
Height = 21
TabOrder = 2
Text = ´Edit3´
end
object Edit4: TEdit
Left = 116
Top = 139
Width = 121
Height = 21
TabOrder = 3
Text = ´Edit4´
end
object Edit5: TEdit
Left = 116
Top = 182
Width = 121
Height = 21
TabOrder = 4
Text = ´Edit5´
end
object Button1: TButton
Left = 12
Top = 10
Width = 75
Height = 25
Caption = ´&Carregar´
TabOrder = 5
OnClick = Button1Click
end
object Memo1: TMemo
Left = 248
Top = 10
Width = 185
Height = 195
Lines.Strings = (
´Memo1´)
TabOrder = 6
end
object Button2: TButton
Left = 12
Top = 43
Width = 75
Height = 25
Caption = ´Button2´
TabOrder = 7
OnClick = Button2Click
end
Coloque os códigos abaixo em suas respectivas posições:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Memo1.Lines.Add(FormatFloat(´0000000000´,StrToInt(Edit1.Text)));
Memo1.Lines.Add(FormatFloat(´0000000000´,StrToInt(Edit2.Text)));
Memo1.Lines.Add(FormatFloat(´0000000000´,StrToInt(Edit3.Text)));
Memo1.Lines.Add(FormatFloat(´0000000000´,StrToInt(Edit4.Text)));
Memo1.Lines.Add(FormatFloat(´0000000000´,StrToInt(Edit5.Text)));
end;
procedure TForm1.Button2Click(Sender: TObject);
var Lista: TStringList;
begin
Lista := TStringList.Create;
try
Lista.Assign(Memo1.Lines);
Lista.Sort;
Memo1.Lines.Assign(Lista);
finally // Editei pois havia colocado except
Lista.Free;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)