Показать сообщение отдельно
  #28  
Старый 11.03.2012, 09:15
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

PHP код:
//const ABC: string = 'abcdefghijklmnopqrstuvwxyz';
const first = 'a';
const 
last = 'z';
function 
next(c: char): char;
begin
  result 
:= char(byte(c)+1);
end;

function 
GetNext(s: string): string;
var 
i, j: integer;
begin
  result 
:= s;
  for 
i := length(result) downto 1 do
    if 
result[i] <> last then begin
      result
[i] := next(result[i]);
      for 
j := i+1 to length(result) do result[j] := first;
      exit;
    
end;
  
SetLength(result, length(result) + 1);
  for 
i := 1 to length(result) do result[i] := first;
end; 
вот функция, из одной строки делает следующую
напр: a->b az->ba zz->aaa
максимальная гибкость, вроде бы
Ответить с цитированием