Stringlist ruft EListerror hervor

[bonanza]

Hi,


ich habe folgendes Problem:

Ich lese eine textdatei als stringlist ein und durchsuche diese dann. Wenn der eintrag X in Zeile Y gefunden wurde, dann soll Zeile wo Eintrag X drin ist gelöscht werden und dann in genau der selben Zeile ein neuer String mit "stringlist.insert" eingfügt werden.

Doch dabei tritt immer ein ElistError auf, angeblich wird das Listenmaximum überschritten, was aber definitiv nicht sein kann, da nur bist datei.count-1 durchsucht wird.

Delphi-Quellcode:

for zeilennr:=0 to datei.Count-1 do
  if baseengine[zeilennr]='XXX' then
  datei.Delete(zeilennr);
  datei.Insert(zeilennr,'XXX+YYY');

aus der Delphi Hilfe:


Beschreibung zu EListError:

Zitat:

EListError ist die Exception-Klasse für Fehler, die in Verbindung mit Strings und Listen auftreten.

Klassenhierarchie

Pascal
EListError = class(Exception);
Datei
Classes

Beschreibung
EListError wird ausgelöst, wenn ein Fehler in einem Listen-, TStrings- oder TStringList-Objekt auftritt. Die häufigste Ursache ist, dass die Anwendung auf einen Eintrag verweist, der außerhalb des Listenbereichs liegt.

EListError wird außerdem ausgelöst, wenn eine Anwendung versucht, das Duplikat eines Strings zu einem TStringList-Objekt hinzuzufügen, während die Eigenschaft Duplicates den Wert dupError hat.

Eine weitere Ursache für eine EListError-Exception ist der Versuch, einen String an bestimmter Position in eine sortierte Liste einzufügen, wodurch die Sortierreihenfolge unterbrochen werden könnte.

Beschreibung zu TStringlist.Insert:

Zitat:

Beschreibung
Mit Insert können Sie der Liste den String S an der mit Index bezeichneten Position hinzufügen. Wenn Index 0 ist, wird der String am Anfang der Liste eingefügt. Ist Index 1, wird der String an der zweiten Position eingefügt usw.

Ist dem einzufügenden String ein Objekt zugeordnet, muss die Methode InsertObject verwendet werden.

Anmerkung: Bei einer sortierten Liste verursacht der Aufruf von Insert oder InsertObject eine EListError-Exception. Verwenden Sie deshalb bei sortierten Listen Add oder AddObject.

Das Problem ist eben, dass es keine sortierte Liste ist, da ich den Text aus einer Datei einlese und ich es nicht sortieren darf.

Wie kann ich das problem lösen?


vielen Dank für eure Hilfe im voraus!

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]

[SirThornberry]

das was du geschrieben hast sieht mir gescheiter einrückung so aus:

Delphi-Quellcode:

for zeilennr:=0 to datei.Count-1 do 
  if baseengine[zeilennr]='XXX' then 
    datei.Delete(zeilennr); 

datei.Insert(zeilennr,'XXX+YYY');

ich denke es sollte so sein:

Delphi-Quellcode:

for zeilennr:=0 to datei.Count-1 do 
  if baseengine[zeilennr]='XXX' then
  begin
    datei.Delete(zeilennr); 
    datei.Insert(zeilennr,'XXX+YYY');
  end;

sinvoller wäre es so:

Delphi-Quellcode:

for zeilennr:=0 to datei.Count-1 do 
  if baseengine[zeilennr]='XXX' then
    datei.strings[zeilennr] := 'XXX+YYY';

[bonanza]

Danke für die Antwort und den Tipp!
Habe es jetzt so abgeändert:

Delphi-Quellcode:

 for zeilennr:=0 to datei.Count-1 do
    if datei[zeilennr]='XXX' then
      datei.strings[zeilennr]:='XXX+YYY';

Allerdings bekomme ich hier immernoch den Fehler, dass angeblich der Listenindex überschritten wird...

