consulta em combobox (indexOf)
04/06/2008
0
estou tentando varrer o combobox para verificar se uma ou mais dessas variáveis existe, para entao o sistema exibir uma mensagem com a variável mais importante detectada.
para isso utilizei o indexOf do combobox, mas minha consulta ficou furada, pq ela sempre para na primira condiçao(if), mesmo que a mesma nao seja satisfeita.
segue meu código, quem puder dar uma mão na soluçao desse problema eu agradeço!!!!
var
a,b,c,d, msg : string;
begin
a := ´primeiro lugar em importancia´;
b := ´segundo lugar em importancia´;
c := ´terceiro lugar em importancia´;
d := ´quarto lugar em importancia´;
msg := ´´;
if cbClasse.items.IndexOf(a) < 0 then // verifica se a string existe no ComboBox
begin
msg := ´importancia: ´ + a;
end
else
if cbClasse.items.IndexOf(b) < 0 then
begin
msg := ´importancia: ´ + b;
end
else
if cbClasse.items.IndexOf(c) < 0 then
begin
msg := ´importancia: ´ + c;
end
else
if cbClasse.items.IndexOf(d) < 0 then
begin
msg := ´importancia: ´ + d;
end
else
begin
msg := ´Não foi detectado importancia alguma´;
end;
ShowMessage(msg);
end;
abraços!
Mahdak
Posts
04/06/2008
Pestana_
flw.
04/06/2008
Pestana_
quando não é encontrado o valor no combo é retornado [b:ea72403afe]-1[/b:ea72403afe]
não está certo!
flw.
04/06/2008
Pestana_
var
a,b,c,d, msg : string;
begin
a := ´primeiro lugar em importancia´;
b := ´segundo lugar em importancia´;
c := ´terceiro lugar em importancia´;
d := ´quarto lugar em importancia´;
msg := ´´;
if cbClasse.items.IndexOf(a) > 0 then // verifica se a string existe no ComboBox
begin
msg := ´importancia: ´ + a;
end
else
if cbClasse.items.IndexOf(b) > 0 then
begin
msg := ´importancia: ´ + b;
end
else
if cbClasse.items.IndexOf(c) > 0 then
begin
msg := ´importancia: ´ + c;
end
else
if cbClasse.items.IndexOf(d) > 0 then
begin
msg := ´importancia: ´ + d;
end
else
begin
msg := ´Não foi detectado importancia alguma´;
end;
ShowMessage(msg);
end;
04/06/2008
Mahdak
RJun, foi erro meu mesmo, como voce disse... mesmo assim utilizei a funçao abaixo e meu problema foi resolvido.
muito obrigado pela atençao que voces disponibilizaram para me ajudar!
Um forte abraço a todos!!!
code]function StrIsInList(Lista:TStrings;Str:string): boolean;
{verificar se uma string existe dentro de um stringlist, pode ser usada para saber se uma string existe dentro de um ComboBox por exemplo.
ex:
begin
if StrIsInList(ComboBox1.Items,Edit1.Text) then
showmessage(´a string existe.´)
end;
}
var
Cont:integer;
begin
Result:=false;
for Cont:=0 to Lista.Count-1 do
if Str = (Lista.Strings[Cont])then
begin
Result:=true;
Exit;
end;
end;[[/code]
Clique aqui para fazer login e interagir na Comunidade :)
