Zitat von
Chewie:
Vielleicht reservierst du in jedem Iterationsschritt Stack-Speicher, den du nicht wieder freigibst. Poste doch mal den Code.
eigentlich nicht.
Wie reserviert man Stack Speicher ?
Ich dachte bisher immer, dass wenn man eine variable in einer Funktion oder prodedure definiert, dass diese nach dem Aufruf dieser Procedure wieder freigegeben wird.
Der Code ist eigentlich nicht weiter kompliziert, es werden nur in einem Array elemente einsortiert.
Das Array wird immer sortiert gehalten ...
Delphi-Quellcode:
<pre>
function search1 (was : intx ; wo : array of TDatensatz; var position : longint) : boolean;
var mi,le,ri : LongInt;
begin
le := 0;
ri := High(wo);
repeat
mi := (le + ri) div 2;
If was < wo[mi].key Then ri := mi - 1 Else le := mi + 1;
Until (wo[mi].key = was) Or (le > ri);
if wo[mi].key = was then
begin
search1 := true;
position := mi;
end else
begin
search1 := false;
if ri = -1 then position := 0 else
begin
while ( wo[mi].key < was ) do inc(mi);
position := mi;
end;
end;
End; // von search1
///////////////////////////////////////////////////////////////////////
procedure TStatistikFeld.increin(TD : TDatensatz);
var i : longint;
position : longint;
l : longint;
begin
if search1(td.key,afeld, position) then
begin
inc( afeld [position].anzahl );
end else // von gefunden
begin
l := length(afeld);
l := l +1;
setlength(afeld, l );
for i := l-1 downto position + 1 do
afeld[i] := afeld[i-1];
td.anzahl := 1;
afeld[position] := TD;
end; // von nicht gefunden
end; // von increin
</pre>
[edit=Christian Seehase] Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]