[Progman]

Delphi-Quellcode:

for zeilennr:=0 to datei.Count-1 do
    if datei[zeilennr]='XXX' then
      datei[zeilennr]:='XXX+YYY';

Lass das .strings weg ;)

[bonanza]

es kommt dennoch zu den ListIndex-fehlern :cry:

[Muetze1]

Zitat:

Zitat von Progman

Lass das .strings weg ;)

Das ist nur die durch die "default" Option verkürzte Schreibweise und somit ein und das selbe.

Zitat:

Zitat von bonanza

es kommt dennoch zu den ListIndex-fehlern :cry:

Ist das wirklich der komplette Code oder machst du noch was innerhalb der Schleife?

[bonanza]

Innerhalb der Schleife kommt es nur zur Übschreibung des Textes (s.o.), sonst zu nichts.

wäre für Hilfe SEHR dankbar ;)

[DeddyH]

Zeig doch mal die ganze Methode.

[bonanza]

Hier kommt sie ;):

Delphi-Quellcode:

rocedure TForm1.speichernClick(Sender: TObject);
var baseengine, kellerengine, blur, ShadowDepthTest: TStringList;
  zeilennr: integer;
  wert:string;
begin
  baseengine:=TStringList.Create;
  kellerengine :=TStringList.Create;
  blur :=TStringList.Create;
  ShadowDepthTest:=TStringList.Create;

  baseengine.LoadFromFile(dir+'\Engine\Config\BaseEngine.ini');
  kellerengine.LoadFromFile(dir+'\KellerGame\Config\PC\KellerEngine.ini');
  blur.LoadFromFile(dir+'\Engine\Shaders\HLSL\MegaPostProcess\Blur.hlsl');
  ShadowDepthTest.LoadFromFile(dir+'\Engine\Shaders\HLSL\ShadowDepthTest.hlsl');

  try
      if tab1_nachbearbeitung_komplett.checked=true then begin
      showmessage(inttostr(baseengine.Count-1));
            for zeilennr:=0 to baseengine.Count-1 do
                if baseengine[zeilennr]='bUsePostProcessEffects' then
                  baseengine[zeilennr]:='bUsePostProcessEffects=False';
            for zeilennr:=0 to kellerengine.Count-1 do
                if  kellerengine[zeilennr]='bUsePostProcessEffects' then
                 kellerengine[zeilennr]:='bUsePostProcessEffects=False';
     end else begin
            for zeilennr:=0 to baseengine.Count-1 do
                if baseengine[zeilennr]='bUsePostProcessEffects' then
                  baseengine[zeilennr]:='bUsePostProcessEffects=True';
            for zeilennr:=0 to kellerengine.Count-1 do
                if  kellerengine[zeilennr]='bUsePostProcessEffects' then
                 kellerengine[zeilennr]:='bUsePostProcessEffects=True';
     end;

//  [...] noch weitere if-bedingungen, die aber für den Test ausgeklammert wurden.

  baseengine.SaveToFile(dir+'\Engine\Config\BaseEngine.ini');
  kellerengine.SaveToFile(dir+'\KellerGame\Config\PC\KellerEngine.ini');
  blur.SaveToFile(dir+'\Engine\Shaders\HLSL\MegaPostProcess\Blur.hlsl');
  ShadowDepthTest.SaveToFile(dir+'\Engine\Shaders\HLSL\ShadowDepthTest.hlsl');

  finally
    baseengine.free;
    kellerengine.free;
    blur.free;
    ShadowDepthTest.free;
  end;
end;

[DeddyH]

1. Du greifst auf unterschiedliche Listen zu. Wenn die Dateien unterschiedlich viel Zeilen haben, knallt es.
2. Wieso greifst Du auf IniFiles nicht mit den etnsprechenden Funktionen zu?

[edit] Punkt 1 wurde gerade wegeditiert *gg* [/edit]