Posicao Edit

Question

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 E...

Db · Answer

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);

F�rum Posicao Edit #157198