VPF::перебор всех вариантов строки

Gigabyte

Дата 2.7.2007, 12:31 (ссылка)

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

Загрузка ...

Студент-халявщик

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

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

помогите разработать функцию входными параметрами которой будут символы из которых состоит данная строка и входная сторока
на выходе должна быть следующая строка...

ни как не могу сделать что бы он не пропускал некоторые варианты

вот что у меня получилось(правда очень криво=) )

Код


var
nstring:string;

function plusstring(fkeys,ins:string):string;
var
 l,lk,n,ti:integer;
 t:string;
begin
  n:=1;
  l:=length(ins);
  lk:=length(fkeys);
  while l<>0 do
   begin
    ti:=pos(ins[l-n+1],fkeys);
     if ti=lk then
      begin
        if n<>l then
         begin
          ins[l-n+1]:=fkeys[1];
          n:=n+1;
         end
        else
         begin
          ins:=fkeys[1]+ins;
          l:=l+1;
         end;
      end
     else
      begin
        ins[l-n+1]:=fkeys[ti+1];
       break;
      end;
   end;
plusstring:=ins;
end;

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

former

Дата 2.7.2007, 12:37 (ссылка)

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

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

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

Цитата(Gigabyte @ 2.7.2007, 12:31

)

символы из которых состоит данная строка и входная сторока
на выходе должна быть следующая строка...

Что-то завернул головоломк. Приведи пример того, что должно получиться.

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Gigabyte

Дата 2.7.2007, 12:41 (ссылка)

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

Загрузка ...

Студент-халявщик

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

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

plusstring('0123456789','345') на выходе 346
plusstring('0123456789','119') на выходе 120
и тд
только что бы строчки 01, 002, и тд. не пропускались

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

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