wie kann man globale Flags in eine Rechenoperation wandeln?

[DeddyH]

Du kannst Typen im private-Abschnitt deklarieren? Das war mir neu und funktioniert bei mir auch nicht.

[Muetze1]

Zitat von DeddyH:

Du kannst Typen im private-Abschnitt deklarieren? Das war mir neu und funktioniert bei mir auch nicht.

Ab BDS2006 mindestens, warscheinlich schon ab D2005. Mit deinem D7 und meinem D5 geht sowas noch nicht.

[DeddyH]

Ahja, wieder was dazugelernt, Danke.

[juergen]

@ Muetze1,
wenn ich bei mir unter Delphi 2007 die Type-Deklaration von TMyRec in den "private" Abschnitt rein setze, bekomme ich aber die Fehlermeldung, dass TMyRec nicht deklariert wäre...
Wenn ich es "standardmäßig" wie im Beispielcode mache, funktioniert es.
Oder muss ich in meiner Delphiversion erst irgendeinen Compiler-Schalter setzen?

Grüße
Jürgen

[Muetze1]

Zitat von juergen:

@ Muetze1,
wenn ich bei mir unter Delphi 2007 die Type-Deklaration von TMyRec in den "private" Abschnitt rein setze, bekomme ich aber die Fehlermeldung, dass TMyRec nicht deklariert wäre...
Wenn ich es "standardmäßig" wie im Beispielcode mache, funktioniert es.
Oder muss ich in meiner Delphiversion erst irgendeinen Compiler-Schalter setzen?

Grüße
Jürgen

Aber der Compiler meckert ja nicht im private Abschnitt rum, sondern in deiner Funktion DoCalc. Diese ist keine Methode und kann somit nicht die Typen der Klasse von Haus aus nutzen. Wenn, dann musst du die Klasse vor den Typ setzen, wenn du dich ausserhalb der Methoden der definierenden Klassen befindest. In diesem Falle wirkt die Deklaration wie ein namespace.

Und wenn du es im private Abschnitt definierst, dann soll diese Deklaration auch private sein. Du willst sie aber außerhalb der Klasse in doCalc nutzen. Somit entweder public oder du nutzt das friend-Prinzip aus, da du ja mit private und nicht strict private arbeitest.

Ich würde dir aber eigentlich eher raten die Funktion zu einer Methode zu wandeln.

Die Lösung unter Nutzung des friend-Verhaltens:

Delphi-Quellcode:

function doCalc(const Arr: array of TForm1.TMyRec; var Ergebnis: Integer): Boolean;
var
  i: Integer;
begin
  Result := false;
  Ergebnis := 0;
  if Length(Arr) < 1 then
    Exit;
  //Operator des 1. Elements wird ignoriert
  Ergebnis := Arr[Low(Arr)].Zahl;
  //die folgenden Elemente werden je nach Wert von Calc_Operation addiert oder subtrahiert
  for i := Succ(Low(Arr)) to High(Arr) do
  begin
    if Arr[i].Calc_Operation = opAdd then
      Inc(Ergebnis, Arr[i].Zahl)
    else if Arr[i].Calc_Operation = opSub then
      Dec(Ergebnis, Arr[i].Zahl)
  end;
  Result := True;
end;

[juergen]

@Muetze1,
Ahhhh, Danke für die ausführlichen Erklärungen!
Die Wandlung der Funktion in eine Methode ist ein guter Vorschlag!

schöne Grüße aus Dortmund nach Rostock!
Jürgen