Как создать обратную функцию, которая из уникального номера будет возвращать строку?

[SkAndrew]

Добрый день!

Есть функция (function Unc2Str(s: string): UInt64), которая строку преобразует в уникальный номер, а как создать обратную функцию (function Str2Unc(Unc: UInt64): String), которая из уникального номера будет возвращать строку:

type
UInt64 = 0..9223372036854775807;

function Unc2Str(s: string): UInt64;
var
x: Integer;
begin
Result := 0;
for x := 1 to Length(s) do Result := Result + ((Ord(s[x])) shl ((x - 1) * 8));
end;

Всем спасибо за помощь!

[B_N]

Никак. По определению. Только через таблицы/массивы/деревья и т.п.

[alexBlack]

А так ли уникально число, которое получается при вызове Unc2Str ?
Для коротких строк Вы всего лишь перегоняете 8 байт строки в 8 байт числа. Для строк больше 8 символов вернуть всю строку уже не получится, но для строк < 8 байт:

function Str2Unc(x: UInt64): String;
begin
   Result := '';
   While x > 0 do begin
      result := result + chr((x and $FF));
      x := x shr 8;
   end;
end;

[SkAndrew]

Спасибо жза ответ!

А как можно реализовать такие же функции для строк большего числа символов?

Спасибо за ответ!

[SkAndrew]

для alexBlack

Я проверил Вашу функцию обратного получения строки - она не работает и до 8 символов. Хотя хотелось бы решение для неограниченного числа символов. Как же решить проблему?
Спасибо.

[alexBlack]

Сообщение от SkAndrew

для alexBlack
Я проверил Вашу функцию обратного получения строки - она не работает и до 8 символов. Хотя хотелось бы решение для неограниченного числа символов. Как же решить проблему?
Спасибо.

Вот так работает, но только до 8-ми символов:

function Unc2Str(s: string): UInt64;
var x: Integer;
    C:UInt64;
begin
   Result := 0;
   for x := 1 to Length(s) do begin
      C := Ord(s[x]);
      Result := Result + ((C) shl ((x - 1) * 8));
   end;
end;

function Str2Unc(x: UInt64): String;
begin
   Result := '';
   While x > 0 do begin
      result := result + chr((x and $FF));
      x := x shr 8;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var x:UInt64;
    s:String;
begin
   x := Unc2Str('testabcd');
   s := Str2Unc(x);

   label1.Caption := s;
end;

Для большего количества символов вернуть обратно всю строку не получится.

[SkAndrew]

Спасибо, да так работает, но хотелось бы найти решение для любого числа символов в строке. Может у кого есть идеи как это можно решить?
Спасибо.

[alexBlack]

А для чего это. Может изменить сам подход к решению ?

[B_N]

Сообщение от SkAndrew

Спасибо, да так работает, но хотелось бы найти решение для любого числа символов в строке. Может у кого есть идеи как это можно решить?
Спасибо.

SkAndrew, есть такая вещь - необратимые хэш-функции. У Вас - одна из них. Int64 может принимать максимум 2^64 (примерно 10^19) различных значений, а строка длиной, скажем, 32 символа - 2^(8*32) - примерно 10^77 значений, т.е. на каждое "уникальное" число будет приходиться почти 10^60 разных строк. Какую из них Вы планируете восстановить?