Delphi CompressString ohne #0

Thema durchsuchen

Ansicht

Themen-Optionen

CompressString ohne #0

Ein Thema von peschai · begonnen am 23. Okt 2007 · letzter Beitrag vom 23. Okt 2007

Vorheriger Beitrag

Nächster Beitrag

alzaimar

(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge

Delphi 2007 Enterprise

Re: CompressString ohne #0

23. Okt 2007, 07:07

Du könntest den String nach der Kompression auf '#0' prüfen und diese escapen. Also z.B. so:
1. Alle Zeichen außer #255 bleiben.
2. #255 wird zu #255#255
3. #0 wird zu #255#254

Beim Einlesen kopierst Du alles außer #255. Wenn das Zeichen = #255, prüfst Du das nächste Zeichen. Ist das = #254, schreibst Du #0 in den Outut, ist es = #255 dann schreibst Du #255.

"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")