Delphi

Konvertierung eines PWideChar zu einem String

function PWideCharToString(pwch:PWideChar;count:integer):string;
begin
 result:='';
 for count:=count downto 1 do
  begin
   result:=result+pwch^;
   inc(pwch);
  end;
end;

unlzw.pas

This file has been ported from gZIP v 1.24:
„unlzw.c“ v 0.15 1993/06/10 13:28:35 filesize = 9217.
This Unit implements the original LZW (Lempel-Ziv-Welch) Decompression Algorithm.
Description:
function unlzw(inStr,outStr:TStream): boolean;
– Decompress a Stream to a Stream
function unlzwFile(srcFile,dstFile:String): boolean;
– Decompress a File to a File

lzwUnit.pas