[Dúvida] loop com strings
2 participantes
Página 1 de 1
[Dúvida] loop com strings
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:
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?
É 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;
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
- Mensagens : 1
Data de inscrição : 17/02/2013
Re: [Dúvida] loop com strings
- 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;
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
Seg Jul 27, 2015 11:42 am por Fredyffp
» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
Sáb Jul 18, 2015 10:18 am por storeprotheus
» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
Sá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 ?
Qui maio 14, 2015 3:41 pm por ant.carlos/sp
» Exception EBDEngineError
Sex Fev 27, 2015 6:52 am por luan_cpd
» Exception EBDEngineError
Sex Fev 27, 2015 6:49 am por luan_cpd
» Componente Delphi Brasil
Sex Jan 23, 2015 11:51 am por pedrosilva
» Erro no Delphi “A linha não pode ser localizada para atualiz
Sex 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...
Ter Out 14, 2014 9:55 am por john marcos