| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Sel
Novato
Registrado: Domingo, 30 de Outubro de 2011
Mensagens: 13
|
 Enviada: Dom Out 30, 2011 9:37 pm Assunto: Como comparar esta string? |
 |
|
Estou com seguinte duvida tenho duas strings
String01 = 0 ou 3 | 4 ou 7 | 1 ou 2 | 5 ou 8 | 1 ou 2 | 6 ou 9 |
String02 = 0 ou 7 | 0 ou 7 | 1 ou 8 | 1 ou 8 | 1 ou 8 | 4 ou 9 |
Gostaria de pegar os numeros repetidos em cada coluna,
dai a sequencia ficaria assim " 071819 ", é assim ficaria o resultado final.
Se alguem tiver uma ideia de como resolver esse problema fico agradecido.
Desde ja agradeço a todos. |
|
| Voltar ao Topo |
|
 |
Tchock
Colaborador
Registrado: Domingo, 18 de Julho de 2004
Mensagens: 1242
|
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Dom Out 30, 2011 10:43 pm Assunto: |
|
|
Acho que você poderia varrer as 2 strings caracter por caracter (String01[i] e String02[i]) para verificar se são números (função Character.IsNumber ou SysUtils.TryStrToInt), compara-los e montar a string com o resultado final.
Espero que seja útil.
__________________
Assinatura: Imoveis em Guarulhos para alugar |
|
| Voltar ao Topo |
|
|
johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
|
| Voltar ao Topo |
|
|
Sel
Novato
Registrado: Domingo, 30 de Outubro de 2011
Mensagens: 13
|
| Enviada: Ter Nov 01, 2011 11:55 am Assunto: |
|
|
Johnny-Walker ainda nao é oque estou precisando, vc podeira me explicar esta outra forma?
Obriga do pela atenção. |
|
| Voltar ao Topo |
|
|
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Ter Nov 01, 2011 1:25 pm Assunto: |
|
|
um exemplo simples:
| Código: | procedure ...
var s1, s2, r: String;
x: Integer;
begin
s1 := '0 ou 3 | 4 ou 7 | 1 ou 2 | 5 ou 8 | 1 ou 2 | 6 ou 9 |';
s2 := '0 ou 7 | 0 ou 7 | 1 ou 8 | 1 ou 8 | 1 ou 8 | 4 ou 9 |';
r := '';
for x := 1 to Length(s1) do
begin
if s1[x] in ['0'..'9'] then
begin
if s1[x] = s2[x] then
r := r + s1[x];
end;
end;
ShowMessage(r);
end;
|
lembrando q fiz direto aqui no forum. nao testei mas pelo q entendi a ideia é essa.
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
Sel
Novato
Registrado: Domingo, 30 de Outubro de 2011
Mensagens: 13
|
| Enviada: Ter Nov 01, 2011 5:38 pm Assunto: |
|
|
| joemil escreveu: | um exemplo simples:
| Código: | procedure ...
var s1, s2, r: String;
x: Integer;
begin
s1 := '0 ou 3 | 4 ou 7 | 1 ou 2 | 5 ou 8 | 1 ou 2 | 6 ou 9 |';
s2 := '0 ou 7 | 0 ou 7 | 1 ou 8 | 1 ou 8 | 1 ou 8 | 4 ou 9 |';
r := '';
for x := 1 to Length(s1) do
begin
if s1[x] in ['0'..'9'] then
begin
if s1[x] = s2[x] then
r := r + s1[x];
end;
end;
ShowMessage(r);
end;
|
lembrando q fiz direto aqui no forum. nao testei mas pelo q entendi a ideia é essa. |
É isso mesmo que eu estava querendo.
MUITO OBRIGADO " JOEMIL ", VALEU MESMO PELA AJUDA. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
