Compare without if, case, <, >
[code language=”delphi”]
var
a, b: word;
a1, b1: word;
begin
a := abs(strtoint(Edit1.Text));
b := abs(strtoint(Edit2.Text));
a1 := a div b;
a1 := ((a1 + 2) div (a1 + 1)) mod 2;
b1 := (a1 + 1) mod 2;
Edit3.Text := inttostr(a*a1+b*b1) + ‘ >= ‘ + inttostr(a*b1+b*a1);
end;
[/code]
Dismay – Oh! Fuck it!
Aggression – Fuck you.
Passive – Fuck me.
Continue reading F_ck
[code language=”delphi”]
procedure TForm1.Button1Click(Sender: TObject);
var
a, b: integer;
begin
a := strtoint(Edit1.Text);
try
try
b := a div a;
except
on e: Exception do
b := 0;
end;
finally
Edit3.Text := inttostr(b);
end;
end;
[/code]
()((())((())
Is it correct sequence?
I need just a counter.
foreach char in string {
If next bracket is “(” then inc(counter);
If next bracket is “)” then dec(counter);
If counter < 0 then showmessage(“Error”);
}
[code language=”delphi”]
procedure TForm1.Button1Click(Sender: TObject);
var
KeyState : Word;
S : String;
begin
KeyState := GetKeyState(VK_SCROLL);
S := ‘Клавиша: VK_SCROLL. Состояние:’;
if KeyState and $8000 = $8000 then
S := s+’down’
else
S := s+’up’;
if KeyState and 1 = 1 then
S := S + ‘toggle on’
else
S := S + ‘toggle off’
;
ShowMessage( S );
end;
[/code]