Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

tommy

Primeira letra dos nomes em maiuscula para delphi 7

6 posts neste tópico

Oi pessoal, vi o outro tópico sobre essa funcao.

Mas eu preciso de uma funcao igual a essa s''o que

para delphi. Colocar as primeiras letras dos nomes

em maiusculas num edit. salvo que de, do, dos, da e

das n~ao devem ser modificadas.

Muito obrigado.

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

function UpperNome(const Nome: String): String;

var

x : Integer;

lista : Array[0..4] of String[03];

function NaoAchaPreposicao(Palavra : String): Boolean;

var

x : Integer;

begin

Result := True;

for x := 0 to 4 do

if Trim(Palavra) = lista[x] then

Result := False;

end;

begin

Result := Nome;

lista[0] := 'das'; lista[1] := 'dos' ;

lista[2] := 'de'; lista[3] := 'do' ;

lista[4] := 'da';

Result := UpCase(Result[1]) + Copy(Result, 2, Length(Result));

for x := 2 to Length(Nome) do begin

if Nome[x] = #32 then

if Copy(Nome,x+1,1) <> 'e' then

if NaoAchaPreposicao(Copy(Nome,x+1,3)) then

Result := Copy(Result, 1, x)

+ UpCase(Result[x+1])

+ Copy(Result, x+2, Length(Result));

end;

end;

Como usar:

Edit1.Text := UpperNome(Edit1.Text);


11355-SIGjuliano.neu-gmail-orange.png

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Grande Morita

Valeu por ter enviado a função.

já coloquei ela em funcionamento.

Abraços. Márcio

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

----------------

tommy escreveu:



Oi pessoal, vi o outro tópico sobre essa funcao.

Mas eu preciso de uma funcao igual a essa s'o que

para delphi. Colocar as primeiras letras dos nomes

em maiusculas num edit. salvo que de, do, dos, da e

das n~ao devem ser modificadas.


Muito obrigado.
9.gif

----------------


Não sei se você precisa ainda, eu uso essa que eu fiz, ela converte a primeira em maiúscula e quando encontra um espaço, converte a próxima em maiúscula também.

function TrrPrincipal.tratanome(aux: string): String;
var
  i: integer;
begin
  aux:=lowercase(aux);
  if length(aux)<>0
  then Begin
          aux[1]:=Upcase(aux[1]);
          for i:=2 to length(aux) do
            if aux=' '
            then aux[i+1]:=Upcase(aux[i+1]);
          tratanome:=aux;
        End
  else tratanome:=';
end;

"A informação é a redução da dúvida"

Claude Shannon

18724-assinatura6.jpg

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

a função está ok, até modifiquei um pouco...

mas...

é só aqui ou ela não converte para minúsculo as letras acentuadas ?

tenho que fazer alguma modificação ?

function UpperNome(const Nome: String): String;
var
x : Integer;
lista : Array[0..18] of String[03];

function NaoAchaPreposicao(Palavra : String): Boolean;
var
x : Integer;
begin
Result := True;
for x := 0 to 18 do
if (Trim(Palavra) = lista[x]) then
Result := False;
end; // FUNCTION

begin

if (Nome = '') Then
Exit;

Result := LowerCase(Nome);

lista[0] := 'das';
lista[1] := 'dos';
lista[2] := 'de';
lista[3] := 'do';
lista[4] := 'da';
lista[5] := 'o';
lista[6] := 'a';
lista[7] := 'os';
lista[8] := 'as';
lista[9] := 'em';
lista[10] := 'na';
lista[11] := 'no';
lista[12] := 'até';
lista[13] := 'ao';
lista[14] := 'aos';
lista[15] := 'com';
lista[16] := 'dum';
lista[17] := 'por';
lista[18] := 'sob';

Result := UpCase(Result[1]) + Copy(Result, 2, Length(Result));

for x := 2 to Length(Nome) do
begin
if (Nome[x] = #32) then
if (Copy(LowerCase(Nome),x+1,1) <> 'e') then
if (NaoAchaPreposicao(Copy(LowerCase(Nome),x+1,3))) then
Result := Copy(Result, 1, x) + UpCase(Result[x+1]) + Copy(Result, x+2, Length(Result));
end; // FOR
end;

0

Compartilhar este post


Link para o post
Compartilhar em outros sites
    • 9 Mensagens
    • 571 Visualizações
    • 12 Mensagens
    • 359 Visualizações
    • 1 Mensagens
    • 411 Visualizações
    • 3 Mensagens
    • 285 Visualizações
    • 3 Mensagens
    • 282 Visualizações

  • Postagens Recentes

    • Notebook infectado
      Virtual - {5547CE1F-74E9-41E5-9CBF-5211ECC37341} - C:\Program Files (x86)\Kaspersky Lab\Kaspersky Total Security 15.0.2\IEExt\ie_plugin.dll
      O9 - Extra button: OneNote Lin&ked Notes - {789FE86F-6FC4-46A1-9849-EDE0DB0C95CA} - C:\Program Files\Microsoft Office 15\root\Office15\ONBttnIELinkedNotes.dll
      O9 - Extra 'Tools' menuitem: OneNote Lin&ked Notes - {789FE86F-6FC4-46A1-9849-EDE0DB0C95CA} - C:\Program Files\Microsoft Office 15\root\Office15\ONBttnIELinkedNotes.dll
      O11 - Options group: [ACCELERATED_GRAPHICS] Accelerated graphics
      O15 - Trusted Zone: www.bancobrasil.com.br
      O15 - Trusted Zone: www14.bancobrasil.com.br
      O15 - Trusted Zone: www2.bancobrasil.com.br
      O15 - Trusted Zone: aapj.bb.com.br
      O15 - Trusted Zone: seg.bb.com.br
      O15 - Trusted Zone: www.bb.com.br
      O15 - Trusted Zone: http://www.bb.com.br
      O15 - Trusted Zone: imagem.caixa.gov.br
      O15 - Trusted Zone: internetbanking.caixa.gov.br
      O15 - Trusted Zone: internetbankingpf.caixa.gov.br
      O15 - Trusted Zone: www.caixa.gov.br
      O15 - Trusted Zone: http://www.caixa.gov.br
      O15 - Trusted Zone: cloud.gastecnologia.com.br
      O15 - Trusted Zone: bankline.itau.com.br
      O15 - Trusted Zone: clickbanking.itau.com.br
      O15 - Trusted Zone: guardiao.itau.com.br
      O15 - Trusted Zone: www.itau.com.br
      O15 - Trusted Zone: *.itau.com.br
      O18 - Protocol: osf - {D924BDC6-C83A-4BD5-90D0-095128A113D1} - C:\Program Files\Microsoft Office 15\root\Office15\MSOSB.DLL
      O18 - Protocol: tbauth - {14654CA6-5711-491D-B89A-58E571679951} - C:\Windows\SysWOW64\tbauth.dll
      O18 - Protocol: windows.tbauth - {14654CA6-5711-491D-B89A-58E571679951} - C:\Windows\SysWOW64\tbauth.dll
      O18 - Protocol: wlpg - {E43EF6CD-A37A-4A9B-9E6F-83F89B8E6324} - C:\Program Files (x86)\Windows Live\Photo Gallery\AlbumDownloadProtocolHandler.dll
      O20 - Winlogon Notify:  GbPluginBb - C:\PROGRAM FILES (X86)\GBPLUGIN\gbieh.dll
      O20 - Winlogon Notify:  GbPluginCef - C:\Program Files (x86)\GbPlugin\gbiehCef.dll
      O20 - Winlogon Notify:  GbPluginUni - C:\PROGRAM FILES (X86)\GBPLUGIN\gbiehUni.dll
      O23 - Service: Adobe Acrobat Update Service (AdobeARMservice) - Adobe Systems Incorporated - C:\Program Files (x86)\Common Files\Adobe\ARM\1.0\armsvc.exe
      O23 - Service: Adobe Flash Player Update Service (AdobeFlashPlayerUpdateSvc) - Adobe Systems Incorporated - C:\WINDOWS\SysWOW64\Macromed\Flash\FlashPlayerUpdateService.exe
      O23 - Service: @%SystemRoot%\system32\Alg.exe,-112 (ALG) - Unknown owner - C:\WINDOWS\System32\alg.exe (file missing)
      O23 - Service: AMD External Events Utility - Unknown owner - C:\WINDOWS\system32\atiesrxx.exe (file missing)
      O23 - Service: Serviço de atualização Ask (APNMCP) - APN LLC. - C:\Program Files (x86)\AskPartnerNetwork\Toolbar\apnmcp.exe
      O23 - Service: Serviço do Kaspersky Anti-Virus 15.0.2 (AVP15.0.2) - Kaspersky Lab ZAO - C:\Program Files (x86)\Kaspersky Lab\Kaspersky Total Security 15.0.2\avp.exe
      O23 - Service: @%SystemRoot%\system32\DiagSvcs\DiagnosticsHub.StandardCollector.ServiceRes.dll,-1000 (diagnosticshub.standardcollector.service) - Unknown owner - C:\WINDOWS\system32\DiagSvcs\DiagnosticsHub.StandardCollector.Service.exe (file missing)
      O23 - Service: Easy Launcher - Samsung Electronics CO., LTD. - C:\Program Files (x86)\Samsung\Settings\CmdServer\EasyLauncher.exe
      O23 - Service: @%SystemRoot%\system32\efssvc.dll,-100 (EFS) - Unknown owner - C:\WINDOWS\System32\lsass.exe (file missing)
      O23 - Service: @%systemroot%\system32\fxsresm.dll,-118 (Fax) - Unknown owner - C:\WINDOWS\system32\fxssvc.exe (file missing)
      O23 - Service: Serviço do Google Update (gupdate) (gupdate) - Google Inc. - C:\Program Files (x86)\Google\Update\GoogleUpdate.exe
      O23 - Service: Serviço do Google Update (gupdatem) (gupdatem) - Google Inc. - C:\Program Files (x86)\Google\Update\GoogleUpdate.exe
      O23 - Service: @%SystemRoot%\system32\ieetwcollectorres.dll,-1000 (IEEtwCollectorService) - Unknown owner - C:\WINDOWS\system32\IEEtwCollector.exe (file missing)
      O23 - Service: @keyiso.dll,-100 (KeyIso) - Unknown owner - C:\WINDOWS\system32\lsass.exe (file missing)
      O23 - Service: @comres.dll,-2797 (MSDTC) - Unknown owner - C:\WINDOWS\System32\msdtc.exe (file missing)
      O23 - Service: @%SystemRoot%\System32\netlogon.dll,-102 (Netlogon) - Unknown owner - C:\WINDOWS\system32\lsass.exe (file missing)
      O23 - Service: @%systemroot%\system32\Locator.exe,-2 (RpcLocator) - Unknown owner - C:\WINDOWS\system32\locator.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\samsrv.dll,-1 (SamSs) - Unknown owner - C:\WINDOWS\system32\lsass.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\SensorDataService.exe,-101 (SensorDataService) - Unknown owner - C:\WINDOWS\System32\SensorDataService.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\snmptrap.exe,-3 (SNMPTRAP) - Unknown owner - C:\WINDOWS\System32\snmptrap.exe (file missing)
      O23 - Service: @%systemroot%\system32\spoolsv.exe,-1 (Spooler) - Unknown owner - C:\WINDOWS\System32\spoolsv.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\sppsvc.exe,-101 (sppsvc) - Unknown owner - C:\WINDOWS\system32\sppsvc.exe (file missing)
      O23 - Service: SW Update Service (SWUpdateService) - Samsung Electronics CO., LTD. - C:\Program Files (x86)\Samsung\SW Update\SWMAgent.exe
      O23 - Service: SynTPEnh Caller Service (SynTPEnhService) - Synaptics Incorporated - C:\Program Files\Synaptics\SynTP\SynTPEnhService.exe
      O23 - Service: The Desktop Weather Service (TheDesktopWeatherService) - Unknown owner - C:\Program Files (x86)\WeatherTool\2.0.1.11244\WeatherService.exe
      O23 - Service: @%SystemRoot%\system32\TieringEngineService.exe,-702 (TieringEngineService) - Unknown owner - C:\WINDOWS\system32\TieringEngineService.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\ui0detect.exe,-101 (UI0Detect) - Unknown owner - C:\WINDOWS\system32\UI0Detect.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\vaultsvc.dll,-1003 (VaultSvc) - Unknown owner - C:\WINDOWS\system32\lsass.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\vds.exe,-100 (vds) - Unknown owner - C:\WINDOWS\System32\vds.exe (file missing)
      O23 - Service: @%systemroot%\system32\vssvc.exe,-102 (VSS) - Unknown owner - C:\WINDOWS\system32\vssvc.exe (file missing)
      O23 - Service: Warsaw Technology - GAS Tecnologia LTDA - C:\Program Files\Diebold\Warsaw\core.exe
      O23 - Service: @%systemroot%\system32\wbengine.exe,-104 (wbengine) - Unknown owner - C:\WINDOWS\system32\wbengine.exe (file missing)
      O23 - Service: @%ProgramFiles%\Windows Defender\MpAsDesc.dll,-320 (WdNisSvc) - Unknown owner - C:\Program Files (x86)\Windows Defender\NisSrv.exe (file missing)
      O23 - Service: @%ProgramFiles%\Windows Defender\MpAsDesc.dll,-310 (WinDefend) - Unknown owner - C:\Program Files (x86)\Windows Defender\MsMpEng.exe (file missing)
      O23 - Service: @%Systemroot%\system32\wbem\wmiapsrv.exe,-110 (wmiApSrv) - Unknown owner - C:\WINDOWS\system32\wbem\WmiApSrv.exe (file missing)
      O23 - Service: @%PROGRAMFILES%\Windows Media Player\wmpnetwk.exe,-101 (WMPNetworkSvc) - Unknown owner - C:\Program Files (x86)\Windows Media Player\wmpnetwk.exe (file missing)
      O23 - Service: ZAtheros Bt and Wlan Coex Agent - Atheros - C:\Program Files (x86)\Bluetooth Suite\Ath_CoexAgent.exe   --
      End of file - 15364 bytes     -->