delphi
gostaria q alguem me ajudasse a passar esse codigo java para delph
boolean existeMatricula := false;
for(int i=0; i<ListView_Funcionario.Items.Count ; i++)
{
if(ListView_Funcionario.Items[i].Caption == txtMatricula.text)
{
existeMatricula := true;
eu to qrendo fazer com que o listview compare as matriculas
com a q sta salva se for igual ñ salvar aparecer uma mensagem
dizendo q a matricula ja sta salva
boolean existeMatricula := false;
for(int i=0; i<ListView_Funcionario.Items.Count ; i++)
{
if(ListView_Funcionario.Items[i].Caption == txtMatricula.text)
{
existeMatricula := true;
eu to qrendo fazer com que o listview compare as matriculas
com a q sta salva se for igual ñ salvar aparecer uma mensagem
dizendo q a matricula ja sta salva
Lu
Curtidas 0
Respostas
Lu
25/02/2011
gostaria q alguem me ajudasse a passar esse codigo java para delph
boolean existeMatricula := false;
for(int i=0; i
boolean existeMatricula := false;
for(int i=0; i
GOSTEI 0
Wilson Junior
25/02/2011
var existeMatricula: Boolean; begin existeMatricula := False; for i := 0 to ListView1.Items.Count - 1 do begin if ListView1.Items.Item[i].Caption = txtMatricula.text then begin existeMatricula := True; Break; end ; end;
Espero ter colaborado.
GOSTEI 0
Lu
25/02/2011
ond fica esse codigo no button salvra?
logo a baixo da matricula ou no inicio do projeto?
logo a baixo da matricula ou no inicio do projeto?
GOSTEI 0
Lu
25/02/2011
ond fica esse codigo no button salvra?
logo a baixo da matricula ou no inicio do projeto?
e a var i? cm se delcara? o listview ñ aceita integer
logo a baixo da matricula ou no inicio do projeto?
e a var i? cm se delcara? o listview ñ aceita integer
GOSTEI 0
Wilson Junior
25/02/2011
Você pode colocar no OnClick do botão Salvar:
Espero ter colaborado.
begin
if ExisteMatricula(txtMatricula.Text) then
ShowMessage('Matrícula já existe!')
else
//Sua rotina para salvar a matrícula
;
end;
function ExisteMatricula(Matricula: string): Boolean; var x: integer; begin Result := False; for x := 0 to ListView_Funcionario.Items.Count - 1 do begin if ListView_Funcionario.Items.Item[x].Caption = Matricula then begin Result := True; Break; end ; end; end;
Espero ter colaborado.
GOSTEI 0
Lu
25/02/2011
tem cm eu enviar o meu codigo
d modo q so vc possa ver?
d modo q so vc possa ver?
GOSTEI 0
Wilson Junior
25/02/2011
Claro, pode mandar.
Aguardo retorno.
Aguardo retorno.
GOSTEI 0
Lu
25/02/2011
tem cm mandar por aqui d forma q so vc veja? + ninguem?
cm faço?
cm faço?
GOSTEI 0
Lu
25/02/2011
vo enviar pro teu endereço do yahoo tbm?
GOSTEI 0
Wilson Junior
25/02/2011
Vc pode copiar o seu código e colocar aqui mesmo.
GOSTEI 0
Lu
25/02/2011
oi gostaria d saber como faço para ñ salvar os dados no listview qndo a tabela ñ stiver completa?
exemplo em uma tabela ond tenho funcionario, matricula endereço, cidade, se eu preencher os campos
mas ficar faltando colocar cidade ele ñ salvar.
????????
exemplo em uma tabela ond tenho funcionario, matricula endereço, cidade, se eu preencher os campos
mas ficar faltando colocar cidade ele ñ salvar.
????????
GOSTEI 0
Lu
25/02/2011
desd ja agradeço por me ajudar
GOSTEI 0
Wilson Junior
25/02/2011
Quando você fala em tabela, o que vc quer dizer com relação de como estão os dados, em um arquivo TXT, componente TClientDataSet, ou como?
GOSTEI 0
Lu
25/02/2011
em um cadastro, cm faço para alltera um item?
to usando esse codigo so q da um erro dizendo qmasked_matriculafuncionario.text é uma boolean, ai da erro
if (Listview_funcionario.Items[0].caption:=MaskEd_MatriculaFuncionario.Text) then
begin
ListItem:= ListView_funcionario.Selected;
ListView_Funcionario.Items[0].caption :=MaskEd_MatriculaFuncionario.Text;
ListView_Funcionario.Items[0].SubItems[0] :=Ed_NomeFuncionario.Text;
to usando esse codigo so q da um erro dizendo qmasked_matriculafuncionario.text é uma boolean, ai da erro
if (Listview_funcionario.Items[0].caption:=MaskEd_MatriculaFuncionario.Text) then
begin
ListItem:= ListView_funcionario.Selected;
ListView_Funcionario.Items[0].caption :=MaskEd_MatriculaFuncionario.Text;
ListView_Funcionario.Items[0].SubItems[0] :=Ed_NomeFuncionario.Text;
GOSTEI 0
Lu
25/02/2011
eu quero fazer com q ao clicar no item ele ja altere
GOSTEI 0
Wilson Junior
25/02/2011
Da erro porque você está atribuindo e não comparando no su IF
e deve ser assim para comparar
= é para comparação
:= é para atribuição
Espero ter colaborado.
if (Listview_funcionario.Items[0].caption := MaskEd_MatriculaFuncionario.Text) then
e deve ser assim para comparar
if (Listview_funcionario.Items[0].caption = MaskEd_MatriculaFuncionario.Text) then
= é para comparação
:= é para atribuição
Espero ter colaborado.
GOSTEI 0
Lu
25/02/2011
errei ao digitar. to colocando esse codigo que enviei so q ñ sta allterando ñ
gostaria d sabber cm eu altero uma linha no listview?
gostaria d sabber cm eu altero uma linha no listview?
GOSTEI 0
Wilson Junior
25/02/2011
Veja se é isto que você quer
Espero ter colaborado.
ListView_funcionario.Selected.caption :=MaskEd_MatriculaFuncionario.Text; ListView_funcionario.Selected.SubItems[0] := Ed_NomeFuncionario.Text;
Espero ter colaborado.
GOSTEI 0
Lu
25/02/2011
oi gstaria q vc me ajudasse nesse pqno problema ai, ja tentei
ver o erro linha por linha e ñ dscobri o erro por favor me diz ond to errando
ver so eu to fazendo o caddastro d func e colocando em cada um uma condição tipo se um campo stiver vazio ele ñ salva nada no listview, so q sta salvando so matricula se os outros campos stiver preenchidos menos nome ai aparece a mensagem dizendo que sta faltando preencher nome + salva a matricula, o on stou errando por favor
ListItem:=ListView1.Items.Add;
ListItem.SubItems.Add(Ed_NomeFuncionario.Text);
If (Ed_nomefuncionario.Text='') then
begin
Application.MessageBox('Digite o Nome do Funcionário','Atenção', MB_ICONINFORMATION);
Ed_NomeFuncionario.SetFocus;
exit;
end;
ListItem.Caption:=Ed_MatriculaFuncionario.Text;
If (Ed_MatriculaFuncionario.Text='') then
begin
Application.MessageBox('Digite a Matricula do Funcionário','Atenção', MB_ICONINFORMATION);
Ed_MatriculaFuncionario.SetFocus;
exit;
end;
ListItem.SubItems.Add(Ed_EnderecoFuncionario.Text);
If (Ed_EnderecoFuncionario.Text='') then
begin
Application.MessageBox('Digite o Endereço do Funcionário','Atenção', MB_ICONINFORMATION);
Ed_EnderecoFuncionario.SetFocus;
exit;
end;
GOSTEI 0