1:
2:
3:
4:
5:
6:

Delphi                      Java
=                             ==
:=                            =
OR                            ||
AND                           &&
inc(variable)             variable++                    

1:

if [Ereignis] then inc(Variable)                    

1:

if RadioButton4.Checked = true then inc(Fragen);                    

1:

if RadioButton4.Checked then inc(Fragen);                    

1:

Variable := Variable - 1;                    

1:
2:
3:

if Form6.Fragen := -2 then label4.Caption := '0' AND label5.Caption := '2'
elseif Form6.Fragen := 0 then label4.Caption := '1' AND label5.Caption := '1'
else Form6.Fragen := 2 then label4.Caption := '2' AND label5.Caption := '0'                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

if Form6.Fragen = '-2' then 
begin
  label4.Caption := '0';
  label5.Caption := '2';
end
else if Form6.Fragen = '0' then 
begin
  label4.Caption := '1';
  label5.Caption := '1';
end
else if Form6.Fragen = '2' then 
begin
  label4.Caption := '2';
  label5.Caption := '0';
end;                    

1:
2:

a = b  <-> a == b
a := b <-> a = b                    

1:
2:
3:
4:
5:
6:

VOID SetView(HWND hWndListView, DWORD dwView) { 
  DWORD dwStyle = GetWindowLong(hWndListView, GWL_STYLE); 
  if ((dwStyle & LVS_TYPEMASK) != dwView)
    SetWindowLong(hWndListView, GWL_STYLE,
    (dwStyle & ~LVS_TYPEMASK) | dwView);
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure SetView(hWndListView: HWND; dwView: dword);
var
  dwStyle : dword;
begin
  dwStyle := GetWindowLong(hWndListView,GWL_STYLE);
  if(dwStyle and LVS_TYPEMASK <> dwView) then
    SetWindowLong(hWndListView,GWL_STYLE,
    (dwStyle and not LVS_TYPEMASK) or dwView);
end;                    

1:

    (dwStyle && !LVS_TYPEMASK) || dwView);