Fórum Pegar um número de uma String #272687
16/03/2005
0
Olá amigos delphianos !
Bom a minha dúvida dever ser de simples solução. Eu tenho eu um form os seguintes componentes ( Edit1, Edit2 e Button1 ) , no edit 1 a pessoa vai entrar com a placa de um veículo , por exemplo DDD0000, aí após digitar a placa no edit 1 a pessoa vai ter que clicar no button1 que vai acontecer o seguinte :
Vai jogar no edit 2 o [u:1542a9e46e][b:1542a9e46e]último[/b:1542a9e46e][/u:1542a9e46e] numero da placa digitada no Edit1.
No exemplo que citei ( DDD0000 ) o edit 2 vai conter ´ 0 ´ se a placa fosse ( DDL-1315 ) Edit 2 = ´ 5 ´ !
Valeu mais uma vez galera ! Obrigado ! :wink:
Bom a minha dúvida dever ser de simples solução. Eu tenho eu um form os seguintes componentes ( Edit1, Edit2 e Button1 ) , no edit 1 a pessoa vai entrar com a placa de um veículo , por exemplo DDD0000, aí após digitar a placa no edit 1 a pessoa vai ter que clicar no button1 que vai acontecer o seguinte :
Vai jogar no edit 2 o [u:1542a9e46e][b:1542a9e46e]último[/b:1542a9e46e][/u:1542a9e46e] numero da placa digitada no Edit1.
No exemplo que citei ( DDD0000 ) o edit 2 vai conter ´ 0 ´ se a placa fosse ( DDL-1315 ) Edit 2 = ´ 5 ´ !
Valeu mais uma vez galera ! Obrigado ! :wink:
Tiagojmilam
Curtir tópico
+ 0
Responder
Posts
16/03/2005
Motta
USE O COPY
s1:= copy(edit1.text,7,1);
se a string tiver tamanho variavel use length para saber o tamanho
use pos para saber a posicao de uma substring em uma string.
s1:= copy(edit1.text,7,1);
se a string tiver tamanho variavel use length para saber o tamanho
use pos para saber a posicao de uma substring em uma string.
Responder
Gostei + 0
16/03/2005
Marcio.theis
Bom... Você pode fazer de duas formas simples....
1°
neste primeiro ele sempre ira pegar o último caracter do edit1
2°
neste segundo ele sempre ira pegar o 7 digito
1°
if edt1.Text <> ´´ then
edt2.Text:=copy(edt1.Text,length(edt1.Text), length(edt1.Text));
neste primeiro ele sempre ira pegar o último caracter do edit1
2°
if edt1.Text <> ´´ then
edt2.Text:=copy(edt1.Text,7,1);
neste segundo ele sempre ira pegar o 7 digito
Responder
Gostei + 0
16/03/2005
Rômulo Barros
procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := Edit1.Text[7]; end;
_________________________________
Utilize a pesquisa do fórum
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)