1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.bStartClick(Sender: TObject);
const
  //Definieren der Buchstaben
  buchstaben: array [1..26] of string =
    ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
var laenge,i: integer;
begin
  randomize;
  i := 0;
  i := i+1;
  ELaenge.Text:=IntToStr(laenge);
  //Schleife für zufälliges Aneinanderreihen von Buchstaben
  for i:=0 to laenge do
    begin
      //Problem: Was kommt in die Klammer?
      MAusgabe.Lines.Add(random(IntToStr(buchstaben)));
    end;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.bStartClick(Sender: TObject);  
const  
  buchstaben: array [1..26] of string = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');  
var 
  laenge, i: integer;  
  Buchstabe, str: string;
begin  
  randomize;  
  str := '';
  laenge := strtoint(ELaenge.text);
  for i := 1 to laenge do  
    begin  
      Buchstabe := buchstaben[random(26) + 1];
      str := str + Buchstabe;         
    end;  
  MAusgabe.Lines.Add(str);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.bStartClick(Sender: TObject);
const
  //Definieren der Buchstaben
  buchstaben: array [1..26] of string =
    ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
var laenge,i: integer;
begin
  randomize;
  i := 0;                    

1:

  i := i+1;                    

1:

  ELaenge.Text:=IntToStr(laenge);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

  
//Schleife für zufälliges Aneinanderreihen von Buchstaben
  for i:=0 to laenge do
    begin
      MAusgabe.Lines.Add(buchstaben[random(buchstaben.count)+1]); // so muss das aussehen ;)
    end;
end;

end.                    

1:
2:
3:
4:

If Buchstabe = IntToStr(17) then
     //?? irgendwas muss nun mit buchstabe 21 kommen
     ;
  MAusgabe.Lines.Add(str);                    

1:
2:
3:
4:

if buchstabe = 'q' then
begin
str := str + 'u';
end;                    

1:
2:

if str[i - 1] = 'q' then
  Buchstabe := 'u';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.bStartClick(Sender: TObject);    
const    
  buchstaben: array [1..26] of string = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');    
var   
  laenge, i: integer;    
  Buchstabe, str: string;  
begin    
  randomize;    
  str := '';  
  laenge := strtoint(ELaenge.text);  
  for i := 1 to laenge do    
    begin    
      Buchstabe := buchstaben[random(26) + 1]; 
      if str[i - 1] = 'q' then
        Buchstabe := 'u'; 
      str := str + Buchstabe;           
    end;    
  MAusgabe.Lines.Add(str);  
end;                    

1:
2:

const AChar:string='#abcdefghijklmnopqrstuvwxyzäöüß';
      ACharN=31;                    

1:
2:

var Matrix:array[1..ACharN,1..ACharN,1..ACharN,1..ACharN] of longword;
    map:array[char] of byte;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

procedure Analyse(Filename:string);
var f:textfile;
    s:string;
    i,sum,z1,z2,z3,z4:longword;
begin
   //Als erstes werden Matrix und map auf 0 gesetzt
   FillChar(map,SizeOf(Map),0);
   FillChar(Matrix,SizeOf(Matrix),0);
   //Um zu einem Zeichen vom Typ Char den Index in AChar zu ermitteln,
   //wird das Feld map initialisiert.
   for i:=1 to ACharN do begin
      map[AChar[i]]:=i;
      s:=UpperCase(AChar[i]);
      map[s[1]]:=i;
   end;

   //Ok, jetzt wird die Vorlagen-Datei geöffnet.
   AssignFile(f,Filename);
   Reset(f);

   while not eof(f) do begin
      //Die Zeilen werden einzeln eingelesen.
      //Jede Zeile sollte genau einen Namen enthalten.
      readln(f,s);
      s:=trim(s)+'#';
      z1:=map['#'];
      z2:=map['#'];
      z3:=map['#'];
      for i:=1 to length(s) do if map[s[i]]>0 then begin
         //Jeder Name wird Zeichen für Zeichen durchgegangen.
         //Dabei wird mitgezählt, welche Buchstabenkombinationen auftreten
         //Beim Namen "Klaus" merkt man sich, das nach "kla" ein u kommt
         //Und nach "lau" kam ein s
         //Und nach "aus" kam ein #, was so viel bedeutet, wie,
         //dass der Name zuende ist.
         z4:=map[s[i]];
         if z1>0 then inc(Matrix[z1,z2,z3,z4]);
         z1:=z2;
         z2:=z3;
         z3:=z4;
      end;
   end;
   CloseFile(f);

   //Hat man die Datei eingelesen, enthält nun die Matrix die Anzahl der
   //aufgetretenen Buchstabenkombinationen.
   //Für beispielsweise z1=map['k'], z2=map['l'], z3=map['a'], z4=map['u']
   //könnte Matrix[z1,z2,z3,z4] gleich 3 sein. D.h. dass die Kombination
   //"klau" insgesamt 3 mal aufgetreten ist.

   //Setzt man z1=map['k'], z2=map['l'], z3=map['a'] und geht mit einer
   //Schelife durch z4, könnten die Ergebnisse für Matrix[z1,z2,z3,z4] so aussehen:
   // 0, 0, 0, 0, 1, 0, 0, 3, 0, 0, 2, 0, 0, 0, 0, 4, 1, 0, ...
   //Diese werden im folgenden aufaddiert, damit es dann so aussieht:
   // 0, 0, 0, 0, 1, 1, 1, 4, 4, 4, 6, 6, 6, 6, 6,10,11,11, ...

   for z1:=1 to ACharN do begin
      for z2:=1 to ACharN do begin
         for z3:=1 to ACharN do begin
            sum:=0;
            for z4:=1 to ACharN do begin
               sum:=sum+Matrix[z1,z2,z3,z4];
               Matrix[z1,z2,z3,z4]:=sum;
            end;
         end;
      end;
   end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function Synthese(Startwert:LongInt):string;
var s:string;
    j,sum,z1,z2,z3,z4:longword;
begin
   RandSeed:=StartWert;
   //Am Anfang brauch man wieder die 3 Marker:
   z1:=map['#'];
   z2:=map['#'];
   z3:=map['#'];
   repeat
      //Matrix[z1,z2,z3,ACharN] enthält die Anzahl, mit der die Kombination
      //z1,z2,z3 aufgetreten ist. Dass haben wir durch das Aufaddieren erreicht.
      sum:=random(Matrix[z1,z2,z3,ACharN]);
      //sum enthält nun einen Zufallswert zwischen 0 und dem Maximum Matrix[z1,z2,z3,ACharN]
      z4:=1;
      for j:=ACharN downto 1 do
         if Matrix[z1,z2,z3,j]>sum then z4:=j;
      //z4 ist nun dass vierte Zeichen, dass "typischer Weise" auf z1,z2 und z3 folgt.
      s:=s+AChar[z4];
      z1:=z2;
      z2:=z3;
      z3:=z4;
      //Wenn der Marker "#" erreicht ist, ist der Name zuende.
   until AChar[z4]='#';
   Synthese:=LeftStr(s,Length(s)-1);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.BtnStartClick(Sender: TObject);
var i:integer;
begin
   Analyse('liste.txt');

   Randomize;

   for i:=1 to 20 do begin
      Memo1.Lines.Add(Synthese(random($1000000)));
   end;
end;