INI und Txt-Datei in einer Datei zusammenfassen [gelöst]

majolo · Verfasst: Sa 19.07.03 11:49

Hallo,

ich stehe vor einem kleinen Problem in meinem Programm. Es gibt mehrere Files, normale txt Datei (mit gespeicherter Stringliste), und ini-Files. Nun würde ich die beiden Dateien gerne in einem eigenen Format in einer Datei zusammenfassen. Würde natürlich auch gerne die Borland Schreib und Leseroutinen übernehmen, was wohl nicht klappen wird, denke ich mal.
Die Datei soll wie folgt aussehen:

markieren

Quelltext

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

[Sektion1]
Eintrag1=wert1
Eintrag2=wert2
.
.
.

[Sektion2]
String1
String2
String3
String4
.
.
.

Der Inhalt von Sektion 1 soll wie z.B eine Ini in Editfeldern sichtbar gemacht werden und den Inhalt von Sektion 2 würde ich gerne in eine ListBox laden.

Ist die Realisierung eines solchen Formates und der entsprechenden Lese und Schreibroutinen sehr schwer???Bin für Codeschnipsel und Denkanstöße immer dankbar.

_________________
Gruß
majolo

patrick · Beiträge: 1481 WIN2k, WIN XP D6 Personal, D2005 PE

ich komm gleich zur komplettlösung:

markieren

Delphi-Quelltext

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

//schreiben:
itemcount:=listbox1.Items.Count;
ini.WriteInteger('listbox','count',itemcount);
for i:=0 to itemcount-1 do
ini.WriteString('listbox',
                inttostr(i),
                listbox1.Items.Strings[i]);
//lesen:
itemcount:=ini.ReadInteger('listbox','count',0);
for i:=0 to itemcount-1 do
listbox1.Items.Add(ini.ReadString('listbox',inttostr(i),''));

ich habs jetzt aus dem kopf geschieben aber es müsste gehen.

_________________
Patrick
im zweifelsfall immer das richtige tun!!!

majolo · Verfasst: Di 22.07.03 21:12

Danke, werde es gleich mal ausprobieren.

_________________
Gruß
majolo

majolo · Verfasst: Di 22.07.03 21:40

Habs gerade ausprobiert. Mit Modifikation klappt es wunderbar. Danke dir aber vor allem für den Denkanstoß. Ich denke, dass das Thema damit abgeschlossen ist.

_________________
Gruß
majolo

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme