AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Listenindex fehler bei einer Tstringlist

Listenindex fehler bei einer Tstringlist

Ein Thema von gangs-taas · begonnen am 17. Jul 2009 · letzter Beitrag vom 19. Jul 2009
Antwort Antwort
Seite 1 von 3  1 23   
gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#1

Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 22:52
hey,
ich hoffe ihr könnt mir helfen.
also ich habe eine Tstringlist die aus einer txt-datei geladen wird.
nun möchte ich ein paar zeilen in memo-felder einfügen.

das klappt auch noch.

Aber direkt nach dem einfügen bekomme ich die meldung

Listenindex übersteigt Maxmimum(irgendeinezahl)

ich versteh einfach nicht wieso.

muss man die größe von Tstringlisten auch angeben ?!

und wenn ja kann ich irgendwie sagen die sind immer so groß wie die Textdatei ?!

hoffe ihr könnt mir helfen. Danke schonmal.

lg
  Mit Zitat antworten Zitat
Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#2

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 22:54
Ein kleiner Codeausschnitt wäre ganz gut, aber vermuten was schiefgeht kann ich auch so: Irgendwo wirst Du wohl ein Pred bzw. eine -1 vergessen haben. Daher probiert er auf einen nicht vorhandenen Stringlist-Eintrag zuzugreifen und da bis vor diesen alles im Memo steht, empfindest Du die Fehlermeldung als unabhängig davon. Aber ist nur eine Vermutung, ohne Code schwierig zu sagen.
  Mit Zitat antworten Zitat
gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#3

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:20
hier der code müsst ihr nicht alles durchlesen ist oft ähnlich nur mit anderen Tagen

Delphi-Quellcode:
procedure TForm1.InDieMemoFelderSchreiben(var Textdatei,Textdatei2: String);
var
  zv : integer;
  zv2 :integer;
  Pruefstring : String ;
begin
  zv := 0;
  zv2 := 0;
  if FileExists(Textdatei) and FileExists(Textdatei2) then begin
    Zwischenspeicher.LoadFromFile(Textdatei);
    Zwischenspeicher2.LoadFromFile(Textdatei2);
  end
  Pruefstring := Zwischenspeicher[Zv];
  If Pruefstring = 'MontagThen begin
    Label1.Caption := Zwischenspeicher[Zv];
    inc(Zv) ;
  end;
  Pruefstring := Zwischenspeicher[Zv];
  While not (PruefString = 'Dienstag') do begin
    Memo1.Lines.Add(Zwischenspeicher[Zv]);
    inc(Zv);
    Pruefstring := Zwischenspeicher[Zv];
  end;
  If Pruefstring = 'DienstagThen begin
    Label2.Caption := Zwischenspeicher[Zv];
    inc(Zv) ;
    Pruefstring := Zwischenspeicher[Zv];
  end;
  While not (PruefString = 'Mittwoch') do begin
    Memo2.Lines.Add(Zwischenspeicher[Zv]);
    inc(Zv);
    Pruefstring := Zwischenspeicher[Zv];
  If Pruefstring = 'MittwochThen begin
    Label3.Caption := Zwischenspeicher[Zv];
    inc(Zv) ;
    Pruefstring := Zwischenspeicher[Zv];
  end;
  While not (PruefString = 'Donnerstag') do begin
    Memo3.Lines.Add(Zwischenspeicher[Zv]);
    inc(Zv);
    Pruefstring := Zwischenspeicher[Zv];
  end;
  If Pruefstring = 'DonnerstagThen begin
    Label4.Caption := Zwischenspeicher[Zv];
    inc(Zv) ;
    Pruefstring := Zwischenspeicher[Zv];
  end;
  While not (PruefString = 'Freitag') do begin
    Memo4.Lines.Add(Zwischenspeicher[Zv]);
    inc(Zv);
    Pruefstring := Zwischenspeicher[Zv];
  end;
  If Pruefstring = 'FreitagThen begin
    Label5.Caption := Zwischenspeicher[Zv];
    inc(Zv) ;
    Pruefstring := Zwischenspeicher[Zv];
  end;
  While not (PruefString = 'Samstag') do begin
    Memo5.Lines.Add(Zwischenspeicher[Zv]);
    inc(Zv);
    Pruefstring := Zwischenspeicher[Zv];
  end;
  If Pruefstring = 'SamstagThen begin
    Label6.Caption := Zwischenspeicher[Zv];
    inc(Zv) ;
    Pruefstring := Zwischenspeicher[Zv];
  end;
  While not (PruefString = 'Sonntag') do begin
    Memo6.Lines.Add(Zwischenspeicher[Zv]);
    inc(Zv);
    Pruefstring := Zwischenspeicher[Zv];
  end;
  If Pruefstring = 'SonntagThen begin
    Label7.Caption := Zwischenspeicher[Zv];
    inc(Zv) ;
    Pruefstring := Zwischenspeicher[Zv];
  end;
  While not (PruefString = 'Ende') do begin
    Memo7.Lines.Add(Zwischenspeicher[Zv]);
    inc(Zv);
    Pruefstring := Zwischenspeicher[Zv];
  If Pruefstring = 'EndeThen begin
    Label8.Caption := Zwischenspeicher2[Zv2];
    inc(Zv2) ;
    Pruefstring := Zwischenspeicher2[Zv2];
  end;
  While not (PruefString = 'Dienstag') do begin
    Memo8.Lines.Add(Zwischenspeicher2[Zv2]);
    inc(Zv2);
    Pruefstring := Zwischenspeicher2[Zv2];
  end;
  end;
  end;
