Pegar um número de uma String

Delphi

16/03/2005

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:


Tiagojmilam

Tiagojmilam

Curtidas 0

Respostas

Motta

Motta

16/03/2005

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.


GOSTEI 0
Marcio.theis

Marcio.theis

16/03/2005

Bom... Você pode fazer de duas formas simples....

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


GOSTEI 0
Rômulo Barros

Rômulo Barros

16/03/2005

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit2.Text := Edit1.Text[7];
end;


_________________________________
Utilize a pesquisa do fórum


GOSTEI 0
POSTAR