var
n: Integer;
begin
n := Length(Edit1.Text);
if n <= 5 then
Edit1.Text := ''
else
Edit1.Text := Copy(Edit1.Text, 1, n-5);
end;
Строка
Подскажите пожалуйста.
К примеру мы создали новый проект,кинули на него edit1(edit1.text='Наша программа'),и button1.Как сделать чтобы при нажатии на кнопку из поля edit1 удалялись 5 последниз букв?
К примеру мы создали новый проект,кинули на него edit1(edit1.text='Наша программа'),и button1.Как сделать чтобы при нажатии на кнопку из поля edit1 удалялись 5 последниз букв?
Или
var
s:string;
begin
try
s:= delete(Edit1.Text, length(edit1.text)-5,5);
except
s:='';
end;
edit1.text:=s;
end;
var
s:string;
begin
try
s:= delete(Edit1.Text, length(edit1.text)-5,5);
except
s:='';
end;
edit1.text:=s;
end;