Mit einer kurzen Prozdur einen Schlüssel erzeugen

[kurtm1]

Hallo!
Es geht drum einen Schlüssel aus allen 26 Buchstaben des Alphabets zu erstellen, der aber keinen Buchstaben doppelt beinhaltet.

Gibt es da eine Funktion, oder eine kurze Prozedur?

Dies ist meine Lösung:

Code:

strSchluessel[1]:=chr(random(26)+65);
   for i:=2 to 26 do
   Begin
      j:=1;
      strBuchstabe:=chr(random(26)+65);
         repeat
           if strSchluessel[j]=strBuchstabe[1] then
           Begin
               strBuchstabe:=chr(random(26)+65);
               j:=0;
           end;
           j:=j+1;
         until j>i;
      strSchluessel[i]:=strBuchstabe[1];
   end;

[gekmihesg]

Delphi-Quellcode:

function createstr(count:integer); string;
var
 c: char;
begin
 result:='';
 if count > 26 then
  exit;
 while length(result) < count do
  begin
   c:=chr(random(26)+65);
   if pos(c,result) = 0 then
    result:=result + c;
  end;
end;

[kurtm1]

danke, ist leider auch nicht viel kürzer. eine funktion scheint es ja nicht zu geben...

[Nonsense]

Näääädddd. Merke: Frage richtig lesen, dann posten. :mrgreen:

[Dax]

Delphi-Quellcode:

function Code: string;
var c: char;
begin
  randomize:
  while length(result) <= 26 do
  begin
    c := chr(random(26)+65);
    if pos(c, result) = 0 then result := result + c;
  end;
end;

Es dauert vielleciht ei wenig, bis ALLE 26 Buchstaben benutzt sind, aber dafür is sie schön kurz ;)

[fiasko]

Delphi-Quellcode:

function Code: string;
const
  s: string = 'abcdefghijklmnopqrstuvwxyz';
var
  i,j: Integer;
begin
  randomize;
  result:='';
  for i:=1 to 25 do
  begin
    j:=random(length(s)+1);
    result:=result+s[j];
    delete(s,j,1);
  end;
  result:=result+s;
end;

Ist vielleicht ein µ schneller...

[Dax]

Hat aber einen Fehler:

Gibt nur 25 Buchstaben aus.

Ansonsten eigentlich auch ein interessanter Ansatz.

[fiasko]

Zitat:

Zitat von Dax

1.) Gibt NUR 25 Buchstaben aus.

Hast du die Zeile result:=result+s; überlesen?

Zitat:

Zitat von Dax

2.) Niemand garantiert mir, das jeder nur ein mal vorkammt, du knallst einfach alles ins ergebnis, ohne zu checken, ob so was schon da ist...

Das delete haut doch die benutzten Wörte raus. Der Vorteil ist du brauchst keine Vergleichsoperationen mehr und schiebst nurnoch im Speicher rum...

[Dax]

Zitat:

Zitat von fiasko

Hast du die Zeile result:=result+s; überlesen?

Ja. :oops:

Zitat:

Zitat von fiasko

Das delete haut doch die benutzten Wörte raus. Der Vorteil ist du brauchst keine Vergleichsoperationen mehr und schiebst nurnoch im Speicher rum...

Hab' ich nachträglich rauseditiert, kuck mal nach :mrgreen:

[fiasko]

Zitat:

Zitat von Dax

Hab' ich nachträglich rauseditiert, kuck mal nach :mrgreen:

:shock: