O c�digo n�o funciona

Question

[quote:09fe6c6817]s := Copy(sTexto,26,length(sTexto)-14);[/quote:09fe6c6817]Porque esse c�digo n�o funciona? Quero copiar da posi��o 26, toda a string menos as 14 �ltimas posi��es....

Wdrocha · Answer

Desculpe....mas n�o entendi direito seu problema...vc pode explicar melhor....� toda a string menos as 14 �ltimas posi��es.� ?????No Aguardo...

Paulo · Answer

exatamente, um copy na string -14 �ltimas.
Imagine uma string com 40 posi��es. Quero copiar toda ela, menos as 14 �ltimas, ou seja, as 26 primeiras. Mas esta string pode ter 38 posi��es, ent�o seria tudo -14, ou seja, as 24 primeiras. Como eu nunca sei o tamanho exato da string, ent�o que dar um copy na string menos as 14 �ltimas posi��es, a� eu tenho o que eu quero.

Wdrocha · Answer

Feito....Daquele jeito estava erraado...Agora est� correto...//******************************************************Procedure TForm1.BitBtn1Click(Sender: TObject);Var s, STexto : String;  Begin     STexto := �Williame Rocha Funda��o Paulo Feitoza Programador de Sistemas�;     S := Copy(STexto, 0, Length(STexto) - 14);     Edit1.Text := S;  End;End.//******************************************************o Resultado ser�..�Williame Rocha Funda��o Paulo Feitoza Programad� Sem as apas...Flw....qualquer coisa posta aew...espero ter ajudado.Flw...

Paulo · Answer

WDRocha, ficou igual ao meu. A diferen�a � que o meu come�a na posi��o 26, que � o que me interessa....

Wdrocha · Answer

n�o funcionou??Da forma q postei....copia todas as posi��es, menos as 14 �ltimas...n�o era o q vc queria???Ex: �Quero copiar toda ela, menos as 14 �ltimas, ou seja, as 26 primeiras.�[/list]...

Paulo · Answer

Est� como o meu c�digo. Assim ainda n�o funcionou. Continua vindo tudo....

Wdrocha · Answer

Tem alguma coisa errada...manda pra mim...o seu c�digo...pq aq tah funcionando legal......

Wdrocha · Answer

Qual seu email??Pra eu mandar o exemplo q fiz....e aew vc diz se � o q vc quer...flw.....

Paulo · Answer

[quote:ad81b04f1b]sTexto := 6500200003400312003942LT4CALCA S/ PREGA BOLSO FACA00100000007500[/quote:ad81b04f1b]s := Copy(sTexto,26,length(sTexto)-14);Este � meu c�digo e n�o funciona....

Wdrocha · Answer

N�o � este o resultado q vc quer??6500200003400312003942LT4CALCA S/ PREGA BOLSO FACAAq est� correto...sem os �ltimos 14 carasteres...E por acaso...o c�digo q mandei...tem uma sutil diferen�a..S := Copy(STexto, [b:05c1a47ed5]0[/b:05c1a47ed5], Length(STexto) - 14);� Zero no lugar de 26.......

Paulo · Answer

Seria este o resultado, da posi��o 26 at� o �ltimo sem os 14 ultimos.[quote:db5f55fd99]CALCA S/ PREGA BOLSO FACA [/quote:db5f55fd99]...

Wdrocha · Answer

Olhando melhor...agora entendi....poxa...quase n�o entendo n�???

Tow fazendo o exemplo aq pra vc e j� mandow....

O resultado q vc quer � este n�??
[i:61cd84ec75]
CALCA S/ PREGA BOLSO FACA[/i:61cd84ec75]

Vou j� mandar..

flw

Paulo · Answer

Meu c�digo � o mesmo do seu e olha o resultado: Acabei de dar um CTRL+F7 e capturar o que estava passando por ele e veio isso a� no meu debug e � o mesmo c�digo seu.

�COSTUME 3 BOT. C/ 2 ABERT.00100000036000�

Paulo · Answer

Resolvi. Esqueci de considerar a posi��o inicial, ent�o n�o era -14 e sim -39. As 14 e mais o inicio at� a posi��o 26. 25 + 14 = 39....

Wdrocha · Answer

Blz....Posta q eu quero ver como ficou estava tentando resolver.......