(Resolvido) Como Copiar dados antes e após a virgula ?

[robinhocne]

Pessoal é o seguinte,

Tenho um campo na Tabela chamado Endereco onde todo o endereço e o numero estão juntos exemplo:

Rua São Salvador, 334

Meu banco de dados é Firebird.

e eu queria percorrer esse campo na tabela e copiar somente o numero apos a virgula, tenho alguns endereço que está assim também:

Rua Joao de Barro, S/N

preciso também copiar o S/N

como faço isso ?

alguém poderia me ajudar ?

Editado Maio 31, 2010 por robinhocne

[flavioavilela]

utilize o comando copy(Texto, apartir_de_quando(10), quantos_caracteres(2))

[Douglas Soares]

Faça assim:

var
a, b : integer;
begin
a := length(edt_endereco.Text);
b := pos(',', edt_endereco.Text);

edt_numero.Text := Trim(copy(edt_endereco.Text, b + 1, a - b));
end;

Abraços

[robinhocne]

Faça assim:

var
a, b : integer;
begin
a := length(edt_endereco.Text);
b := pos(',', edt_endereco.Text);

edt_numero.Text := Trim(copy(edt_endereco.Text, b + 1, a - b));
end;

Abraços

Deu certinho isso mesmo que eu precisava, mas agora preciso tbém copiar o que está antes da virgula no caso o endereço.

[Douglas Soares]

Essa você poderia ter descoberto eim :P

var
a, b : integer;
begin
a := length(edt_endereco.Text);
b := pos(',', edt_endereco.Text);

edt_numero.Text := Trim(copy(edt_endereco.Text, 1, b - 1));
end;

Abraços

[robinhocne]

Essa você poderia ter descoberto eim :P

var
a, b : integer;
begin
a := length(edt_endereco.Text);
b := pos(',', edt_endereco.Text);

edt_numero.Text := Trim(copy(edt_endereco.Text, 1, b - 1));
end;

Abraços

Opa isso mesmo, obrigado, é da proxima vez vou pensar um pouco mais....rsrrs

mas obrigado!