Hi. Ich möchte aus einer Klasse mit einer Funktion Parameter (z.B. Arrays) an eine externe Klasse übergeben.
Hier meine Deklaration.
Delphi-Quellcode:
type
CMessroutinen = class(CKALResource)
private
m_ParameterA : array[1..7] of Double;
m_ParameterB : array[1..7] of Double;
m_ParameterR0 : array[1..7] of Double;
m_ThType1 : String;
m_ThType2 : String;
m_ThType3 : String;
m_PLC : Integer;
m_Messzyklus : Integer;
m_Toleranz : Double;
Alle Parameter haben dann einen Wert zugewiesen bekommen. Nun möchte ich diese mit einer Funktion übergeben:
Delphi-Quellcode:
function CMessroutinen.ParameterUebergeben(var ParameterA, ParameterB,
ParameterR0:array of Double; var ThType1, ThType2, ThType3:String;
var Toleranz:Double; var Messzyklus, PLC:Integer): boolean;
begin
ParameterA := m_ParameterA; //Hier kommt der Fehler E2008 : Inkompatible Typen
ParameterB := m_ParameterB; //Hier kommt der Fehler E2008 : Inkompatible Typen
ParameterR0:= m_ParameterR0; //Hier kommt der Fehler E2008 : Inkompatible Typen
ThType1 := m_ThType1;
ThType2 := m_ThType2;
ThType3 := m_ThType3;
Toleranz := m_Toleranz;
Messzyklus := m_Messzyklus;
PLC := m_PLC;
result := true;
end;
Wieso kann ich die Array nicht übergeben?