ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Записи текста в переменную
8 сообщений из 8, страница 1 из 1
Записи текста в переменную
    #39657147
elimpion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
elimpion
Гость
Здравствуйте, есть строка
Код: pascal
1.
a:='Иванов Иван Иванович Иванович Иванович';

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


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

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

Поправка:

Код: pascal
1.
a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a));
...
Рейтинг: 0 / 0
07.06.2018, 10:54
| Ответить | Цитировать | Написать  
Записи текста в переменную
    #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:02
| Ответить | Цитировать | Написать  
Записи текста в переменную
    #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, 11:38
| Ответить | Цитировать | Написать  
Записи текста в переменную
    #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, 12:04
| Ответить | Цитировать | Написать  
Записи текста в переменную
    #39657318
elimpion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
elimpion
Гость
спасибо
...
Рейтинг: 0 / 0
07.06.2018, 13:01
| Ответить | Цитировать | Написать  
Записи текста в переменную
    #39659417
elimpion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
elimpion
Гость
DarkMasterDarkMaster,

Поправка:

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



Что подразумевается под "Строка вычисления перегружена"?
...
Рейтинг: 0 / 0
11.06.2018, 12:01
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Записи текста в переменную
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39657211&tid=2040763]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 180ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 211ms
total:  508ms
созд. / загр.: 508ms
x
x
Закрыть


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