SHPORA.net :: PDA

Login:
регистрация

Main
FAQ

гуманитарные науки
естественные науки
математические науки
технические науки
Search:
Title: | Body:

Удаление последнего символа


begin

s:=Edit1.Text; присваиваем строковой переменной .Эдит1

y:=Length(s); присваиваем переменной длинну строки S

delete(s,y,1); удаляем из (строки S, колво символов,1 символ)

Edit1.Text:=s; Эдит 1 присваиваем значение переменной S

end;