Помогите Delphi

[DrTressi]

Помогите Delphi

Добрый вечер! Помогите пожалуйста, есть строчка из символов. Какая то строчка. Забитая в переменную x. Нужно из неё убрать последний символ. Как это сделать? Заранее спасибо!

 

[Chuwis720]

Функция Delete(var S: String; Index, Count: Integer): Integer
Удаляет из строки S подстроку, начинающуюся с номера символа, равного Index, и содержащую до Count символов.

Длинна строки определяется функцией Length(строка).

В твоем случае должно быть как то так...

var x: string;
begin
Delete(x,(Length(x)-1),1);
end;

 

[DrTressi]

А если кол-во Count не известно.

Можешь пример привести?

 

[Chuwis720]

Тебе нужно удалить ПОСЛЕДНИЙ символ? Значит, как я понимаю, нужно удалить подстроку, начинающуюся с ПРЕДПОСЛЕДНЕГО и равную 1 символу.

 

[DrTressi]

Строка:

Delete (Edit1.Text, (Lenght(Edit1.Text)-1,1)

ошибка:

Indeclarated identifier: 'Lenght'

Post automatically merged: May 24, 2011

2 Chuwis720: Я не совсем понимаю что такое подстрока

Post automatically merged: May 24, 2011

Беда, что делать??

 

[Chuwis720]

Не lenght, а length. А подстрока - это часть строки, которую надо удалять. У тебя она состоит из 1 символа - последнего симола в строке.

 

[DrTressi]

2 Chuwis720: Спасибо, теперь такую выдал:

Constant object cannot be passed as var parameter

 

[NicknekitNEW]

2 DrTressi:
Значение констаты не может изменятся. Нужно сначала присвоить значение констаты переменной, например x:=y, где x - переменная, а y - констата

 

[Chuwis720]

Я не уверен, но, возможно, не стоит производить подобные манипуляции с TEdit. Попробуй сделать стринговую переменную (например, str), а потом - str:=Edit1.Text; А дальше попробуй вышеупомянутые действия выполнить уже с переменной str. Не уверен, но вдруг поможет...

 

[DrTressi]

2 Chuwis720: хм.. дык разницы то вобщем то нет. Но щас попробую отпишусь)

Post automatically merged: May 24, 2011

Заработало, Спасибо огромное!! Только вместо -1 о нужно было поставить, ибо он удалял предпоследний