end;
[edit=Sharky]Neu gesendet damit es neu in den aufbereitet wird. Mfg, Sharky[/edit]
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:23
In welcher Zeile tritt der Fehler auf?
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:24
Puh. Etwas Quellcodeformatierung könnte wohl nicht schaden.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#6

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:26
Der fehler kommt wenn Prüfstring 'Dienstag' ist also ganz unten ...

und beide Tstringlisten entahlten genügend einträge ...
  Mit Zitat antworten Zitat
gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#7

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:30
ps. wieso macht der den quelltext hier oben eigendlich nicth farbig ?

müpsste nicht z.b. das Procedure Blau sein ?!

wenn andere quelltexte einfügen ist das auch so aber bei mir irgendwien icht wieso ?!
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#8

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:30
Setze einen Breakpoint und schau dir Zeile für Zeile an, was passiert. Der Fehler sitzt meist vor dem Gerät. Dadurch, dass der Fehler kommt sind garantiert nicht genug Zeilen in deiner Datei. Testweise kannst du ja auch einfach mal ein paar mehr eintragen.
Versuch einfach rauszufinden, an welcher Stelle die Realität und deine Gedankenwelt nicht mehr zusammenpassen. Sprich: benutze den Debugger.
  Mit Zitat antworten Zitat
gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#9

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:34
also ich habe in meiner Datei2 die also auch in Zwischenspeicher2 geladen wird

Montag
dann ein Termin
Dienstag
Mittwoch
Donnerstag
Freitag
Samstag
Sonntag


und er soll montag + termin laden und wenn prüfstring Dienstag ist dann nicht mehr.
also es sind genügend zeilen im Tstringlist da....


und wo der Fehler kommt zeig ich euch oben im quelltext okay ?!
  Mit Zitat antworten Zitat
gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#10

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:41
nein also hab das mit F7 überprüft

er arbeitet die ganz schleife ab ABER nachdem er ganz unten angekommen ist springt er irgednwie wieder hoch
er springt bis hier

Delphi-Quellcode:
   While not (PruefString = 'Mittwoch') do begin
    Memo2.Lines.Add(Zwischenspeicher[Zv]);
    inc(Zv);
    Pruefstring := Zwischenspeicher[Zv];
und dann gibt er einen fehler ...

aber wieso springt er wieder hoch ?!
versteht ihr das ?!
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz