StrToBool: Boolean True = -1, False = 0 ?

[nahpets]

0 = False, alles andere = True.

Ein Nonsensbeispielprogrämmelchen dazu:

Delphi-Quellcode:

program Test;
var
        i : Integer;
begin
  for i := -5 to 5 do begin
    if boolean(i) then ShowMessage(Format('%d ist wahr',[i])) else ShowMessage(Format('%d ist falsch',[i]));
  end;
end.