Zufallsnamen erzeugen...

[Mirilin]

Delphi-Quellcode:

function RandName2:String;
var
  S1  : array [0..4] of String;
  S2  : array [0..4] of String;
  S3  : array [0..4] of String;
begin
  S1[0] := 'gen';S1[1] := 'sen';S1[2] := 'fen';S1[3] := 'ten';S1[4] := 'pen';
  S2[0] := 'gan';S2[1] := 'san';S2[2] := 'fan';S2[3] := 'tan';S2[4] := 'pan';
  S3[0] := 'gon';S3[1] := 'son';S3[2] := 'fon';S3[3] := 'ton';S3[4] := 'pon';
  randomize();
  result := S1[Random(4)]+S2[Random(4)]+S3[Random(4)];
end;

hier so etwa der Vorschlag von Phlux, müsstes halt die Silben entsprechen ändern... ?