var
R: string;
T: string;
X: integer;
begin
X := Length(T);
if X >= 10 then
//преобразую строку в число и проверяю если оно больше то
R := '...';
//R := Заменяю ... буквы после 10 символа
Insert(R,T,10);
Работа со строками
Делаю так
как сделать, подскажите, ничего не происходит
Код:
как сделать, подскажите, ничего не происходит
А если попробовать сперва присвоить какое-то значение для T, тоже ничего не выходит?
[QUOTE=Мerlin]А если попробовать сперва присвоить какое-то значение для T, тоже ничего не выходит?[/QUOTE]
нет не выходит, может я не в том обработчике код реализую, пытался сделать
OnNewWindow2(...)
При создании TabSheet
FormCreate(...)
нет не выходит, может я не в том обработчике код реализую, пытался сделать
OnNewWindow2(...)
При создании TabSheet
FormCreate(...)
Т не получает значение, по этому ее длина равна 0.
Можно поставить на ту команду breakpoint или написать
перед ним ShowMessage('Hi!');
и тогда будет ясно получает ли тот код управление
или нет.
Но во всяком случае сперва должно идти
T := что-то;
и только после этого
X := Length(T);
Можно поставить на ту команду breakpoint или написать
перед ним ShowMessage('Hi!');
и тогда будет ясно получает ли тот код управление
или нет.
Но во всяком случае сперва должно идти
T := что-то;
и только после этого
X := Length(T);
[QUOTE=Мerlin]Т не получает значение, по этому ее длина равна 0.
Можно поставить на ту команду breakpoint или написать
перед ним ShowMessage('Hi!');
и тогда будет ясно получает ли тот код управление
или нет.
Но во всяком случае сперва должно идти
T := что-то;
и только после этого
X := Length(T);[/QUOTE]
А Insert(...);
Я правильно использую?
И как присвоить tab.caption то что получилось в Insert(...);
Можно поставить на ту команду breakpoint или написать
перед ним ShowMessage('Hi!');
и тогда будет ясно получает ли тот код управление
или нет.
Но во всяком случае сперва должно идти
T := что-то;
и только после этого
X := Length(T);[/QUOTE]
А Insert(...);
Я правильно использую?
И как присвоить tab.caption то что получилось в Insert(...);
А так не покатит?
Код:
if Length(T)>=10 then T:=Copy(T,1,10)+'...';
[QUOTE=Ihbif17]А Insert(...);
Я правильно использую?
И как присвоить tab.caption то что получилось в Insert(...);[/QUOTE]
Еу, бери да присваивай. Tab.Caption типа Tcaption, поэтому со строкой взаимодествовать должен,........кажется.
Я правильно использую?
И как присвоить tab.caption то что получилось в Insert(...);[/QUOTE]
Еу, бери да присваивай. Tab.Caption типа Tcaption, поэтому со строкой взаимодествовать должен,........кажется.
[QUOTE=saturn61]Еу, бери да присваивай. Tab.Caption типа Tcaption, поэтому со строкой взаимодествовать должен,........кажется.[/QUOTE]
Может правильнее будет использовать Delete(...)?
Может правильнее будет использовать Delete(...)?
Код:
var
T: string;
X: integer;
begin
T := form1.caption;
X:=Length(T);
if X>10 then
delete(T,11,x-10);
form1.caption:=T+'...';
end;
T: string;
X: integer;
begin
T := form1.caption;
X:=Length(T);
if X>10 then
delete(T,11,x-10);
form1.caption:=T+'...';
end;
Сделал на примере с caption формы, работает
Тему можно закрыть, спасибо