Spielplan entwickeln mit INI-Datei

[fabgo]

Hallo ihr,

Ich entwickle einen Spielplan.
In meinem Programm gibt es vier Editierfelder. (Datum, Uhrzeit, Spieltyp)
Per Buttonklick werden die Strings der Editierfelder in einer Ini-Datei gespeichert.
Der Abschnitt heißt immer wie der String aus dem jeweiligen Editierfeld Datum + eine Integerzahl.

In einem weiteren Editierfeld soll der Nutzer die Möglichkeit haben, ein Datum einzugeben und dann alle Termine angezeigt bekommen.

So sieht meine Lösung aus, nur wie definiere ich (weiter unten) "Irgendeine Integerzahl" anstatt hier: J:=2 ?

Wie mach ich das dann, das alle angezeigt werden.

Bitte helft mir, hab nicht viele Kenntnisse. Danke!!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
I:=I+1;
Wort:=Edit1.Text+FloatToStr(I);
Wort2:=Edit4.Text+FloatToStr(I);
  begin
  //TIniFile wird geladen
  with TIniFile.Create(ExtractFilePath(ParamStr(0)) +  'data.ini') do
   try
    //Top wird geschrieben, Left wird geschrieben
    WriteString(Wort, 'Edit1', Edit1.text);
    WriteString(Wort, 'Edit2', Edit2.text);
    WriteString(Wort, 'Edit3', Edit3.text);
    ReadSections(Listbox1.Items);
   finally
    //Ini wird freigegeben
    Free;
  end;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
 I:=0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
J:=2;
Wort3:=Edit4.Text+FloatToStr(J);
  with TIniFile.Create(ExtractFilePath(ParamStr(0)) +  'data.ini') do
  if SectionExists(Wort3) then
  begin
    Edit4.Text:='Juhu, es funzt';
    ReadSection(Wort3, Listbox2.Items);
  end
  else begin Edit4.Text:='NÖ!';
  end;
end;

[Klaus01]

irgend eine Zahl kannst Du mit
random generieren, voher aber einmal randomize
aufrufen.

Aber, was Du willst habe ich nicht so ganz verstanden.

Grüße
Klaus

[fabgo]

Erstmal Stück für Stück:

Wort3 soll definiert sein als der Text aus Edit4 plus irgendeine Zahl, um dann später sagen zu können, wenn Wort3 existiert dann tue dies und das.
Wie geht das?

Wort3:=Edit4.Text+FloatToStr(J); // Hier liegt der Fehler...

if SectionExists(Wort3) then
begin

[Klaus01]

j ist ein Integer - ist das richtig?

Warum nimmst Du dann nicht IntToStr(j)

Wie zeigt sich Dein Fehler?
Wird die Section nicht gefunden?

Aus der Hilfe:

Zitat:

Description

FloatToStr converts the floating-point value given by Value to
its string representation. The conversion uses general number
format with 15 significant digits.

For greater control over the formatting of the string,
use the FloatToStrF function.

Grüße
Klaus