Was nervt euch so, während der Programmierung oder so allgemein

[rollstuhlfahrer]

was mich bei einem Projekt genervt hat, ist, dass Delphi/Pascal zwar die Fähigkeit von goto bietet, man diese aber nicht nutzen soll. da kommen dann Strukturen wie folgende raus:

Delphi-Quellcode:

  // Anti-GOTO-Struktur
  if ScanRows then
  begin
    if ScanCols then
    begin
      if ScanFields then
      begin
        Result := true;
      end
      else
      begin
        Result := false;
      end;
    end
    else
    begin
      Result := false;
    end;
  end
  else
  begin
    Result := false;
  end;

Mit einem einfachen goto wäre das viel einfacher gegangen. Und auch viel leserlicher und schöner:

Delphi-Quellcode:

  
procedure MitGoto();
// ...
begin
  //GOTO-Struktur
  if not ScanRows then
  begin
    Result := false;
    goto ende;
  end;

  if not ScanCols then
  begin
    Result := false;
    goto ende;
  end;

  if ScanFields then
  begin
    Result := false;
    goto ende;
  end;

  :ende
end;

Bernhard

PS: Nach mehrfachem Umbau sieht der Ablauf völlig anders aus und man braucht auch kein Goto mehr.

[himitsu]

Result := ScanRows and ScanCols and ScanFields; .
was aber nicht bedeutet, daß ich was gegen GOTO hätte (nutze es ja manchmal selber)

[Mithrandir]

Dennoch ist der Vorschlag von himi der Bessere, auch wenn man nix gegen GOTO hat...

[Schorschi5566]

Ist aber falsch.

Result := ScanRows and ScanCols and not ScanFields;
Ach nee, die goto-Procedure ist nur anders.

[himitsu]

Nein, der Anti-GOTO-Struktur nach ist meines richtig.

Delphi-Quellcode:

// Anti-GOTO-Struktur
if ScanRows then
begin
  if ScanCols then
  begin
    if ScanFields then
      Result := true;

aber du hast, dem MitGoto nach, auch nicht unrecht,
denn wie ich grad seh, stimmen Anti-GOTO und MitGoto nicht überein.

[rollstuhlfahrer]

Zitat von himitsu:

denn wie ich grad seh, stimmen Anti-GOTO und MitGoto nicht überein.

Fällt mir auch auf: es fehlt ein Result := true; Bernhard

[Helmi]

Hallo,

jetzt muss ich auch mal meinen Senf dazugeben:
Was mich momentan nervt ist, dass ich mir die unterschiedlichen Syntaxe nicht merken kann.

Zu Hause programmier ich Delphi, da geht ne Zuweisung mittels ":=" und eine Abfrage mittels "=",
in der Arbeit programmier ich CNC-Programme, da ist eine Zuweisung ein "=" und eine Abfrage "=="

Ständig überseh ich das zweifache Gleichzeichen

[himitsu]

Daß passiert mit mit PHP<>Delphi auch manchmal.
Schön daß Delphi alle Fehler entdeckt, aber PHP nur das := bemängelt.

[Helmi]

Ich habe das Problem dass es für CNC-Programmierung keinen Editor gibt.
Das macht man mit einem ganz normalen Editor (Notpad, ...) und man merkt es erst, wenn man das Programm in der Maschine ablaufen lässt und dann der Interpretor einem die Fehlermeldungen um die Ohren haut

[himitsu]

Wenn man etwas cool fände, grade hätte benutzen wollen und es das leider nicht gibt.

Gernierische Property fänd ich grade sooooooo cool.

Delphi-Quellcode:

TMyClass = class
  function  getter<typ>: typ;
  procedure setter<typ>(const value: typ);
  property  prop<typ>: typ read getter<typ> write setter<typ>;
end;