O código não funciona
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.
Paulo
Curtidas 0
Respostas
Wdrocha
04/08/2008
Desculpe....
mas não entendi direito seu problema...
vc pode explicar melhor....
´ toda a string menos as 14 últimas posições.´ ?????
No Aguardo
mas não entendi direito seu problema...
vc pode explicar melhor....
´ toda a string menos as 14 últimas posições.´ ?????
No Aguardo
GOSTEI 0
Paulo
04/08/2008
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.
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.
GOSTEI 0
Wdrocha
04/08/2008
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
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
GOSTEI 0
Paulo
04/08/2008
WDRocha, ficou igual ao meu. A diferença é que o meu começa na posição 26, que é o que me interessa.
GOSTEI 0
Wdrocha
04/08/2008
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]
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]
GOSTEI 0
Paulo
04/08/2008
Está como o meu código. Assim ainda não funcionou. Continua vindo tudo.
GOSTEI 0
Wdrocha
04/08/2008
Tem alguma coisa errada...
manda pra mim...o seu código...
pq aq tah funcionando legal...
manda pra mim...o seu código...
pq aq tah funcionando legal...
GOSTEI 0
Wdrocha
04/08/2008
Qual seu email??
Pra eu mandar o exemplo q fiz....
e aew vc diz se é o q vc quer...
flw..
Pra eu mandar o exemplo q fiz....
e aew vc diz se é o q vc quer...
flw..
GOSTEI 0
Paulo
04/08/2008
sTexto := 6500200003400312003942LT4CALCA S/ PREGA BOLSO FACA00100000007500
s := Copy(sTexto,26,length(sTexto)-14);
Este é meu código e não funciona.
GOSTEI 0
Wdrocha
04/08/2008
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....
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....
GOSTEI 0
Paulo
04/08/2008
Seria este o resultado, da posição 26 até o último sem os 14 ultimos.
CALCA S/ PREGA BOLSO FACA
GOSTEI 0
Wdrocha
04/08/2008
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
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
GOSTEI 0
Paulo
04/08/2008
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´
GOSTEI 0
Paulo
04/08/2008
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.
GOSTEI 0
Wdrocha
04/08/2008
Blz....
Posta q eu quero ver como ficou estava tentando resolver....
Posta q eu quero ver como ficou estava tentando resolver....
GOSTEI 0
Thomaz_prg
04/08/2008
s := Copy(sTexto,26,length(sTexto)-40);
GOSTEI 0
Paulo
04/08/2008
Copy(sTexto,26,length(sTexto)-39);
Esse foi o código final.
Esse foi o código final.
GOSTEI 0