Globálisan egyedi sztring létrehozása

A megoldás alapját a GUID azonosítók szolgáltatják, melyek globálisan egyediek, két egyforma nem generálódik belőlük. Ezt a hexadecimális számsorozatot felhasználva könnyedén előállíthatunk belőle egy betűket tartalmazó sztringet és ezzel máris eljutottunk az eredményhez.

Egy új GUID azonosítót a CreateClassID függvény szolgáltat. Az eredményben találunk mínusz karaktereket a hexadecimális számok között. Ezeket a Delete függvénnyel töröljük.

procedure TForm1.Button1Click(Sender: TObject);
begin
  s:=CreateClassID;
  Delete(s, 1, 1);
  Delete(s, 9, 1);
  Delete(s, 13, 1);
  Delete(s, 17, 1);
  Delete(s, 21, 1);
  Delete(s, 33, 1);

Most már csak egy ciklusra van szükségünk, mely végigmegy az összes hexadecimális számjegyen és mindegyikből egy betűt állít elő. Ez utóbbi úgy érjük el, hogy a hexadecimális számhoz hozzáadunk 65-öt, mely az A betű kódja és a kapott eredményt karakterré alakítjuk. Ezt a karaktert tároljuk egy átmeneti sztringbe, mely a ciklus végére már tartalmazza a teljes, egyedi szövegünket.

  t:='';
  for i:=1 to 32 do begin
    t:=t+Chr(StrToInt('$'+s[i])+65);
  end;
  Edit1.Text:=t;
end;