Ini-Fehler?!?

[TheMiller]

Hi,

wenn ich Daten aus der Ini auslese geht alles wunderbar. Doch wenn ich ein String leer ist und ich ihn trotzdem auslese, dann schreibt er mir immer die Caption des Forms in die Memos rein. Bsp:

Delphi-Quellcode:

Ini-Datei:

[Wert]
Linie0=500
Linie1=
Linie2=500
Linie3=
Linie4=
Linie5=
Linie6=
Linie7=
Linie8=

#Das Auslesen#

for i:=0 to 99 do begin
Memo3.Lines.Add(ini.ReadString('Wert','Linie'+IntToStr(i),text));

#Memo sieht so aus#

500
Datenbank
500
Datenbank
Datenbank
Datenbank
Datenbank
Datenbank
Datenbank
Datenbank
Datenbank
Datenbank

Wie kann ich das unterdrücken...

[Sharky]

Hai DJ-SPM,

was steht denn in deiner Variablte text? Diese ist ja der Defaultwert der von .ReadString zurückgegeben wird wenn in dem entsprechenden Eintrag nicht steht.

[NicoDE]

Zitat von DJ-SPM:

ini.ReadString('Wert', 'Linie' + IntToStr(i), text));

Da der Code wahrscheinlich im Kontext einer Methode der Form ausgeführt wird, ist text eine Eigenschaft der Form.
Insofern ist es nicht verwunderlich, wenn Du selbige als Standardwert bei ReadString angibst.
Lösung: schreib anstatt text '' oder EmptyString.

[TheMiller]

Text ist in dem Sinne keine Variable, die definiert worden ist. Das nehme ich immer dann, wenn in der Ini was steht und der es auslesen soll, was unter einem String abgespeichert worden ist Hoffe du verstehst es.

[NicoDE]

Zitat von DJ-SPM:

Text ist in dem Sinne keine Variable, die definiert worden ist.

Wenn es die Variable nicht geben würde, könntest Du es nicht kompilieren. Text ist eine Variable/Eigenschaft von TForm.

Zitat von DJ-SPM:

Das nehme ich immer dann, wenn in der Ini was steht und der es auslesen soll, was unter einem String abgespeichert worden ist

Du meinst, den Wert der zurückgegeben werden soll, falls der Eintrag in der Ini nicht vorhanden ist. Kurz: Default-Wert.

Zitat von DJ-SPM:

Hoffe du verstehst es.

Mit viel Phantasie

[TheMiller]

Haha, urkomisch

Ne, im ernst. Wie soll denn ein Abruf aus einer ini aussehen, wenn ich einen String abfragen will?

[NicoDE]

Zitat von DJ-SPM:

Haha, urkomisch

Und ich dachte immer ich wäre zynisch

Zitat von DJ-SPM:

Wie soll denn ein Abruf aus einer ini aussehen, wenn ich einen String abfragen will?

Steht doch oben in Deinem Quelltext-Auszug. Nur solltest Du nicht TForm.Text als Standardwert für nicht existierende Einträge in der INI angeben, sondern a) vorher überprüfen ob der Eintrag existiert oder b) einen sinnvollen Standardwert angeben (EmptyString, 'foobar', 'gozilla', '<invalid!>'... je nachdem was in Deiner Anwendung einen Sinn ergibt).

ps: normalerweise schreibt man die Anzahl auch in die INI-Sektion:

Code:

[Wert]
[color=red]Count=2[/color]
Linie0=foo
Linie1=bar

[mischerr]

Wenn ich das richtig verstehe, dann willst du nen leeren String zurückbekommen, falls kein Eintrag gefunden wird!?
Falls ja, dann hilft wohl...

Code:

ini.ReadString('Wert', 'Linie' + IntToStr(i), ''));

[TheMiller]

Wenn ich diesen Code anwende, dann ist immer alles leer. Also müsste ich theoretisch folgendes eingeben:

Delphi-Quellcode:

for i:=0 to 99 do begin
 IF (ini.ReadString('Wert', 'Linie' + IntToStr(i), text)) <> (ini.ReadString('Wert', 'Linie' + IntToStr(i), '')) THEN 
 Memo1.Lines.Add(ini.ReadString('Wert', 'Linie' + IntToStr(i), text)) ELSE
 Memo1.Lines.Add(ini.ReadString('Wert', 'Linie' + IntToStr(i), ''));

Hoffe, ich habe mich jetzt nicht vertan:

Also, wenn der Wert aus der Ini nicht leer ist, dann fügt er den Wert aus der Ini ein. Wenn er aber leer ist, dann fügt er auch nur eine leere Zeile hinzu.

Aber das klappt auch nicht.

Jetzt schreibt er keine 99 Zeilen mit Datenbank voll, sonder nur die erste...

[jfheins]

Zitat von DJ-SPM:

Delphi-Quellcode:

for i:=0 to 99 do begin
 IF (ini.ReadString('Wert', 'Linie' + IntToStr(i), text)) <> (ini.ReadString('Wert', 'Linie' + IntToStr(i), '')) THEN 
 Memo1.Lines.Add(ini.ReadString('Wert', 'Linie' + IntToStr(i), text)) ELSE
 Memo1.Lines.Add(ini.ReadString('Wert', 'Linie' + IntToStr(i), ''));

Probier's mal damit ...

Delphi-Quellcode:

x := ini.ReadString('Wert', 'Linie' + IntToStr(i), '');
if x <> '' then Memo1.Lines.Add (x);