VPF::Есть ли функции выборки подстроки по двум

poiuyt1234

Дата 16.2.2009, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 30.4.2008

Репутация: нет
Всего: нет

Есть строка. Например нужно выбрать подстроку с первой буквой восьмым символом в исходной строке и последней буквой 21 символом в исходной строке. Есть ли функции делающие такое? или надо свой код писать?

Данкинг

Дата 16.2.2009, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Copy не подходит?

--------------------

There's nothing left but silent epitaphs.

Poseidon

Дата 16.2.2009, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Чот не совсем понятны словосочитания

Цитата(poiuyt1234 @ 16.2.2009, 14:31

)

первой буквой восьмым символом

Цитата(poiuyt1234 @ 16.2.2009, 14:31

)

последней буквой 21 символом

Можно на примере что надо?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Kbl4AH

Дата 16.2.2009, 17:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

Цитата(Poseidon @ 16.2.2009, 17:08

)

Чот не совсем понятны словосочитания

вырезать из строки символы с 8-го по 21-й smile

Poseidon

Дата 16.2.2009, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(Kbl4AH @ 16.2.2009, 17:34

)

вырезать из строки символы с 8-го по 21-й

ну так епть

Код


copy(stroka, 8, 21-8 +1)

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Akella

Дата 16.2.2009, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Вы все не правы! Человеку нужна специальная функция, а не ваше copy smile

Virtuals

Дата 16.2.2009, 21:30 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 1
Всего: 11

во у меня есть такая
правда не уверен что в вашем дистр. она есть, у мну поставка по спецзаказу.

Код


function specialchikchik(stroka:string;ot,do:integer):string;
begin
if ot <length(stroka) then
 if do =<length(stroka) then
  if ot =<do then
result:=copy(stroka, ot, do-ot +1)
else result:='sam durak parametri prover';
end;

Christoph

Дата 16.2.2009, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11

Классные параметры smile

--------------------

Poseidon

Дата 17.2.2009, 00:38 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Virtuals, тебе же сказали, copy не катит. Надо так:

Код


function specialchikchik(stroka: string; otsuda, dosuda: integer): string;
var
  i: Integer;
begin
  for i:= otsuda to dosuda do
  Result:= Result+ stroka[i];
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »