Forum: Programmieren allgemein
Delphi
by Amateurprofi,
11. Mai 2012
Nee, das geht nicht.
CompressBuf erwartet einen Pointer.
Forum: Programmieren allgemein
Delphi
by Amateurprofi,
11. Mai 2012
Ja, habe ich. Alles so wie es sein soll.
Ich hab auch mal geschaut, was die -6 in der Fehlermeldung bedeutet.
Z_VERSION_ERROR = -6;
Aus einem Beitrag von himitsu lernte ich:
Ich hab es dann mal mit einem AnsiString versucht.
Funktionierte ebenfalls nicht.
Da kam keine Fehlermeldung, aber das ganze hat sich wohl irgendwie aufgehängt.
Forum: Programmieren allgemein
Delphi
by Amateurprofi,
11. Mai 2012
Das scheint nur so!
Du hast natürlich Recht , dass ich auf Info so nicht zugreifen kann.
Es ist so, dass ich nicht den Original Code hier reinkopiert habe, weil der sehr viel komplexer ist.
Da ich etwas von euch will, wollte ich euch nicht zumuten euch da durchzuarbeiten. Deshalb wollte ich den Code simplifizieren und habe mich dabei vertan.
Im Original ist TInfo in etwa so deklariert
Forum: Programmieren allgemein
Delphi
by Amateurprofi,
11. Mai 2012
Ich mache folgendes :
type
TData=Array of string;
TInfo=Array of TData;
var Info:TInfo;
PROCEDURE CompressInfo;
var i,j:integer; s:string; p:pointer; n:cardinal;
begin
for i:=0 to High(Info) do begin