if-Abfrage vereinfachen

[Luckie]

Ich habe hier eine ziemlich grausame if-Abfrage. Kann man die eventuell vereinfachen?

Delphi-Quellcode:

  if (Show and not FShowGrid) or (Show and FShowGrid) then
  begin
    FImageEnVect.Bitmap.Canvas.Pen.Mode := pmBlack;
  end
  else if (FShowGrid and not Show) or (not FShowGrid and not Show) then
  begin
    FImageEnVect.Bitmap.Canvas.Pen.Mode := pmNotXor;
  end;

[Gruber_Hans_12345]

ist doch :

Delphi-Quellcode:

if Show then
  begin
    FImageEnVect.Bitmap.Canvas.Pen.Mode := pmBlack;
  end
  else
  begin
    FImageEnVect.Bitmap.Canvas.Pen.Mode := pmNotXor;
  end;

... oder hab ich da was falsch interpretiert ?

[andreash]

Wie wäre es damit

Delphi-Quellcode:

if Show then
    FImageEnVect.Bitmap.Canvas.Pen.Mode := pmBlack
  else 
    FImageEnVect.Bitmap.Canvas.Pen.Mode := pmNotXor;

Edit: Semikolon gelöscht

[TeronG]

Zitat von Gruber_Hans_12345:

... oder hab ich da was falsch interpretiert ?

würd ich auch so sehen ..
evtl sogar noch n tick kürzer:

Delphi-Quellcode:

if Show 
  then FImageEnVect.Bitmap.Canvas.Pen.Mode := pmBlack;
  else FImageEnVect.Bitmap.Canvas.Pen.Mode := pmNotXor;

EDIT: zu langsam :/
EDIT2: Aber irgendwie verwundert mich diese Frage (von Luckie)

[MathiasSimmack]

Das spielt doch keine Rolle, ob du zu langsam warst oder nicht. Wichtig ist, dass es klappt. Es ist zwar off-topic, aber wenn ich mir die Ausgangslage angucke und mit dem Ergebnis vergleiche ... ... ich sehe schon einen Artikel vor mir:

Zitat:

Ich programmiere schon länger und habe schon so manche Zeile an Code geschrieben und gelesen. Aber im Laufe seiner Laufbahn als Programmierer wird man immer wieder über ein Problem stolpern, welches einen dazu veranlasst wieder etwas dazu zu lernen, auch wenn es nur etwas Banales ist wie bool'sche Operationen [...]

[Luckie]

Zitat von Gruber_Hans_12345:

ist doch :

Delphi-Quellcode:

if Show then
  begin
    FImageEnVect.Bitmap.Canvas.Pen.Mode := pmBlack;
  end
  else
  begin
    FImageEnVect.Bitmap.Canvas.Pen.Mode := pmNotXor;
  end;

... oder hab ich da was falsch interpretiert ?

So hatte ich es vorher auch, aber das hat irgendwie nicht das gemacht, was es sollte. Werde ich dann wohl noch mal probieren.

[MathiasSimmack]

Die Bedingung ist aber recht eindeutig, Micha:
if (Show and not FShowGrid) or (Show and FShowGrid) then FShowGrid kann TRUE oder FALSE sein, Show ist dagegen immer TRUE. Und anders herum:
else if (FShowGrid and not Show) or (not FShowGrid and not Show) Show ist grundsätzlich FALSE, und FShowGrid kann wieder TRUE oder FALSE sein. Wie du ja selbst gemerkt hast, kannst du die Bedingung auf Show kürzen und FShowGrid komplett wegfallen lassen. Es wäre dann natürlich interessant, ob das Fehlverhalten immer noch auftritt, und ob es überhaupt mit der Bedingung zu tun hat.

[Gruber_Hans_12345]

wäre sogar noch kürzer (aber nicht wirklich gut lesbar ... )
FImageEnVect.Bitmap.Canvas.Pen.Mode := TPenMode(integer(not Show) * integer(pmNotXor));

[MathiasSimmack]

Ich habe leider kein Delphi zum Prüfen, aber der numerische Wert von "pmBlack" ist dann wohl Null? Ja, ist er, wie eine Google-Suche zeigt.

[Luckie]

Ok, hier mal die die vollständige Routine:

Delphi-Quellcode:

procedure TDWFotoBook.PaintGrid(Show: Boolean = True);

  procedure DrawDots;
  var
    i               : Integer;
    j               : Integer;
  begin
    with FImageEnVect do
    begin
      // draw dots
      for i := 0 to Width div FGridWidth do
      begin
        for j := 0 to Height div FGridWidth do
        begin
          Bitmap.Canvas.Pixels[i * FGridWidth, j * FGridWidth] := clBlack;
        end;
      end;
      Update;
    end;
  end;

begin
  Assert(Assigned(ImageEnVect), IENIL);
  // deselect all layers, otherwise we would draw on the selected layer
  FImageEnVect.LayersCurrent := 0;
  // set pen mode
  if (Show and not FShowGrid) or (Show and FShowGrid) then
  begin
    FImageEnVect.Bitmap.Canvas.Pen.Mode := pmBlack;
  end
  else if (FShowGrid and not Show) or (not FShowGrid and not Show) then
  begin
    FImageEnVect.Bitmap.Canvas.Pen.Mode := pmNotXor;
  end;

  DrawDots;

  Self.FShowGrid := Show;
end;