Re: RES: RES: [delphi-br] Sobrenome+nome
Olá.. Uma vez usei essa rotina para isso se não servir te dará uma boa ideia. Carlos Fernando Wiz Sistemas // Swaps first and second names in the passed name string // Raises an exception if the name is invalid function TForm1.SwapNames(name: string): string; var blankPos : Integer; i: Integer; nameLen : Integer; begin // Clear the result string to indicate no success yet Result := ''; // Find the position of the last name blankPos := Pos(' ', name); // If found, and position is short of the name end // then we are OK so far nameLen := Length(name); if (blankPos > 0) and (blankPos < nameLen) then begin // Find the start of the second name i := blankPos + 1; repeat // If last name start found, swap first and last names if name[i] <> ' ' then Result := Copy(name, i, nameLen-i+1) + ' ' + Copy(name, 1, blankPos-1) else Inc(i); until (i > nameLen) or (Length(Result) > 0); end; // Couldn't swap first and second names ? if Length(Result) = 0 then Raise Exception.CreateFmt('Invalid name : ''%s''', [name]); end; procedure TForm1.Button1Click(Sender: TObject); var vNome : string; begin // Set up some sample names vNome := 'Carlos Fernando Oliveira'; // Try to swap these names try ShowMessage(vNome+' swapped = '+SwapNames(vNome)); except On E : Exception do ShowMessage(E.Message); end; end; --- Em delphi-br@yahoogrupos.com.br, "Otavio Gasparovic do Nascimento" <[EMAIL PROTECTED]> escreveu > > Gente, > posso estar dizendo besteira, mas > se vc pegar o tamanho do nome > faça um loop pegando o ultimo - 1 até encontrar um branco > aí vc tem a partir da onde até o fim é o sobrenome > e o 1o. até apartir de onde -1 é o nome. > eu faria assim. > > > Otavio > > > > -Mensagem original- > De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] > nome de Macfly > Enviada em: segunda-feira, 13 de junho de 2005 10:56 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: RES: [delphi-br] Sobrenome+nome > > > Hum... > Ai fica difícil, como vc vai saber qual parde do nome é o sobrenome? > Pegar pela primeira palavra não é confiável, pois no nome Jose Maria da > Silva, por exemplo, já daria errado: Maria da Silva, José. > > []'s > Macfly > > Eduardo Silva ® <[EMAIL PROTECTED]> wrote: > Como eu faço isso usando paradox. > > Lembrando que na minha tabela o campo foi criado como abaixo: > > NOME, String, 50 > > ou seja, eu gravo tudo (nome + sobrenome) dentro de um único campo na > tabela. > > -Mensagem original- > De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] > nome de Macfly > Enviada em: segunda-feira, 13 de junho de 2005 10:42 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Sobrenome+nome > > > Olá... > Defina o nome do modo como vc quer já na consulta no DB: > > SELECT ... CONCAT(SOBRENOME,', ',NOME) AS NOME ... FROM ... > > OU > SELECT ... (SOBRENOME & ', ' & NOME) AS NOME ... FROM ... > > A consulta exata vai depender de qual Banco vc utiliza.. > > []'s > Macfly > > Info Desenvolvimento <[EMAIL PROTECTED]> wrote: > Alguém sabe como eu faço para mostrar em um relatório do Quickreport o > seguinte relatório; > Na tabela tem o campo sobrenome. > Paulo Cesar Fernandes (Nome + Sobrenome) > Fernandes, Paulo César (Sobrenome + Nome) > > > > Obrigado > > PC > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > - > Links do Yahoo! Grupos > > Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço > do Yahoo!. > > > __ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam protection around > http://mail.yahoo.com > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > &
Re: [delphi-br] Sobrenome+nome
Ok.. Nunca trabalhei com Paradox, acho que ele não deve suportar a consulta... Utilize o editor de campos para criar um campo calculado então: No envento OnCalcFields ... monte os dados: CampoCalcNome := Consulta.FieldByName('SOBRENOME').AsString + ', ' + Consulta.FieldByName('NOME').AsString; []'s MacFly Info Desenvolvimento <[EMAIL PROTECTED]> wrote: Também uso paradox e gerou a seguinte mensagem de erro: Raised Exception Class EBDEEngineError With Message Capabilitty not supported PC [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. - Discover Yahoo! Get on-the-go sports scores, stock quotes, news & more. Check it out! [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: RES: [delphi-br] Sobrenome+nome
Gente, posso estar dizendo besteira, mas se vc pegar o tamanho do nome faça um loop pegando o ultimo - 1 até encontrar um branco aí vc tem a partir da onde até o fim é o sobrenome e o 1o. até apartir de onde -1 é o nome. eu faria assim. Otavio -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Macfly Enviada em: segunda-feira, 13 de junho de 2005 10:56 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Sobrenome+nome Hum... Ai fica difícil, como vc vai saber qual parde do nome é o sobrenome? Pegar pela primeira palavra não é confiável, pois no nome Jose Maria da Silva, por exemplo, já daria errado: Maria da Silva, José. []'s Macfly Eduardo Silva ® <[EMAIL PROTECTED]> wrote: Como eu faço isso usando paradox. Lembrando que na minha tabela o campo foi criado como abaixo: NOME, String, 50 ou seja, eu gravo tudo (nome + sobrenome) dentro de um único campo na tabela. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Macfly Enviada em: segunda-feira, 13 de junho de 2005 10:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sobrenome+nome Olá... Defina o nome do modo como vc quer já na consulta no DB: SELECT ... CONCAT(SOBRENOME,', ',NOME) AS NOME ... FROM ... OU SELECT ... (SOBRENOME & ', ' & NOME) AS NOME ... FROM ... A consulta exata vai depender de qual Banco vc utiliza.. []'s Macfly Info Desenvolvimento <[EMAIL PROTECTED]> wrote: Alguém sabe como eu faço para mostrar em um relatório do Quickreport o seguinte relatório; Na tabela tem o campo sobrenome. Paulo Cesar Fernandes (Nome + Sobrenome) Fernandes, Paulo César (Sobrenome + Nome) Obrigado PC [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ NOD32 1.1136 (20050611) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECT
Re: [delphi-br] Sobrenome+nome
Também uso paradox e gerou a seguinte mensagem de erro: Raised Exception Class EBDEEngineError With Message Capabilitty not supported PC [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Sobrenome+nome
Hum... Ai fica difícil, como vc vai saber qual parde do nome é o sobrenome? Pegar pela primeira palavra não é confiável, pois no nome Jose Maria da Silva, por exemplo, já daria errado: Maria da Silva, José. []'s Macfly Eduardo Silva ® <[EMAIL PROTECTED]> wrote: Como eu faço isso usando paradox. Lembrando que na minha tabela o campo foi criado como abaixo: NOME, String, 50 ou seja, eu gravo tudo (nome + sobrenome) dentro de um único campo na tabela. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Macfly Enviada em: segunda-feira, 13 de junho de 2005 10:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sobrenome+nome Olá... Defina o nome do modo como vc quer já na consulta no DB: SELECT ... CONCAT(SOBRENOME,', ',NOME) AS NOME ... FROM ... OU SELECT ... (SOBRENOME & ', ' & NOME) AS NOME ... FROM ... A consulta exata vai depender de qual Banco vc utiliza.. []'s Macfly Info Desenvolvimento <[EMAIL PROTECTED]> wrote: Alguém sabe como eu faço para mostrar em um relatório do Quickreport o seguinte relatório; Na tabela tem o campo sobrenome. Paulo Cesar Fernandes (Nome + Sobrenome) Fernandes, Paulo César (Sobrenome + Nome) Obrigado PC [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ NOD32 1.1136 (20050611) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Sobrenome+nome
Como eu faço isso usando paradox. Lembrando que na minha tabela o campo foi criado como abaixo: NOME, String, 50 ou seja, eu gravo tudo (nome + sobrenome) dentro de um único campo na tabela. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Macfly Enviada em: segunda-feira, 13 de junho de 2005 10:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sobrenome+nome Olá... Defina o nome do modo como vc quer já na consulta no DB: SELECT ... CONCAT(SOBRENOME,', ',NOME) AS NOME ... FROM ... OU SELECT ... (SOBRENOME & ', ' & NOME) AS NOME ... FROM ... A consulta exata vai depender de qual Banco vc utiliza.. []'s Macfly Info Desenvolvimento <[EMAIL PROTECTED]> wrote: Alguém sabe como eu faço para mostrar em um relatório do Quickreport o seguinte relatório; Na tabela tem o campo sobrenome. Paulo Cesar Fernandes (Nome + Sobrenome) Fernandes, Paulo César (Sobrenome + Nome) Obrigado PC [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ NOD32 1.1136 (20050611) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Sobrenome+nome
Olá... Defina o nome do modo como vc quer já na consulta no DB: SELECT ... CONCAT(SOBRENOME,', ',NOME) AS NOME ... FROM ... OU SELECT ... (SOBRENOME & ', ' & NOME) AS NOME ... FROM ... A consulta exata vai depender de qual Banco vc utiliza.. []'s Macfly Info Desenvolvimento <[EMAIL PROTECTED]> wrote: Alguém sabe como eu faço para mostrar em um relatório do Quickreport o seguinte relatório; Na tabela tem o campo sobrenome. Paulo Cesar Fernandes (Nome + Sobrenome) Fernandes, Paulo César (Sobrenome + Nome) Obrigado PC [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Sobrenome+nome
Alguém sabe como eu faço para mostrar em um relatório do Quickreport o seguinte relatório; Na tabela tem o campo sobrenome. Paulo Cesar Fernandes (Nome + Sobrenome) Fernandes, Paulo César (Sobrenome + Nome) Obrigado PC [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html