Einlesen aus unbekanntem Index

[SyntaxXx]

So ich hab wiedereinmal eine frage.
Es geht immernoch um mein Programm das ich am schreiben bin.

Ich hänge nun an der stelle, wo ich die Daten wieder einlesen muss.
Aber mal kurz worum es geht:

Ich schreibe kurz gesagt ein programm, was eingegebene Daten in einer .ini speichert.
Gleichzitig wird ein Eintrag in eine Combolist gemacht, woraus man etwas auswählen kann, um die daten wieder eingegeben hat.

Ich will jtzt aber nicht die speicheranzahl begrenzen, sondern das bis Unendlich machen.

So das erstellen ist kein problem, nur das einlesen.
Ich hab ja nur den Index der combobox, aber da ich ja nicht weiß, wie viele eingaben der user gemacht hat, also in der Combobox, weß auch auch nicht, wie ich dem programm sagen soll, wenn ein gewisser index gewählt ist, welche dateien er wieder ausspucken soll.

Ich hoffe ihr versteht mein Problem.


Wenn ich nur 5 Speicherplätze frei gebe, kann ich ja jedem einzelnen sagen was passieren soll, wenn er den bestimmten auswählt.
Aber wenn ich ja nicht weiß, wie viele einträge vorhanden sind, weiß ich auch nicht was er machen soll.

Hier mal den Code, der die daten auf einer bestimmten Bereich speichert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   ini := TIniFile.Create('C:\Test.ini');
      try
        ini.WriteString('Save1', 'Name', LabeledEdit1.Text);
        ini.WriteString('Save1', 'Password', LabeledEdit2.Text);
        ini.WriteString('Save1', 'Upper', LabeledEdit3.Text);
        ini.WriteString('Save1', 'Link', LabeledEdit4.Text);
      finally
         Memo1.Name := ini.ReadString('Save1', 'Name', '');
         ini.Free;
         LabeledEdit1.Text := ('');
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ini := TIniFile.Create('c:\Test.ini');
     try
     LabeledEdit1.Text :=  ini.ReadString('Save1', 'Name', '');
     LabeledEdit2.Text :=  ini.ReadString('Save1', 'Password', '');
     LabeledEdit3.Text :=  ini.ReadString('Save1', 'Upper', '');
     LabeledEdit4.Text :=  ini.ReadString('Save1', 'Link', '');
     finally
        ini.Free;
     end;
end;




end.

Beim ertsellen kann ich ja auch sagen, wenn speicherplatz 1 voll ist, erstell eine neue.
Aber beim einlesen kann ich das prinzip ja nicht anwenden.

hat einer von euch vielleicht eine idee, wie man das machen kann?

[Klaus01]

Guten Abend,

hilft dir die Methode ReadSections etwas?

Zitat:

Reads the names of all sections in an INI file into a string list.

procedure ReadSections(Strings: TStrings); override;

Grüße
Klaus

[Blackheart]

So richtig wird man nicht schlau aus deinen Beiträgen, hab dir mal ein kleines Demo angehangen vieleicht hilfts ja was.