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 2 von 3     12 3   
gangs-taas

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

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:43
okay
ihr könnt aufhören zu suchen..

es lang dadran, dass ich die End; falsch gesetzt hatte ...


danke trotzdem ^^
  Mit Zitat antworten Zitat
omata

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

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:43
Da wir nicht wirklich wissen, was du da vorhast...

Rücke erstmal deinen Quellcode richtig ein, nur so kannst du ihn richtig verstehen...
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;
Das mit den Schleifen würde ich nochmal überdenken. Führe die Schleife solange durch, wie etwas nicht eintrifft, Nichts ist auch <> 'Dienstag' oder 'Ende'. Nirgends ist eine Prüfung vorhanden, die kontrolliert, ob man die Zeilenanzahl einer Stringliste überschritten hat, genau dann knallt es.
  Mit Zitat antworten Zitat
gangs-taas

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

Re: Listenindex fehler bei einer Tstringlist

  Alt 17. Jul 2009, 23:46
ja hat sich ja schon geklärt

lag an den komisch gesetzten Ends


ich hab das oben doch auch eingerückt ?!

nur wieso sind bei dir manche sachen Blau und bei mir nicht ?!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

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

Re: Listenindex fehler bei einer Tstringlist

  Alt 18. Jul 2009, 00:03
Zitat von gangs-taas:
lag an den komisch gesetzten Ends
Und da slag daran, dass du ihn nicht gescheit formatiert hast.

Zitat:
ich hab das oben doch auch eingerückt ?!
Ja, jetzt hier im Forum, aber auch in der IDE?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
gangs-taas

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

Re: Listenindex fehler bei einer Tstringlist

  Alt 18. Jul 2009, 10:33
ne da ist er nicht eingerückt ^^

kann ich ja noch machen



undwieso habt ihr iher im forum z.b. if blau und ich da oben nicht ?!
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#16

Re: Listenindex fehler bei einer Tstringlist

  Alt 18. Jul 2009, 11:09
Zitat von gangs-taas:
undwieso habt ihr iher im forum z.b. if blau und ich da oben nicht ?!
Das passier sporadisch jedem hier mal... den genauen Grund, warum manchmal die Farben nicht gezeichnet werden und quasi nur "Code" statt "Delphi-Code" verwendet wird, kenne ich auch nicht.
  Mit Zitat antworten Zitat
gangs-taas

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

Re: Listenindex fehler bei einer Tstringlist

  Alt 18. Jul 2009, 13:19
weil bei mir ist das in letzter zeit nur noch ohne farben also nur code ....
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#18

Re: Listenindex fehler bei einer Tstringlist

  Alt 18. Jul 2009, 15:42
Zitat von Satty67:
...den genauen Grund, warum manchmal die Farben nicht gezeichnet werden und quasi nur "Code" statt "Delphi-Code" verwendet wird, kenne ich auch nicht.
Gelegentlich macht der parser wohl einen "fehler" die Daten werden aber nicht bei jedem Seitenaufruf neu erzeugt sonder aus dem DP eigenen Cashe geholt. Ich habe den Betrag neu erzeugen lassen und jetzt stimmt es auch mit der Anzeige.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
gangs-taas

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

Re: Listenindex fehler bei einer Tstringlist

  Alt 19. Jul 2009, 13:02
wie lässt man den den beitrag neu erzeugen ?!
oder kann das nur ein Moderator ?!
  Mit Zitat antworten Zitat
TBx
(Administrator)

Registriert seit: 13. Jul 2005
Ort: Stadthagen
1.892 Beiträge
 
Delphi 12 Athens
 
#20

Re: Listenindex fehler bei einer Tstringlist

  Alt 19. Jul 2009, 13:11
Der Beitrag wird durch ein Edit bereits im Cache neu erzeugt, kannst Du also auch selbst tun.
Thomas Breitkreuz
Gruß Thomas
- Admin DelphiPRAXIS
- Admin Delphi-Treff
- Embarcadero MVP
  Mit Zitat antworten Zitat
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:29 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