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:

procedure TForm1.Button5Click(Sender: TObject);
var maxid, id: Integer;
    section: String;
    quotes: TStringList;
begin
  Randomize;
  quotes := TStringList.Create;
  ini.ReadSections(quotes);
  section := quotes[quotes.Count-1];
  if quotes.Count <> 0 then
  begin
    maxid := ini.ReadInteger(quotes[quotes.Count-1],'Id',0);
    if maxid <> 0 then
    begin
      repeat
        id := Random(maxid);
      until ini.SectionExists('Quote_'+IntToStr(id));
      ShowQuote(id);
    end
    else
    begin
      Memo1.Clear;
      Memo1.Lines.Add('Ein Fehler ist aufgetreten!');
    end;
  end
  else
  begin
    Memo1.Clear;
    Memo1.Lines.Add('Es sind keine Zitate gespeichert!');
  end;
end;					

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

procedure TForm1.FormCreate(Sender: TObject);
var ini: tinifile;
    mySL: TStringList;
begin
  Ini := TIniFile.Create('d:\test.ini');
  mySL := TStringList.Create;

  try
    ini.ReadSections(mySL);
    showmessage(mySL[mySL.Count-1]);
  finally
    FreeAndNil(ini);
    FreeAndNil(mySL);
  end;
end;					

1:
2:
3:
4:
5:

[test1]
id=1337

[test2]
id=123					

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:

[Basic]
Count=1506
LastUpdate=22-07-2009 20:50
[Quote_2]
Id=2
Date=05.12.2004 02:01
QuoteRows=[Base64-kodierter Text]
[Quote_3]
Id=3
Date=04.12.2004 19:45
QuoteRows=[Base64-kodierter Text]
[Quote_4]
Id=4
Date=21.11.2004 08:54
QuoteRows=[Base64-kodierter Text]
[Quote_5]
Id=5
Date=04.12.2004 22:00
QuoteRows=[Base64-kodierter Text]
[Quote_6]
Id=6
Date=05.12.2004 03:02
QuoteRows=[Base64-kodierter Text]
[... viele weiter nach diesem schema, bis zu ...]
[Quote_69311]
Id=69311
Date=30.12.2006 18:21
QuoteRows=[Base64-kodierter Text]					

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:

procedure TForm1.FormCreate(Sender: TObject);
var maxid, id: Integer;
    section: String;
    quotes: TStringList;
    ini: tinifile;
begin
  Randomize;
  quotes := TStringList.Create;
  ini := TIniFile.Create('d:\test.ini');
  ini.ReadSections(quotes);
  section := quotes[quotes.Count-1];
  if quotes.Count <> 0 then
  begin
    maxid := ini.ReadInteger(quotes[quotes.Count-1],'Id',0);
    if maxid <> 0 then
    begin
      repeat
        id := Random(maxid);
      until ini.SectionExists('Quote_'+IntToStr(id));
      ShowMessage(IntToStr(ID));
    end
    else
    begin
      Memo1.Clear;
      Memo1.Lines.Add('Ein Fehler ist aufgetreten!');
    end;
  end
  else
  begin
    Memo1.Clear;
    Memo1.Lines.Add('Es sind keine Zitate gespeichert!');
  end;
end;