Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
03.11.2006, 21:40
|
|
Новичок
Регистрация: 22.10.2006
Сообщений: 14
Провел на форуме:
11727
Репутация:
1
|
|
Работа со строками
Делаю так
Код:
var
R: string;
T: string;
X: integer;
begin
X := Length(T);
if X >= 10 then
//преобразую строку в число и проверяю если оно больше то
R := '...';
//R := Заменяю ... буквы после 10 символа
Insert(R,T,10);
как сделать, подскажите, ничего не происходит |
|
|
04.11.2006, 08:46
|
|
Участник форума
Регистрация: 06.04.2006
Сообщений: 257
Провел на форуме:
367179
Репутация:
76
|
|
Опиши поподробней, что ты хочешь получить этой функцией.
Следуя твоему коду, получается следдующее:
Если длина строки больше или равна 10, то строке R:='...', Потом строка в строку T Вставляется строка R, т.е. никакой замены то не происходит.
Также я не нашел ни одной функции преобразования строки в число, как это написано у тебя в коментах.
|
|
|
|
04.11.2006, 12:48
|
|
Новичок
Регистрация: 22.10.2006
Сообщений: 14
Провел на форуме:
11727
Репутация:
1
|
|
Сообщение от TaNkist
Также я не нашел ни одной функции преобразования строки в число, как это написано у тебя в коментах.
Length(...) Этой функцией преобразую строку в число
В Общем надо узнать число символов(букв) в tabsheet1.caption и если символов больше 10 то после 10 символа обрубить всё и вставить '...'
А потом tabsheet1.caption присвоить полученный результат
|
|
|
|
04.11.2006, 12:58
|
|
Участник форума
Регистрация: 06.04.2006
Сообщений: 257
Провел на форуме:
367179
Репутация:
76
|
|
Lenght - возвращает длину строки, но никак не преобразует строка в число.
Если я правильно тебя понял, то код должен быть такой:
Код:
//Функция написана на скорую руку и не оптимизирована как следует.
var
T: string;
X: integer;
begin
X:=Length(T);
if X>10 then
begin
delete(T,11,x-10);
T:=T+'...';
end;
end;
|
|
|
|
04.11.2006, 17:59
|
|
Новичок
Регистрация: 22.10.2006
Сообщений: 14
Провел на форуме:
11727
Репутация:
1
|
|
var
T: string;
X: integer;
begin
T := tabsheet.caption;
X:=Length(T);
if X>10 then
begin
delete(T,11,x-10);
tabsheet.caption:=T+'...';
end;
end;
Так!!!
Работает!
Спасибо за внимание
Последний раз редактировалось mcdelon; 04.11.2006 в 19:27..
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
