Listindex überschreitet Maximum - Einmal ja, einmal nein?

[draGo]

Huhu DP,

ich stehe mal wieder vor einem (komischen) Problem...
Ich habe hier vor einiger Zeit mal eine Split Funktion gefunden die auch ganz das tut was sie soll. (Gibt eine StringList zurück).
Um die Stringlist bearbeiten zu können habe ich mir noch eine eigene erstellt und folgendes gemacht:

Delphi-Quellcode:

StringLst := Split(Str,'|',false,false);

Nun habe ich mit

Delphi-Quellcode:

    Stringlst.Text := Stringreplace(Ergebnisse.Text,' ','',[rfreplaceall]);
 stringlst.Text := Stringreplace(Ergebnisse.Text,'#',' ',[rfreplaceall]);

etwas ersetzt. Alles schön und gut.
Wenn ich jetzt aber mit einer Schleife arbeiten möchte kommt das Problem...

Delphi-Quellcode:

for I := 0 to StringLst.Count -1  do begin
  //...

Es erfolgt der Fehler "Listindex überschreitet Maximum"
Wenn ich es folgend mache

Delphi-Quellcode:

for I := 0 to Split(Str,'|',false,false).count -1 do begin
  //...

funktioniert alles wunderbar.
Wenn ich das ersetzen auslasse funktioniert es... Nur warum?
Ich würde nämlich gerne mit meiner StringList arbeiten :?
Hoffe ihr könnt mir helfen :)

mfg,
draGo

[Bernhard Geyer]

Zitat:

Zitat von draGo

etwas ersetzt. Alles schön und gut.
Wenn ich jetzt aber mit einer Schleife arbeiten möchte kommt das Problem...

Delphi-Quellcode:

for I := 0 to StringLst.Count -1  do begin
  //...

Es erfolgt der Fehler "Listindex überschreitet Maximum"

Also diese Zeile kann nicht das Problem sein. Zeig doch mal die ganze Funktion. Der Fehler ist ja in der Scheife (von der wir keinen Code haben).

[Helmi]

Hallo,

anstatt:

Delphi-Quellcode:

StringLst := Split(Str,'|',false,false);

musst du die eine StringList der anderen StringList so übergeben:

Delphi-Quellcode:

StringLst.Assign(Split(Str,'|',false,false));

[RavenIV]

ich hab auch noch eine Idee:
jeder String wird doch durch #0 abgeschlossen. Mit Deinen Ersetzen klaust Du dem #0 das #.
Prüfe das doch mal in diese Richtung...

[draGo]

Hallo Bernhard,

es scheint eher am ersetzen zu liegen.

Delphi-Quellcode:

Stringlst.Text := Stringreplace(Ergebnisse.Text,' ','',[rfreplaceall]);
stringlst.Text := Stringreplace(Ergebnisse.Text,'#',' ',[rfreplaceall]);

Wenn ich diese beiden Zeilen (Eine weglassen führt zum Fehler wieder, egal welche) weglasse gibt Delphi mir keinen Error aus.
Der (etwas chaotische) Code der Schleife ist folgender:

Delphi-Quellcode:

for I := 0 to StringLst.Count -1  do begin
  frmmain.anzeige.Rowcount := frmmain.anzeige.rowcount +1;

  if zeile > 7 then
    zeile := 0;

   if StringLst.Strings[i] = '' then
      StringLst.Delete(i);


  Frmmain.Anzeige.Cols[zeile].Add(StringLst.strings[i]);
  zeile := zeile +1;

 end;

Wobei "Anzeige" ein StringGrid ist.

____________________

Hallo Helmi, habe es jetzt so gemacht. Jedoch behebt das nicht das Problem :(

____________________

Hallo RavenIV,
werde es mal nachprüfen . Danke :)

mfG draGo

[Helmi]

erzeugst du auch die StringList "Stringlst" mit

Delphi-Quellcode:

Stringlst := TStringList.Create;

:?: :?:

[draGo]

Hallo Helmi,

ja das tue ich schon vorher ;)

[Hawkeye219]

Hallo draGgo,

schaue mal in diesen Thread hinein, da findest du die Erklärung für die Fehlermeldung.

Zu deiner Split-Funktion: wenn diese dir eine Stringliste liefert, dann bist du als Aufrufer für die Freigabe der Liste verantwortlich. Befehle wie

Delphi-Quellcode:

for I := 0 to Split(Str,'|',false,false).count -1 do begin

oder

Delphi-Quellcode:

StringLst.Assign(Split(Str,'|',false,false));

erzeugen somit Speicherlecks, weil du keine Referenz speicherst, mit der du die Liste wieder freigeben kannst.

@RavenIV
Du machst Witze, oder? klick

Gruß Hawkeye

[RavenIV]

Zitat:

Zitat von Hawkeye219

@RavenIV
Du machst Witze, oder? klick

War nur so ne spontane (und dumme) Idee.
Jetzt, wo ich den Link gelesen habe, ist es wieder klar.
Auch ich sollte eben zweimal überlegen, bevor ich den "Absenden"-Button drücke. :oops: :|

[marabu]

Hallo draGo,

ein wesentliches Problem mit deinem Code aus Beitrag #1 ist:

Delphi-Quellcode:

begin
  Ergebnisse := Split(Str,'|',false,false);
  Stringlst.Text := StringReplace(Ergebnisse.Text, ' ', '',[rfReplaceAll]);
  //  Stringlst.Text := Stringreplace(Ergebnisse.Text, '#', ' ',[rfReplaceAll]);
  //  Wenn du das Resultat der ersten Ersetzung nicht weiter verarbeitest,
  //  dann dürfte das Eregbnis nicht deinen Erwartungen entsprechen.
  Stringlst.Text := StringReplace(Stringlst.Text, '#', ' ',[rfReplaceAll]);
// ...

Grüße vom marabu