Re: [DUG] 'exclusive or'

[Jeremy Coulter]

Agh...dont you hate that !

Someone shows you a bit of code and you go "oh yeah....DUH !!!"

 

thanks Phil.

 

Jeremy

-----Original Message-----
From: "Phil Middlemiss" <[EMAIL PROTECTED]>
To: "NZ Borland Developers Group - Delphi List" <[EMAIL PROTECTED]>
Date: Thu, 11 Nov 2004 16:43:50 +1300
Subject: Re: [DUG]  'exclusive or'

here is a simple function I use:

 

function CalcCheckSum(const S: String): Word;
var
  i: Integer;
begin
  result := 0;
  for i := 1 to Length(S) do
    result := result xor Word(S[i]);
end

probably not the fastest, but it's adequate.

Cheers,

Phil.

----- Original Message -----

From: Jeremy Coulter

To: [EMAIL PROTECTED]

Sent: Thursday, November 11, 2004 4:12 PM

Subject: [DUG] �exclusive or�

Hi all.