1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

//Fensterfunktion zur Message-Bearbeitung
LRESULT CALLBACK RueckWndProc(HWND hWnd, UINT message, WPARAM wParam,
LPARAM lParam)
{
   WORD nummer, status;
   LONG ret = 0;
   if(message == msgApparaat) // Message von Apparaat
   {
      switch(wParam)
      {
         case CLA_AKTIV: // Apparaat meldet sein Fensterhandle
           hApparaat = (HWND) lParam;
           ApparaatAusgabe(CLA_ANMELDUNG, (WORD) hApparaatMsgWnd);
           break;

         case CLA_LOK_SPEEDINFO: // geschwindigkeit geändert
           nummer = HIWORD(lParam);
           status = LOWORD(lParam);
           int lokRicht = status & 0x8000 ? LR_VOR : LR_RUECK; //
Fahrrichtung
           status = status & 0x7FFF;
           // ... Auswertung der Geschwindigkeit
         // ... alle anderen Aktionen auswerten
       }
  }

  else
    ret = DefWindowProc(hWnd, message, wParam, lParam);
 return ret;
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function RueckWndProc(hWnd: HWND; Message: Cardinal; wParam: WPARAM, lParam: LPARAM): LRESULT;
var
  nummer, status: Word;
  lokRichtung: Integer;
begin
  result := 0;
  if (Message == msgApparaat) then begin
    case wParam of
      CLA_AKTIV: begin
        hApparaat := HWND(lParam);
        ApparaarAusgabe(CLA_ANMELDUNG, WORD(hApparaatMsgWnd));
      end;
      CLA_LOK_SPEEDINFO: begin
        nummer := HiWord(lParam);
        status := LoWord(lParam);
        lokRichtung := status and $8000 mod LR_VOR / LR_RUECK; //":" ist gleich "/" ?!
        status := status and $7FFF;
      end;
    end;
  end else result := DefWindowProc(hWnd, message, wParam, lParam);
end;                    

1:

int MyResult = a ? b : c;                    

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

var
  MyResult: Integer;
begin
  MyResult := IfThen(a, b, c);
// oder:
  if a then
    MyResult := b
  else
    MyResult := c;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function RueckWndProc(hWnd: HWND; AMessage: Cardinal; wParam: WPARAM; lParam: LPARAM): LRESULT;
var
  nummer, status: Word;
  lokRichtung: Integer;
begin
  result := 0;
  if (AMessage = msgApparaat) then begin
    case wParam of
      CLA_AKTIVE: begin
        hApparaat := HWND(lParam);
        ApparaarAusgabe(CLA_ANMELDUNG, WORD(hApparaatMsgWnd));
      end;
      CLA_LOK_SPEEDINFO: begin
        nummer := HiWord(lParam);
        status := LoWord(lParam);
        if (status and $8000) <> 0 then //Anmrk.: Boolean(status and $8000) wäre die exakte Entsprechung ;-)
          LR_VOR
        else
          LR_RUECK;
        status := status and $7FFF;
        // ... Auswertung der Geschwindigkeit
        // ... alle anderen Aktionen auswerten
      end;
    end;
  end
  else
    result := DefWindowProc(hWnd, AMessage, wParam, lParam);
end;                    

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

var i: Integer;

i := 0;
if i then
  Caption := 'ja'
else
  Caption := 'nein';