Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Записи текста в переменную  [new]
elimpion
Member

Откуда:
Сообщений: 145
Здравствуйте, есть строка
a:='Иванов Иван Иванович Иванович Иванович';
которая присвоена переменной
а так же
а1:='Иванов';
а2:='Иван';

как в переменную а3 поместить все слова которое идут после 'Иван'? должны быть так
а3:='Иванович Иванович Иванович';
7 июн 18, 10:50    [21475015]     Ответить | Цитировать Сообщить модератору
 Re: Записи текста в переменную  [new]
DarkMaster
Member

Откуда: Donetsk,Ukraine
Сообщений: 6058
elimpion,

a3:=Copy(a,Pos('Иван ',a),Length(a));
7 июн 18, 10:53    [21475031]     Ответить | Цитировать Сообщить модератору
 Re: Записи текста в переменную  [new]
DarkMaster
Member

Откуда: Donetsk,Ukraine
Сообщений: 6058
DarkMaster,

Поправка:

a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a));
7 июн 18, 10:54    [21475039]     Ответить | Цитировать Сообщить модератору
 Re: Записи текста в переменную  [new]
zinpub
Member

Откуда:
Сообщений: 244
DarkMaster
DarkMaster,

Поправка:

a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a));


a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a) - (Pos('Иван ',a)+Length('Иван ')));
7 июн 18, 11:02    [21475073]     Ответить | Цитировать Сообщить модератору
 Re: Записи текста в переменную  [new]
alekcvp
Member

Откуда:
Сообщений: 1103
zinpub
a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a) - (Pos('Иван ',a)+Length('Иван ')));

Нафик надо, можно вообще:
a3 := Copy(a, Pos('Иван ', a) + Length('Иван '), MaxInt);
7 июн 18, 11:38    [21475235]     Ответить | Цитировать Сообщить модератору
 Re: Записи текста в переменную  [new]
zinpub
Member

Откуда:
Сообщений: 244
alekcvp
zinpub
a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a) - (Pos('Иван ',a)+Length('Иван ')));

Нафик надо, можно вообще:
a3 := Copy(a, Pos('Иван ', a) + Length('Иван '), MaxInt);


Некрасивенько... :-(
7 июн 18, 12:04    [21475357]     Ответить | Цитировать Сообщить модератору
 Re: Записи текста в переменную  [new]
elimpion
Member

Откуда:
Сообщений: 145
спасибо
7 июн 18, 13:01    [21475712]     Ответить | Цитировать Сообщить модератору
 Re: Записи текста в переменную  [new]
elimpion
Member

Откуда:
Сообщений: 145
DarkMaster
DarkMaster,

Поправка:

a3:=Copy(a,Pos('Иван ',a)+Length('Иван '),Length(a));


Что подразумевается под "Строка вычисления перегружена"?
11 июн 18, 12:01    [21484465]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить