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;