TP: Bildschirminhalt zwischenspeichern - too many Variables

guten morgen!

Ich möchte in meiner grafischen Anwendung (256 Farben, 1024x768) die Kanten glätten und habe dazu eine simpe Anwendung geschrieben in der ein Pixel die Durchschnittsfarbe der ihn umgebenden 8 Pixel und sich selbst bekommt. Um die Flackereffekte zu verringen soll das ganze erst danach ausgegeben werden, muss also zwischengespeichert werden. Jetzt ist das Problem, dass 768kb (1024*768 Bytes) einfach zu viele viele Variablen für Turbo Pascal sind.

Gibt es eine Möglichkeit das so zu machen oder bin ich auf dem falschen Pfad

 

Wieso das? Ein Array sollte doch vollkommen ausreichen.

 

wenns wirklich tp ist, dann kann ein array aber nur 64k groß sein.
schon mal mit zeigern probiert?

type
TZeile = array[1..1024] of Byte;
PZeile = ^TZeile;
TBildschirm = array[1..768] of PZeile;

var Bildschirm: TBildschirm;
begin
for lv:=1 to 768 do
begin
new(Bildschirm[lv]);
end;

Bildschirm[1]^[2]:=...
etc...
end;

 

autsch....
Array nur 64kb.... ich hab mir schon gedacht, dass ich irgendwas übersehen habe. Gut dass es hier aufmerksame Leser gibt.

 

Jah, das funktioniert >> großes Dankeschön.

Er wirft mir bei new(Bildschirm[lv]); einen HEAP OVERFLOW ERROR aus. Ist der Heap da zu erweitern?

 

welche pascal version verwendest du?

ich hab schon lang nichts mehr mit dem "original" tp zu tun, glaube mich aber an 640k maximale heapgröße unter tp7.1 erinnern zu können...

 

About​

Turbo Pascal Version 7.0
Copyright (c) 1983,92 by
Borland International, Inc.

Memory Sizes​

Stack size 16384
Low heap limit 0
High heap limit 655360

Gibt es vielleicht eine Modifikation die du mir empfehlen könntest? Ich werd' mal versuchen an TP 7.1 heranzukommen.

 

tp7.x bringt dir nix, weil das das dos speichermodell verwendet wird. daher hast du standardmäßig und ohne klimmzüge nur besch..eidene 640k ram zur verfügung. dein bild ist aber 1024*768*1 byte groß -> 768kb.

probiers mal mit freepascal oder vpascal. die kompilieren beide 32bit windows programme; da hast du 2gb speicherraum am stück zur verfügung

edit: ich verwende vpascal. leider wird das seit einiger zeit nicht mehr weiterentwickelt.

 

2GB? Das bietet ja noch mehr Optionen (Wenn ich denn so viel hätte)

Ich werde mich mit Free- und VPascal mal auseinandersetzen, danke für den Tipp.