entrada em listbox

[guilhermerr 0]

Alo, tenho que adicionar um item a um listbox, mas tenho que verificar se obdece as seguintes condições

1- nao pode ser maior que um determinado numero

2- nao pode ser menor que um determinado numero

3- nao pode ter o mesmo valor de um item ja inserido

4- Nao pode ultrapassar a uma determinada quantidade.

 

meu problema é usar os ifs certos

isto é se (a ou b ou c ou d) acontecer e entao imprima uma mensagem;

 

/////

var
	menor: integer;
	maior: integer;
	elementos: integer;
	subconjunto: integer;
	entrada: integer;
begin
	maior:=strtoint(edit1.text);
	menor:=strtoint(edit2.text);
	subconjunto:= strtoint(edit3.text);
	elementos:=strtoint(edit4.text);
	entrada:=strtoint(edit5.Text);

	if entrada> maior then
		showmessage('O numero digitado é maior que o Permitido');
	if entrada < menor then
		showmessage('O numero digitado é menor que o permitido');
	if elementos>listbox1.count then
		showmessage('A quantidade numeros excede o permitido')
	else

	listbox1.Items.Add(edit5.text);

/// qualquer ajuda agradeço; 

[Raficcha 1]

Pelo que entendi, esta faltanso as clausulas "ELSE" nos seu "ifs". Assim como você esta fazendo, ele so não vai adicionar o item se a quan quantidade de elementos <= ListBox1.items.cout. Se for maior ou menor que o permitido, o programa irá exibir uma mensagem, mas vai adicionar o item..

 

Veja se isto resolve o problema:

 

var
	menor: integer;
	maior: integer;
	elementos: integer;
	subconjunto: integer;
	entrada: integer;
begin
	maior:=strtoint(edit1.text);
	menor:=strtoint(edit2.text);
	subconjunto:= strtoint(edit3.text);
	elementos:=strtoint(edit4.text);
	entrada:=strtoint(edit5.Text);

	if entrada> maior then
		showmessage('O numero digitado é maior que o Permitido');
	else if entrada < menor then
		showmessage('O numero digitado é menor que o permitido');
	else if elementos>listbox1.count then
		showmessage('A quantidade numeros excede o permitido')
	else

	listbox1.Items.Add(edit5.text);

:D