Fehlersuche in meinem Projekt! (erledischt)

[Rakshasa]

Hi!!

Neuerdings zeigt mir Delphi beim Starten meines Projektes einen TStringList-Error an (maximum wird überschritten), eigentlich ja glasklare Sache! Wenn ich nun zur Stelle des Laufzeitfehlers springen möchte, lande ich immer nur in der classes.pas:

Code:

 procedure TStrings.Error(const Msg: string; Data: Integer);
 begin
  ...
 end;

Der Fehler tritt definitiv beim TForm1.Create auf, aber wenn ich in der procedure TForm1.Create gleich an den Anfang ein "exit" setze, tritt der Fehler trotzdem auf! Wo kann ich denn noch suchen?? Ich habe alle Events meiner TApplicationEvents deaktiviert, sowie alle der Form1 - der Fehler ist trotzdem noch da!

Argh?!?!

[sakura]

Ändere den Titel bitte dahingehend, dass der Fehler ersichtlich wird ;)

...:cat:...

[Bernhard Geyer]

Wie sieht deine Formulardatei (*.dfm) aus?
Ich vermute mal das der Fehler beim Streamen der Formulardatei in der Anwendung auftritt.

[Rakshasa]

Hm, was könnte denn da schief laufen? Ich kann die .DFM hier schlecht veröffentlichen, da sie ca. 27000 Codezeilen hat ...

[mytar]

Ich persönlich hätte gegen eienn Veröffentlichung nicht dagegen! :-D :mrgreen: :cyclops:

[Rakshasa]

Ok, Problem gelöst ... ein fehlendes "do begin" war der Auslöser .... bin schon etwas müde ... :-)


Trotzdem danke für eure Bemühungen!!!

[fkerber]

Hi!

Könntest du trotzdem noch den Titel ändern und evtl. die entsprechende Stelle im Code zeigen?


Ciao Frederic

[Rakshasa]

Also, der Fehler war in einer Procedure, in beim OnChange-Ereignis einer PageControl aufgerufen wird (das OnChange wird anscheinend auch beim Form.Create ausgeführt):

Code:

for x := 0 to sl.count -1 do <== Hier habe ich vergessen, ein "begin" hinzuzufügen... :)

 _debugstr := 'Lese: ' + sl[x]; 

 with form1.FindComponent(sl[x]) as TAdvListView do begin <== Darum hier der Fehler
  BeginUpdate;
  items.clear;
  EndUpdate;
 end;

Also Danke nochmals! :)