Показать сообщение отдельно
  #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(cchar): char;
begin
  result 
:= char(byte(c)+1);
end;

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