---

Hej.

Jeg har nogle problemer med nedenstående kode. Jeg får bl.a. fejlen "Stack
overflow", når jeg prøver at compilere / starte programmet

Er der en af jer kloge, der kan se, hvad der er i vejen.

procedure TdmData.tblForbrugCalcFields(DataSet: TDataSet);
var
I: integer;
SamletTid: real;
begin
SamletTid:= 0;
tblForbrug.First;
tblForbrug.DisableControls;
For i:= 1 to tblForbrug.RecordCount do
begin
SamletTid:= SamletTid + tblForbrug.FieldByName('tblforbrugtid').Value;
tblForbrug.Next;
end;
tblForbrug.First;
tblForbrug.EnableControls;
tblForbrugSamletTid.Value:= SamletTid;
end;

---

"Michael Sørensen" <ms1 (a) skindbeni . DANMARK> skrev i en meddelelse
news:442bf3bd$0$8100$ba624c82@nntp02.dk.telia.net...
> Hej.
>
> Jeg har nogle problemer med nedenstående kode. Jeg får bl.a. fejlen "Stack
> overflow", når jeg prøver at compilere / starte programmet
>
> Er der en af jer kloge, der kan se, hvad der er i vejen.
>
> procedure TdmData.tblForbrugCalcFields(DataSet: TDataSet);
> var
> I: integer;
> SamletTid: real;
> begin
> SamletTid:= 0;
> tblForbrug.First;
> tblForbrug.DisableControls;
> For i:= 1 to tblForbrug.RecordCount do
> begin
> SamletTid:= SamletTid + tblForbrug.FieldByName('tblforbrugtid').Value;
> tblForbrug.Next;
> end;
> tblForbrug.First;
> tblForbrug.EnableControls;
> tblForbrugSamletTid.Value:= SamletTid;
> end;

Prøv med:
SamletTid:= 0;
tblForbrug.First;
tblForbrug.DisableControls;
while not tblForbrug.EOF do
begin
SamletTid:= SamletTid + tblForbrug.FieldByName('tblforbrugtid').Value;
tblForbrug.Next;
end;
tblForbrug.First;
tblForbrug.EnableControls;
tblForbrugSamletTid.Value:= SamletTid;

/HK

---

"Harald" <nomail@noname.dk> skrev i en meddelelse
news:442bfb08$0$84014$edfadb0f@dtext01.news.tele.dk...
> "Michael Sørensen" <ms1 (a) skindbeni . DANMARK> skrev i en meddelelse
> news:442bf3bd$0$8100$ba624c82@nntp02.dk.telia.net...
>> Hej.
>>
>> Jeg har nogle problemer med nedenstående kode. Jeg får bl.a. fejlen
>> "Stack overflow", når jeg prøver at compilere / starte programmet
>>
>> Er der en af jer kloge, der kan se, hvad der er i vejen.
>>
>> procedure TdmData.tblForbrugCalcFields(DataSet: TDataSet);
>> var
>> I: integer;
>> SamletTid: real;
>> begin
>> SamletTid:= 0;
>> tblForbrug.First;
>> tblForbrug.DisableControls;
>> For i:= 1 to tblForbrug.RecordCount do
>> begin
>> SamletTid:= SamletTid + tblForbrug.FieldByName('tblforbrugtid').Value;
>> tblForbrug.Next;
>> end;
>> tblForbrug.First;
>> tblForbrug.EnableControls;
>> tblForbrugSamletTid.Value:= SamletTid;
>> end;
>
> Prøv med:
> SamletTid:= 0;
> tblForbrug.First;
> tblForbrug.DisableControls;
> while not tblForbrug.EOF do
> begin
> SamletTid:= SamletTid + tblForbrug.FieldByName('tblforbrugtid').Value;
> tblForbrug.Next;
> end;
> tblForbrug.First;
> tblForbrug.EnableControls;
> tblForbrugSamletTid.Value:= SamletTid;

