Posicao Edit

Delphi

01/05/2003

Ola,

Estou presizando de duas ajuda com edit;
1 - Tenho um edit , com 10 digito e quero comparar cada um por exemplo : edit è 2345676 primeira posicao igual 2 ok, segunda posicao igual 7 nao.

2 - Outro Edtit è 13134553218 quero copiar para outros edits, exp
: edit1 igual 1 edit2 igual 31 edit3 igual 34553218

grato

elcilei@brfree.com.br


Elcilei

Elcilei

Curtidas 0

Respostas

Db

Db

01/05/2003

O Delphi possui a função [b:550ecf0b8d] Copy [/b:550ecf0b8d] que retorna uma substring de uma string. Sua sintaxe é:

[b:550ecf0b8d] function Copy(S: string; Index, Count: Integer): string; [/b:550ecf0b8d],

onde [b:550ecf0b8d]S[/b:550ecf0b8d] é o texto original, [b:550ecf0b8d]Index[/b:550ecf0b8d] refere-se a posição inicial da substring e [b:550ecf0b8d] Count [/b:550ecf0b8d] é a quantidade de caracteres a ser copiado.

O seu exemplo ficaria:

Edit1.Text := Copy(Edit.Text, 1, 1);
Edit2.Text := Copy(Edit.Text, 2, 2);
Edit3.Text := Copy(Edit.Text, 4, 8);


GOSTEI 0
POSTAR