Fórum delphi - comando copy #587471
04/11/2017
0
ALGUEM SABE ME DIZER COMO USAR O COMANDO COPY(E/OU OUTRO COMANDO SE ENCAIXE AO CASO) NESSA SITUAÇÃO ABAIXO , EXEMPLO:
TEXTO := 'ABC-DEF-GHI'
WHILE TEXTO <> 0 DO
BEGIN
PRECISO COPIAR SEMPRE O TEXTO COMEÇANDO DA ESQUERDA ATE O '-'
EXEMPLO : 'ABC' ;
DEPOIS DE COPIAR O 'ABC',DELETA-LO E COPIAR O 'DEF' E ASSIM CONSECUTIVAMENTE;
END;
SE ALGUEM PUDER ME AJUDAR AGRADEÇO MUITO;
ABRAÇOS;
TEXTO := 'ABC-DEF-GHI'
WHILE TEXTO <> 0 DO
BEGIN
PRECISO COPIAR SEMPRE O TEXTO COMEÇANDO DA ESQUERDA ATE O '-'
EXEMPLO : 'ABC' ;
DEPOIS DE COPIAR O 'ABC',DELETA-LO E COPIAR O 'DEF' E ASSIM CONSECUTIVAMENTE;
END;
SE ALGUEM PUDER ME AJUDAR AGRADEÇO MUITO;
ABRAÇOS;
Igor
Curtir tópico
+ 0
Responder
Post mais votado
04/11/2017
// 1° comando copy; 2° o texto a ser copiado 3° o numero de digitos a ser copiado
ex:
texto:= abc-def ...
variavel:=copy(texto,1,3); // a variavel recebe abc
o delete e semelhante o funcionameto
para uma estrutura de repetição vai depender se vc sempre sabera o tamanho do texto ou se nao saberá, o codigo pode variar ai
se nao for suficiente especifique mais o que vc realmente vai querer aqui
ex:
texto:= abc-def ...
variavel:=copy(texto,1,3); // a variavel recebe abc
o delete e semelhante o funcionameto
para uma estrutura de repetição vai depender se vc sempre sabera o tamanho do texto ou se nao saberá, o codigo pode variar ai
se nao for suficiente especifique mais o que vc realmente vai querer aqui
Henrique Dias
Responder
Gostei + 2
Mais Posts
05/11/2017
Igor
ENTAO MAS NO CASO NAO SERIA FIXO A LETRA E A QUANTIDADE DE CARACTERES;
CONSEGUI RESOLVER DEPOIS DE APANHAR UM POUCO, SABIA USAR O COPY E POS, POREM NAO TINHA SEGUIDO O MESMO CAMINHO NA LOGICA, DEPOIS DE APANHAR E PESQUISAR CONSEGUI ENTENDER;
CASO ALGUEM PASSE POR UM PROBLEMA PARECIDO SEGUE A RESOLUÇÃO
RESOLUÇÃO:
WHILE LENGTH(TEXTO) > 0 DO
BEGIN
//COPIANDO A STRING ANTES DO '-'
parte := copy(texto,0,(pos('-',texto)-1));
//DELETANDO A STRING ANTES DO '-'
delete(texto,1,length(parte)+1);
END;
OBRIGADO PELA AJUDA MESMO ASSIM, ABRAÇOS;
CONSEGUI RESOLVER DEPOIS DE APANHAR UM POUCO, SABIA USAR O COPY E POS, POREM NAO TINHA SEGUIDO O MESMO CAMINHO NA LOGICA, DEPOIS DE APANHAR E PESQUISAR CONSEGUI ENTENDER;
CASO ALGUEM PASSE POR UM PROBLEMA PARECIDO SEGUE A RESOLUÇÃO
RESOLUÇÃO:
WHILE LENGTH(TEXTO) > 0 DO
BEGIN
//COPIANDO A STRING ANTES DO '-'
parte := copy(texto,0,(pos('-',texto)-1));
//DELETANDO A STRING ANTES DO '-'
delete(texto,1,length(parte)+1);
END;
OBRIGADO PELA AJUDA MESMO ASSIM, ABRAÇOS;
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)