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

public
       ini:tMemIniFile;
procedure TForm1.ButtonClick(Sender: TObject);
begin
ini.writestring('Vokabeln',edit1.text,edit2.text);
ini.updatefile;
end;					

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

[Vokabeln]
Ich=I
Du=You
Er=He

[leichter]
wissen=know
fangen=catch					

1:

ini.readstring					

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

  VAR
    Kat : tStringList;
    Deutsch, Englisch : STRING;
    Zufall : Integer;
begin
  Kat := tStringList.Create;
  TRY
    INI.ReadSection('leichter', Kat); // Auslesen der Kathegorie Leichter
    Zufall := Random(Kat.Count - 1); // Wert zwischen 0 und Anzahl - 1 auswürfeln
    Deutsch := Kat[Zufall];
    Englisch := INI.ReadString('leichter', Kat[Zufall], 'FEHLER');
  FINALLY
    Kat.Free;
  END;
end;					

1:
2:

var
  SchonGefragt: set of Integer;					

1:

  SchonGefragt := [];					

1:
2:
3:
4:

  repeat
    Zufall := Random(Kat.Count - 1);
  until (not Zufall in SchonGefragt);
  SchonGefragt := SchonGefragt + Zufall;					

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

 
  VAR 
    Kat : tStringList; 
    Deutsch, Englisch : STRING; 
    Zufall : Integer;
    SchonGefragt: set of Integer; 
begin 
  Kat := tStringList.Create;
  SchonGefragt := []; 
  TRY 
    INI.ReadSection('leichter', Kat); // Auslesen der Kathegorie Leichter
    repeat 
    Zufall := Random(Kat.Count - 1); // Wert zwischen 0 und Anzahl - 1 auswürfeln
    until (not Zufall in SchonGefragt); 
    SchonGefragt := SchonGefragt + Zufall; 
    Deutsch := Kat[Zufall]; 
    Englisch := INI.ReadString('leichter', Kat[Zufall], 'FEHLER'); 
  FINALLY 
    Kat.Free; 
  END; 
end;					

1:
2:

var 
  SchonGefragt: set of Integer;					

1:
2:

  private
    SchonGefragt: set of 1..255;					

1:
2:
3:
4:

    repeat
      rand := random(255-1)+1;
    until (not rand in SchonGefragt);
    SchonGefragt := SchonGefragt + [rand]					

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

   VAR
    Kat : tStringList;
    Deutsch, Englisch : STRING;
    Zufall : Integer;
    SchonGefragt: set of Byte;
begin
  Kat := tStringList.Create;
  SchonGefragt := [];
  TRY
    INI.ReadSection('leichter', Kat); // Auslesen der Kathegorie Leichter
    repeat
      Zufall := Random(Kat.Count - 1); // Wert zwischen 0 und Anzahl - 1 auswürfeln
    until (not Zufall in SchonGefragt);
    SchonGefragt := SchonGefragt + [Zufall]; // Zufall muss in Eckige Klammern gesetzt werden, damit es eine Menge (mit einem Element) ist
    Deutsch := Kat[Zufall];
    Englisch := INI.ReadString('leichter', Kat[Zufall], 'FEHLER');
  FINALLY
    Kat.Free;
  END;
end;					

1:
2:
3:

FOR i := 1 TO 20 DO BEGIN
  // HIer findet der eigentliche Vokabeltest statt
END; // FOR Schleife					

1:
2:

VAR
  SchonGefragt : ARRAY [1..20] OF Integer;					

1:

SchonGefragt[i] := Zufall;					

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

function WertInListe(Wert: Integer; Liste: array of Integer; Leange: Integer): BOOLEAN;
  VAR
    i : Integer;
begin
  Result := FALSE; // Vorinitialisieren
  TRY
    FOR i := 1 TO Leange DO
      IF (Liste[i] = Wert) THEN // Wenn der Wert gefunden wurde
        Result := TRUE;
  EXCEPT
  END;
end;