Eigene Fehlercodes

[Sharky]

So kann man sich die Codes in einem Label ausgeben.
Im Edit einfach eine Zahl eingeben.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  bit29 =  1 SHL 28;
var
  myError : Integer;
begin
  myError := StrToInt (Edit1.Text);
  myError := myError OR bit29;
  Label1.Caption := IntToStr (myError);
end;

Nachtrag

Oder gleich in die Unit aufnehmen:

Delphi-Quellcode:

const
  bit29 = 1 SHL 28;
  myError1 = 1 OR bit29;
  myError2 = 2 OR bit29;
  myError3 = 3 OR bit29;
  .
  .