Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#18

Re: LZW Komprimierung für texte - zugriffsverletzung

  Alt 25. Aug 2009, 17:41
Hallo QWERTZ543221,

ich hab mir Deinen code angetan,
er wird unter D7 compiliert
wenn ich Button2 clicke passiert nichts( erst recht kein Fehler!)
wenn ich Button1 clicke, bekomme ich einen Fewhler in Zeile 166:

Delphi-Quellcode:
...
 else
    begin
    //ersetzen
      x:=wb[hsh].text+x; {-- Bumm!!}
      hsh:=hash(x);
      if hsh>length(wb)
        then setlength(wb,hsh+1);
      wb[hsh].text:=x;
      end;
i:=i+1;
end;
....
---------------------------
Project1
---------------------------
Zugriffsverletzung bei Adresse 00450209 in Modul 'Project1.exe'. Lesen von Adresse 0097E718.
---------------------------
OK
---------------------------

Da hsh den wert 21045 hat wundert mich das nicht!

Gruß
K-H

Zitat:
Zitat:
Wenn Du ihn nur selbst benutzt, mußt Du ihn ja auch nicht vernünftig formatieren (ist nur was für Schwächlinge).
  Mit Zitat antworten Zitat