Работа со строками

[Train-GT]

У меня вопрос: в label записан текст: 12,21 АБ . Как оставить от текста только две последние буквы АБ? Функция delete (str,1,6) не работает.

[Кольша]

copy, pos, delete;

showmessage(copy(label1.caption,length(label1.caption)-2,length(label1.caption)));

[Serge_Bliznykov]

showmessage(copy(label1.caption,length(label1.caption)-2,length(label1.caption)));

ну, я бы сказал, что

label1.caption := copy(label1.caption,length(label1.caption)-1,2);

но ход мысли правильный

[Poma][a]

Эм..А почему бы не сделать так :

label.caption := 'АБ';

?

[Serge_Bliznykov]

Сообщение от Poma][a

Эм..А почему бы не сделать так :

label.caption := 'АБ';

?

Ну, мы же предполагаем, что текст в Label может быть разный. И последние две буквы совсем не обязательно равны АБ

[cotseec]

Как оставить от текста только две последние буквы

showmessage(label1.caption[length(label1.caption)-1] + 
      label1.caption[length(label1.caption)]);

ну, я бы сказал, что

label1.caption := copy(label1.caption,length(label1.caption)-1,2);

в случае использования copy, delete, т.е. функций, где указывается число вырезаемых символов вырезается указанное число символов или до конца строки, если указанное число превышает оставшееся число символов, т.к. тут речь идет о вырезании в конце строки, то код тов. Кольша корректен, можно вместо length(label1.caption) (число вырезаемых символов) указать $FFF, результат будет тот же

[Serge_Bliznykov]

хотел промолчать, но, когда вижу бажный код - не могу это сделать, уж извините..

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

showmessage(label1.caption[length(label1.caption)-1] + 
      label1.caption[length(label1.caption)]);

Категорически нельзя писать(использовать) подобный код!
Как Вы думаете, если Label1 будет пустой, то что сделает Ваш код?!

где указывается число вырезаемых символов вырезается указанное число символов или до конца строки, если указанное число превышает оставшееся число символов, т.к. тут речь идет о вырезании в конце строки, то код тов. Кольша корректен, можно вместо length(label1.caption) (число вырезаемых символов) указать $FFF, результат будет тот же

во-первых, внимательнее посмотрите, от кого символа в процедуре Copy берётся подстрока в коде Кольшы и от какого - в моём примере.
а во-вторых, да. ошибки не будет. Но объясните, зачем вместо конкретной константы 2 (нам же нужны ДВА символа из строки) писать $FFF или вызывать какую-то функцию?! Да, Вы можете написать даже так Copy(s, length(s)-1, $FFF+$FFF+Length(s)+2) - но ЗАЧЕМ?!! Это и называется индусский код

[cotseec]

Как Вы думаете, если Label1 будет пустой, то что сделает Ваш код?!

да, вывалится ошибка, да, необходимо проверять на наличие данных, длина которых не меньше 2, но перед работой с какими-то данными, получаемыми откуда-то, имеет смысл в первую очередь проверить наличие этих данных и соответствия их некоторым необходимым признакам, не правда ли?

Да, Вы можете написать даже так Copy(s, length(s)-1, $FFF+$FFF+Length(s)+2) - но ЗАЧЕМ?!!

затем, что когда число символов до конца строки неизвестно проще поставить заведомо большее значение, чем каждый раз высчитывать, в данном случае все известно, это лишнее

$FFF+$FFF+Length(s)+2 - а почему бы не ввернуть расчет еще по какой-нибудь замысловатой формуле? не изголяйтесь....

по поводу символа, с которого начинается отсчет - да, не увидел

[Arigato]

Сообщение от Train-GT

Функция delete (str,1,6) не работает.

Прекрасно работает, только она не функция, а процедура.

[grominfo]

Самый правильный код у Serge_Bliznykov

label1.caption := copy(label1.caption,length(label1.caption)-1,2);