Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Записи текста в переменную / 8 сообщений из 8, страница 1 из 1
07.06.2018, 10:50
    #39657147
elimpion
elimpion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записи текста в переменную
Здравствуйте, есть строка
Код: pascal
1.
a:='Иванов Иван Иванович Иванович Иванович';

которая присвоена переменной
а так же
Код: pascal
1.
2.
а1:='Иванов';
а2:='Иван';


как в переменную а3 поместить все слова которое идут после 'Иван'? должны быть так
Код: pascal
1.
а3:='Иванович Иванович Иванович';
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2018, 10:53
    #39657155
DarkMaster
DarkMaster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записи текста в переменную
elimpion,

Код: pascal
1.
a3:=Copy(a,Pos('Иван ',a),Length(a));
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2018, 10:54
    #39657160
DarkMaster
DarkMaster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записи текста в переменную
DarkMaster,

Поправка:

Код: pascal
1.
a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a));
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2018, 11:02
    #39657172
zinpub
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записи текста в переменную
DarkMasterDarkMaster,

Поправка:

Код: pascal
1.
a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a));



a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a) - (Pos('Иван ',a)+Length('Иван ')));
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2018, 11:38
    #39657211
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записи текста в переменную
zinpuba3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a) - (Pos('Иван ',a)+Length('Иван ')));
Нафик надо, можно вообще:
Код: pascal
1.
a3 := Copy(a, Pos('Иван ', a) + Length('Иван '), MaxInt);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2018, 12:04
    #39657241
zinpub
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записи текста в переменную
alekcvpzinpuba3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a) - (Pos('Иван ',a)+Length('Иван ')));
Нафик надо, можно вообще:
Код: pascal
1.
a3 := Copy(a, Pos('Иван ', a) + Length('Иван '), MaxInt);



Некрасивенько... :-(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2018, 13:01
    #39657318
elimpion
elimpion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записи текста в переменную
спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2018, 12:01
    #39659417
elimpion
elimpion
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Записи текста в переменную
DarkMasterDarkMaster,

Поправка:

Код: pascal
1.
a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a));



Что подразумевается под "Строка вычисления перегружена"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Записи текста в переменную / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 395ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2040763]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 147ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 192ms
total:  395ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]