А не пробовал так:
psh:=copy(Form1.Edit1.Text,length(Form1.Edit1.Text )-3,4); - 4 последних символа текста. Естественно, как минимум 4 символа должно быть, иначе будет ошибка.
Ну или если надо только 3, то:
psh:='.'+copy(Form1.Edit1.Text,length(Form1.Edit1. Text)-2,3);
А если так уж хочется присваивать буквы по одной трём переменным, то:
l1:=Form1.Edit1.Text[Length(Form1.Edit1.Text)-2];
l2:=Form1.Edit1.Text[Length(Form1.Edit1.Text)-1];
l3:=Form1.Edit1.Text[Length(Form1.Edit1.Text)];
Но всегда перед этим надо проверить, есть ли там эти 3 или 4 символа, иначе индекс может оказаться меньше единицы и возникнет ошибка.
|