(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: CompressString ohne #0
23. Okt 2007, 08: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")
|