TreeView ! Não deixar texto duplicar

[webrodex 0]

Como fazer o seguinte 1 textbox + um botao para adicionar o texto no TreeView so que não pode deixar o nome repetir na lista ai ele da uma mensagem de erro como faço isso ?

[marcio.theis 3]

Poed-se criar uma função que irá farrer o TreeView em busca dos nomes e comparando, algo do tipo:

 

function TForm1.VerificaJaExiste(tv: TTreeView; descricao: String): boolean;var	ret: boolean;	nodo: TTreeNode;beginret:=False;if tv.Items.Count > 0 then	begin	nodo:=tv.Items[0];	while nodo <> nil do		begin		if AnsiUpperCase(nodo.Text) = AnsiUpperCase(descricao) then			begin			ret:=True;			Break;			end;		nodo:=nodo.GetNext;		end;	end;VerificaJaExiste:=ret;end;

Para fazer funcionar pode-se fazer:

 

procedure TForm1.BitBtn1Click(Sender: TObject);beginif VerificaJaExiste(TreeView1,edit1.Text) then	Application.MessageBox('Nome já existe !','Localização',MB_OK or MB_APPLMODAL or MB_ICONWARNING);end;

[webrodex 0]

1 detalhe como eu coloco no procedure pq ta faltando ? da erro na linha

 

function TForm1.VerificaJaExiste(tv: TTreeView; descricao: String): boolean;

[marcio.theis 3]

Bom... Você precisa declarar a função em Private ou Public do seu formulário, e então trocar o Form1 pelo nome do form onde esta a função. O erro deve de ser por não estar publicidado a função.