TObjectList problem...

[Bummi]

Mit dem Debugger bist Du bestimmt schon drübergegangen, ich vermute der Fehler kommt irgendwo außerhalb Deiner Schleifen zustande.

[gibb]

das vermute ich auch aber ich weiss nicht wo suchen. Ich versuche es noch einmal zu erklären

Ich hab mir ne Watch gemacht auf TVoltOverlayObject(FVoltOVList[1]) diese Watch habe ich beobachtet beim Debuggen. diese watch ist okey bis zum step ( 1. zu 2. komentare) und das wenn i = 8 ist.

Also in dem moment wo er einen durchlauf beendet hat und wieder hochspringt zur bedingung gehen meine Objekte flöten. wieso auch immer und ich wüsste nicht was mir da genau einen strich durch die rechnung macht.

Hast du eine ahnung was in dieser zeit noch passiert?

Delphi-Quellcode:

var
  TempObject: TTempOverlayObject;
  FanObject: TFanOverlayObject;
  VoltObject: TVoltOverlayObject;
  i: Integer;
  ResultRecord: TResultIntRecord;
  MyTobject: TObject;
begin

  Result:= GPReadSpeedFan.ReadSFData;
  ResultRecord:= GPReadSpeedFan.GetResultRecord;
  For i:= 0 to FTempOvList.Count -1 do begin
    TempObject:= FTempOvList[i] as TTempOverlayObject;
    TempObject.Temp:= ResultRecord.Temps[TempObject.TempArrayPos] div 100;
    If TempObject.IdleTemp > TempObject.Temp then
      TempObject.IdleTemp:= TempObject.Temp
    else If TempObject.LoadTemp < TempObject.Temp then
      TempObject.LoadTemp:= TempObject.Temp;
  end;

  For i:= 0 to FFanOvList.Count -1 do begin// <---------2. objekte sind flöten und i = 9
    FanObject:= FFanOvList[i] as TFanOverlayObject;
    FanObject.RPM:= ResultRecord.fans[FanObject.RPMArrayPos];
    FanObject.NewSpeed := GetNewSpeedForAFan(FanObject);
    If FanObject.IdleRPM > FanObject.RPM then
      FanObject.IdleRPM:= FanObject.RPM
    else If FanObject.LoadRPM < FanObject.RPM then
      FanObject.LoadRPM:= FanObject.RPM;
  end; // <------------ 1. hier stand i= 8 und meine objekte in der liste weiter unten sind noch richtig. anschliessend wieder einen step im debuger

  for i := 0 to FVoltOvList.Count - 1 do begin
    MyTobject:= FVoltOVList[i];
    if FVoltOvList[i] is TVoltOverlayObject then
      VoltObject:= FVoltOvList[i] as TVoltOverlayObject ;
    VoltObject.Voltage:= ResultRecord.Volts[VoltObject.VoltArrayPos]/100 ; //FormatFloat('###0.0##',ResultRecord.Volts[VoltObject.VoltArrayPos]/100)
    If VoltObject.IdleVolt > VoltObject.Voltage then
      VoltObject.IdleVolt:= VoltObject.Voltage
    else If VoltObject.LoadVolt < VoltObject.Voltage then
      VoltObject.LoadVolt:= VoltObject.Voltage;
  end;

[Bummi]

Kann es sein daß Dir beim lesen von ResultRecord der Stack kaputtgeschrieben wird?
Pack ResultRecord: TResultIntRecord; mal testweise in eine globale Variable.

[gibb]

was sollte dann passieren?

also funzen tuts nicht wenn ich das mache.... was aber ist das problem tritt nicht immer von 8-9 auf kann auch von 3-4 oder von 4-5 oder garnicht O.ô hatte vorhin einen fall da hat alles sauber funktioniert... für 2 mal und dann wieder kapput.

[Bummi]

Da ich einen Stackfehler vermute würde ich zu Eingrenzungszwecken, den kompletten Var-Teil bis auf i in einen globalen Speicherbereich umziehen, aber wirklich helfen kann ich Dir von hier aus nicht ...

[gibb]

ich könnte dir theoretisch auch das Projekt zusenden. Aber sei gewarnt erst war nur was kleines angedacht und es ist dann gewachsen. Ich bin gerade am refactoring um einige desing patterns einzuführen.

Ich versteh leider sehr sehr wenig von Stackfehler um nicht zu sagen garnichts. Ich habe auch keine erfahrungen darin wie man diese eingrenzen kann und ich versteh ehrlich gesagt auch nicht was es hilft die variablen in einen globalen speicherbereich zu zügeln.

Also was mir helfen würde:
1. Du erklärst mir genauer wie ich das debuggen/eingrenzen kann.
2. Oder ich sende dir den code zu...

mit globalen speicherbereich meinst du was? Eine objektvariable daraus zu machen oder gar klassenvariable. ?

[stahli]

Hast Du vielleicht Deine Arraygrößen verändert und die Bereichsprüfung nicht aktiviert?
Beim Schreiben über Arraygrenzen hatte ich ähnliche Effekte auch schon zu beklagen

[Bummi]

Ich hatte ganz einfache globale Variablen gemeint, am besten getrennt durch leere Arrayvariablen, deren Inhalt man beim Debuggen miteinsehen kann um zu schauen wann das etwas überläuft.
Man könnte auch alle beteiligten Funktionen und Prozeduren auf Korrektheit prüfen.
Wenn's nicht eilig ist und ich keine Komponenten installieren musst kannst mir den Code gerne schicken, besser wird es sein ihn ins Forum zu stellen, was der eine übersieht findet ein anderer.

[gibb]

Hallo zusammen, ich prüffe jetzt noch das Array.

Den kompletten code ins forum zu stellen ist wohl eher schwierig. Es sind immerhin 9 Units und 4 forms. Aber es eilt nicht... ist ein "privates" projekt....


gruss Sev