Hej Harald.

Det giver desværre samme fejl.

---

"Michael Sørensen" <ms1 (a) skindbeni . DANMARK> skrev i en meddelelse
news:442bfdd9$0$11700$ba624c82@nntp02.dk.telia.net...
> "Harald" <nomail@noname.dk> skrev i en meddelelse
> news:442bfb08$0$84014$edfadb0f@dtext01.news.tele.dk...
>> "Michael Sørensen" <ms1 (a) skindbeni . DANMARK> skrev i en meddelelse
>> news:442bf3bd$0$8100$ba624c82@nntp02.dk.telia.net...
>>> Hej.
>>>
>>> Jeg har nogle problemer med nedenstående kode. Jeg får bl.a. fejlen
>>> "Stack overflow", når jeg prøver at compilere / starte programmet
>>>
>>> Er der en af jer kloge, der kan se, hvad der er i vejen.
>>>
>>> procedure TdmData.tblForbrugCalcFields(DataSet: TDataSet);
>>> var
>>> I: integer;
>>> SamletTid: real;
>>> begin
>>> SamletTid:= 0;
>>> tblForbrug.First;
>>> tblForbrug.DisableControls;
>>> For i:= 1 to tblForbrug.RecordCount do
>>> begin
>>> SamletTid:= SamletTid +
>>> tblForbrug.FieldByName('tblforbrugtid').Value;
>>> tblForbrug.Next;
>>> end;
>>> tblForbrug.First;
>>> tblForbrug.EnableControls;
>>> tblForbrugSamletTid.Value:= SamletTid;
>>> end;
>>
>> Prøv med:
>> SamletTid:= 0;
>> tblForbrug.First;
>> tblForbrug.DisableControls;
>> while not tblForbrug.EOF do
>> begin
>> SamletTid:= SamletTid + tblForbrug.FieldByName('tblforbrugtid').Value;
>> tblForbrug.Next;
>> end;
>> tblForbrug.First;
>> tblForbrug.EnableControls;
>> tblForbrugSamletTid.Value:= SamletTid;
>
> Hej Harald.
>
> Det giver desværre samme fejl.

I hvilken linie får du fejlen?

/HK

---

---

"dh8000" <dennishartvigsen@ofir.dk> skrev i en meddelelse
news:442c0008$0$16993$ba624c82@nntp02.dk.telia.net...
> "Harald" <nomail@noname.dk> skrev i en meddelelse

<klip en masse>

> Programmet stopper med farvet tekst og en pil ud for linien
>
> tblForbrug.DisableControls;
> tblForbrug.DisableControls;

Har du prøvet at Trace (Step over med F8), jeg tror det er fordi at din
TdmData.tblForbrugCalcFields procedure bliver kaldt i en uendelig løkke pga.
af noget af din kode i TdmData.tblForbrugCalcFields, men ved at benytte F8
kan du jo finde ud af det.

/HK

---

> procedure TdmData.tblForbrugCalcFields(DataSet: TDataSet);
> var
> I: integer;
> SamletTid: real;
> begin
> SamletTid:= 0;
> tblForbrug.First;
> tblForbrug.DisableControls;
> For i:= 1 to tblForbrug.RecordCount do
> begin
> SamletTid:= SamletTid + tblForbrug.FieldByName('tblforbrugtid').Value;
> tblForbrug.Next;
> end;
> tblForbrug.First;
> tblForbrug.EnableControls;
> tblForbrugSamletTid.Value:= SamletTid;
> end;

Du får en stack overflow fordi, at du laver et loop i OnCalcFields metoden,
som er i samme tabel som metoden tilhører. Hver gang du scroll'er videre med
tblForbrug.Next eller kalder tblForbrug.First, så kaldes
tblForbrugCalcFields metoden. Det vil sige, at når tblForbrugCalcFields er
blevet kaldet et utal gange, så får du fejlen stack overflow.

/Brian

---

Lige præcis!

mvh Thor