Delphi Brasil
Seja bem-vindo (a) ao Delphi Brasil,aqui você encontrará dicas,tutoriais e etc.
Por favor,registre-se para obter o maior proveito possivel do fórum.

Participe do fórum, é rápido e fácil

Delphi Brasil
Seja bem-vindo (a) ao Delphi Brasil,aqui você encontrará dicas,tutoriais e etc.
Por favor,registre-se para obter o maior proveito possivel do fórum.
Delphi Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Procurar
 
 

Resultados por:
 


Rechercher Pesquisa avançada

Entrar

Esqueci-me da senha

Últimos assuntos
» Problemas para atualizar carteira bamcaria no delphi 5
[Dúvida] loop com strings EmptySeg Jul 27, 2015 11:42 am por Fredyffp

» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
[Dúvida] loop com strings EmptySáb Jul 18, 2015 10:18 am por storeprotheus

» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
[Dúvida] loop com strings EmptySáb Jul 18, 2015 10:17 am por storeprotheus

» Como gravar um campo Blob no FireBird + Delphi de um campo tipo imagem no MS-ACCESS ?
[Dúvida] loop com strings EmptyQui maio 14, 2015 3:41 pm por ant.carlos/sp

»  Exception EBDEngineError
[Dúvida] loop com strings EmptySex Fev 27, 2015 6:52 am por luan_cpd

» Exception EBDEngineError
[Dúvida] loop com strings EmptySex Fev 27, 2015 6:49 am por luan_cpd

» Componente Delphi Brasil
[Dúvida] loop com strings EmptySex Jan 23, 2015 11:51 am por pedrosilva

»  Erro no Delphi “A linha não pode ser localizada para atualiz
[Dúvida] loop com strings EmptySex Out 24, 2014 11:47 am por Edson

» Fontes Automação Comercial 8.5 - Retaguarda c/ PDV, PAF 1.10, TEF, ECF, Sintegra, SpedFiscal, Google Maps e muito mas...
[Dúvida] loop com strings EmptyTer Out 14, 2014 9:55 am por john marcos

Parceiros

[Dúvida] loop com strings

2 participantes

Ir para baixo

[Dúvida] loop com strings Empty [Dúvida] loop com strings

Mensagem por Super Maker Dom Fev 17, 2013 2:43 pm

Bem pessoal, eu sou novo aqui e esse é meu 1º tópico. Preciso da ajuda de vocês, por favor.
É o seguinte. Em uma parte do meu programa tem um botão que converte cada letra do texto pra uma sequência de mais de um caracter, esse botão deve fazer isso em um só clique.
Eu já tentei isso:
Código:
procedure TFrame_Home.Bt_CopyClick(Sender: TObject);
var
  I: Integer;
  Tx_Replace: String;
begin
  Tx_Replace := Tx_Input.Text;
  for I := 1 to Length(Tx_Replace) do
    case Ord(Tx_Replace[I]) of
      Ord(97): Tx_Replace := StringReplace(Tx_Replace,Chr(Ord(Tx_Replace[I])),'--A--',[rfReplaceAll, rfIgnoreCase]);
      Ord(98): Tx_Replace := StringReplace(Tx_Replace,Chr(Ord(Tx_Replace[I])),'--B--',[rfReplaceAll, rfIgnoreCase]);
      Ord(99): Tx_Replace := StringReplace(Tx_Replace,Chr(Ord(Tx_Replace[I])),'--C--',[rfReplaceAll, rfIgnoreCase]);
    end;
    Tx_Input.Text := Tx_Replace;
end;
Isso foi o mais próximo que eu cheguei do que eu quero.
Eu não sei onde eu to errando, sei que se eu deixar pra converter pra um só caracter, funciona todas as linhas. Mas quando eu faço do jeito que mostro no código acima, só converte a primeira letra.
O loop para pelo fato de o próximo caracter ser desconhecido pelo script, mas eu quero que mesmo sendo desconhecido continue até checar e converter todas as letras.
Alguém sabe como eu posso fazer isso no Delphi 7 da maneira que eu fiz no GM?

Super Maker
Membro
Membro

Mensagens : 1
Data de inscrição : 17/02/2013

Ir para o topo Ir para baixo

[Dúvida] loop com strings Empty Re: [Dúvida] loop com strings

Mensagem por Luiz Henrique Qui Fev 28, 2013 8:45 am

Código:
procedure TFrame_Home.Bt_CopyClick(Sender: TObject);
var
  Tx_Replace: String;
begin
  Tx_Replace := Tx_Input.Text;
  Tx_Replace := StringReplace(Tx_Replace,Chr(Ord(97)),'--A--',[rfReplaceAll, rfIgnoreCase]);
  Tx_Replace := StringReplace(Tx_Replace,Chr(Ord(98)),'--B--',[rfReplaceAll, rfIgnoreCase]);
  Tx_Replace := StringReplace(Tx_Replace,Chr(Ord(99)),'--C--',[rfReplaceAll, rfIgnoreCase]);
  Tx_Input.Text := Tx_Replace;
end;

Luiz Henrique
Moderador
Moderador

Mensagens : 27
Data de inscrição : 17/12/2010
Idade : 28

http://tudopragalera.tk

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos