Important information: this site is currently scheduled to go offline indefinitely by end of the year.
Search found 1 match
- Mon Sep 25, 2006 7:49 am
- Forum: Game Archive
- Topic: .wz archive
- Replies: 515
- Views: 226515
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...