Important information: this site is currently scheduled to go offline indefinitely by December 1st 2023.
If you wish to donate to attempt the preservation of tools and software somewhere else before it goes down, check the GoFundMe
If you wish to donate to attempt the preservation of tools and software somewhere else before it goes down, check the GoFundMe
Search found 1 match
- Mon Sep 25, 2006 7:49 am
- Forum: Game Archive
- Topic: .wz archive
- Replies: 515
- Views: 227536
function TMainfrm.transStr16(str: string): widestring; var a, i, p: WORD; r: widestring; begin setlength(r,length(str) div 2); p := $AAAA; for i := 1 to length(str) div 2 do begin // a := ord(str[2 * i-1])+ ord(str[2 * i ]) shl 8 ; a := PWord(@str[2*i-1])^; r[i] := widechar(a xor p); inc(p); end; r...