O código não funciona

04/08/2008

1

s := Copy(sTexto,26,length(sTexto)-14);

Porque esse código não funciona? Quero copiar da posição 26, toda a string menos as 14 últimas posições.


Responder

Posts

04/08/2008

Wdrocha

Desculpe....


mas não entendi direito seu problema...


vc pode explicar melhor....


´ toda a string menos as 14 últimas posições.´ ?????




No Aguardo


Responder

04/08/2008

Paulo

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.


Responder

04/08/2008

Wdrocha

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


Responder

04/08/2008

Paulo

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


Responder

04/08/2008

Wdrocha

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]


Responder

04/08/2008

Paulo

Está como o meu código. Assim ainda não funcionou. Continua vindo tudo.


Responder

04/08/2008

Wdrocha

Tem alguma coisa errada...


manda pra mim...o seu código...


pq aq tah funcionando legal...


Responder

04/08/2008

Wdrocha

Qual seu email??

Pra eu mandar o exemplo q fiz....


e aew vc diz se é o q vc quer...


flw..


Responder

04/08/2008

Paulo

sTexto := 6500200003400312003942LT4CALCA S/ PREGA BOLSO FACA00100000007500

s := Copy(sTexto,26,length(sTexto)-14);

Este é meu código e não funciona.


Responder

04/08/2008

Wdrocha

Não é este o resultado q vc quer??

6500200003400312003942LT4CALCA S/ PREGA BOLSO FACA


Aq 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....


Responder

04/08/2008

Paulo

Seria este o resultado, da posição 26 até o último sem os 14 ultimos.
CALCA S/ PREGA BOLSO FACA



Responder

04/08/2008

Wdrocha

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


Responder

04/08/2008

Paulo

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´



Responder

04/08/2008

Paulo

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.


Responder

04/08/2008

Wdrocha

Blz....


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


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira