remover 10 primeiros caracteres de um TEDIT

Delphi

10/05/2005

bom, tenho um edit que possui sempre um monte de caracteres....
gostaria de remover apenas os dez primeiros, deixando o restante...
Alguem teria uma ideia de como eu posso fazer isso?
Abraços!
Juliano


Mahdak

Mahdak

Curtidas 0

Respostas

Tnaires

Tnaires

10/05/2005

Olá
Tente o seguinte (não testei):
Delete(Edit1.Text, 1, 10);

Abraços


GOSTEI 0
Mahdak

Mahdak

10/05/2005

deu o seuinte erro:

[Error] Unit1.pas(31): Constant object cannot be passed as var parameter

e agora?


GOSTEI 0
Tnaires

Tnaires

10/05/2005

É verdade, o Text do Edit é constante e não pode ser alterado por referência.
Nesse caso, tente:
Edit1.Text := Copy(Edit1.Text, 1, 10);

Talvez a sintaxe do Copy esteja errada, pq tô sem Delphi e não me lembro mto.
Abraços


GOSTEI 0
Mahdak

Mahdak

10/05/2005

sim deu certo mas ao invés de apagar os dez primeiros caracteres ele apaga os dez ultimos do edit... nao tem como inverter isso?


GOSTEI 0
Tnaires

Tnaires

10/05/2005

Hehehe, q coisa não? :oops:
Tente assim:
Edit1.Text := Copy(Edit1.Text, 10, Length(Edit1.Text));

Abraços


GOSTEI 0
Tnaires

Tnaires

10/05/2005

Melhor:
Edit1.Text := Copy(Edit1.Text, 11, Length(Edit1.Text));

Pq do jeito anterior ele pega a partir do décimo caractere, ou seja, exclui os 9 primeiros.
Abraços


GOSTEI 0
Mahdak

Mahdak

10/05/2005

Valeu irmao, deu certinho agora...
Abraços!


GOSTEI 0
POSTAR