[Erilar]

В эдите есть число 1000,5000. Как удалить числа до запятой вместе с самой запятой?

[Alegun]

Код:

Edit1.Text:= Copy(Edit1.Text, Pos(',', Edit1.Text)+1, Length(Edit1.Text));

[Erilar]

Сообщение от Alegun

Код:

Edit1.Text:= Copy(Edit1.Text, Pos(',', Edit1.Text)+1, Length(Edit1.Text));

не выходит. Остаются цифры после запятой, а мне нужно чтобы оставались перед запятой.

[Alegun]

...Как удалить числа до запятой вместе с самой запятой...

Как же это всё грустно

Код:

Edit1.Text:= Copy(Edit1.Text, 1, Pos(',', Edit1.Text)-1);