Textcursor

[Mackhack]

Hallo marabu,

kannst du mir mal erklaeren was diese Zeile macht?

Zitat von marabu:

iDelta := Ord(forth) shl 1 - 1; Grüße vom marabu

Vielen Dank!

Ich habe mal eben die Zeile angetestet so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  iDelta : Integer;
  forth : Boolean;
begin
  iDelta := 0;
  forth := False;
  iDelta := Ord(forth) shl 1 - 1;
  ShowMessage(IntToStr(iDelta));
end;

Wenn forth := True dann ist das Result = 1 wenn False dann -1. Bin aber immer noch net so ganz dahintergestiegen.