AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TObjectList problem...

Ein Thema von gibb · begonnen am 23. Dez 2010 · letzter Beitrag vom 24. Dez 2010
Antwort Antwort
taveuni

Registriert seit: 3. Apr 2007
Ort: Zürich
534 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: TObjectList problem...

  Alt 23. Dez 2010, 11:16
Code:
  For i:= 0 to FFanOvList.Count -1 do begin
    FanObject:= FFanOvList[i] as TFanOverlayObject;
...
hat jemand eine idee woran das liegen könnte?
Gruss Sev
ist das nicht eher

FanObject:= FFanOvList[i].Items as TFanOverlayObject; ?
Die obige Aussage repräsentiert meine persönliche Meinung.
Diese erhebt keinen Anspruch auf Objektivität oder Richtigkeit.
  Mit Zitat antworten Zitat
gibb

Registriert seit: 12. Sep 2007
Ort: Bern
178 Beiträge
 
Delphi 2006 Architect
 
#2

AW: TObjectList problem...

  Alt 23. Dez 2010, 11:23
wie kommst du darauf? Wenn ich das machen würde würde dies dasselbe machen wie TFanOverlayObject.items und das biete ich nicht an. Das was du wohl meinst ist FFanOvList.items[i] aber ich weiss gerade nicht ob die TObjectlist das anbietet. und wenn ja währe meine lösung dasselbe aus meiner sicht.
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: TObjectList problem...

  Alt 23. Dez 2010, 11:30
Mit dem Debugger bist Du bestimmt schon drübergegangen, ich vermute der Fehler kommt irgendwo außerhalb Deiner Schleifen zustande.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
gibb

Registriert seit: 12. Sep 2007
Ort: Bern
178 Beiträge
 
Delphi 2006 Architect
 
#4

AW: TObjectList problem...

  Alt 23. Dez 2010, 11:48
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;
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#5

AW: TObjectList problem...

  Alt 23. Dez 2010, 12:01
Kann es sein daß Dir beim lesen von ResultRecord der Stack kaputtgeschrieben wird?
Pack ResultRecord: TResultIntRecord; mal testweise in eine globale Variable.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
gibb

Registriert seit: 12. Sep 2007
Ort: Bern
178 Beiträge
 
Delphi 2006 Architect
 
#6

AW: TObjectList problem...

  Alt 23. Dez 2010, 12:11
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.
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#7

AW: TObjectList problem...

  Alt 23. Dez 2010, 12:24
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 ...
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli
Online

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.351 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: TObjectList problem...

  Alt 23. Dez 2010, 13:02
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
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Antwort Antwort

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 12:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz