O que h� de errado com esse c�digo?

Question

procedure TForm3.Button1Click(Sender: TObject);var  v1,v2,v3:integer;begin  v1:=strtoint(edit1.text);  v2:=strtoint(edit2.text);  v3:=strtoint(edit3.text);  if radiogroup1.itemindex = 0 then  begin   ...

Edilcimar · Answer

Isto pode at� n�o estar fazendo o que voc� quer, mas se (v1>v2) and (v2>v3) ele vai fazer algo...

Jpauloss · Answer

[quote:b5163dc6a6=�Danilo_ov�o�]procedure TForm3.Button1Click(Sender: TObject);
var
v1,v2,v3:integer;
begin
v1:=strtoint(edit1.text);
v2:=strtoint(edit2.text);
v3:=strtoint(edit3.text);
if radiogroup1.itemindex = 0 then
begin
if (v1>v2) and (v2>v3) then
begin
memo1.lines.add(inttostr(v1));
memo1.lines.add(inttostr(v2));
memo1.lines.add(inttostr(v3));
end;
end;
if radiogroup1.ItemIndex = 1 then
begin
if (v1>v2) and (v2>v3) then
begin
memo1.Lines.Add(inttostr(v3));
memo1.lines.add(inttostr(v2));
memo1.lines.add(inttostr(v1));
end;
end;
if radiogroup1.ItemIndex = 2 then
begin
if (v1>v2) and (v2>v3) then
begin
memo1.lines.add(inttostr(v1));
end;
end;

end;

end.[/quote:b5163dc6a6]
Aparentemente nenhum, da algum erro?

Facc · Answer

Amigo se vc falar qual � o erro fica mais facil...

Onjahyr · Answer

O c�digo est� certo, apesar de poder melhorar e diminuir com um [b:a989ef2b95]case[/b:a989ef2b95], agora quem vai usar pode vir a dar eros, como por exemplo o que for digitado nos TEdits......

Danilo_ov�o · Answer

Desculpa por n�o ter dito qual o erro, eu consigo rodar o programa, mas quando eu digito os valores nos Edit�s e aperto no bot�o �CALCULAR� os c�lculos n�o est�o sendo efetuados....

Edilcimar · Answer

coloque o c�digo completo do clique do bot�o, afinal de contas ningu�m sabe qual o banco, qual o tipo de conec��o, etc...

Onjahyr · Answer

Ent�o os valores que voc� est� colocando nos TEdits n�o fazem a combina��o exigida no seu c�digo, ou seja:

- Nos TEdits tem que haver n�meros (nada de letras nem fra��es);
- Nada de pontos ou v�rgulas;
- Se o RadioGroup1 estiver checado:

> Edit1 tem que ter um n�mero maior que o Edit2, e o Edit2 tamb�m deve ser maior que Edit3....

E quanto ao c�lculo, voc� n�o est� fazendo nenhum no c�digo. Ap�nas est� pedindo para acrescentar o conte�do das vari�veis no TMemo.
Para somar voc� tem que fazer assim:

[b:1fe3c23c6e]memo1.lines.add(inttostr(v1+v2+v3));[/b:1fe3c23c6e]

Danilo_ov�o · Answer

Vejam s�, na verdade o objetivo do programa n�o � somar nada. � ordenar os valores e no �ltimo caso colocar o maior entre os tr�s....

Onjahyr · Answer

vc disse que o bot�o era �CALCULAR�o que vou pensar?!para deixar o maior n�mero neste componente, ele tem uma op��o no object inspector para isso......

Onjahyr · Answer

[quote:d4c13e5cd2=�onjahyr�]vc disse que o bot�o era �CALCULAR�o que vou pensar?!para deixar o maior n�mero neste componente, ele tem uma op��o no object inspector para isso...[/quote:d4c13e5cd2]Opa! Desculpe, vc est� usando TMemo... Use ListBox que tem esta op��o no ObjectInspector......

Danilo_ov�o · Answer

N�o estou entendendo o que voc�s querem que eu fa�a. Eu s� quero saber porque n�o est� ordenando os valores....

Marco Salles · Answer

[quote:89700c29b8]N�o estou entendendo o que voc�s querem que eu fa�a.[/quote:89700c29b8] Fa�a um codigo Correto para a fun��o ....O seu codigo esta muito esquisito...

F�rum O que h� de errado com esse c�digo? #354585