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...