Einzelnen Beitrag anzeigen

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.464 Beiträge
 
Delphi 12 Athens
 
#3

Re: Maximale Stack Größe reicht nicht

  Alt 8. Mär 2010, 17:58
Die Bilddaten nicht auf dem Stack schieben, sondern nur eine Referenz auf diese im Speicher.
z.B.:
Delphi-Quellcode:
type
  PRiesigeDaten = ^TRiesigeDaten;
  TRiesigeDaten = record
    Werte: Array[1..unendlich]: Byte;
    NochMehrWerte: Integer;
  end;

procedure RekursiveRiesigeDaten(Daten: PRiesigeDaten);
var
  lDaten: PRiesigeDaten;
begin
  if not Abbruchbedingung then
  begin
    New(lDaten);
    try
      lDaten^ := Daten^;
      RekursiveRiesigeDaten(lDaten);
    finally
      Dispose(lDaten);
    end;
  end;
end;
  Mit Zitat antworten Zitat