DLL: Übergabe von Stringwerten ..

[erniepb]

Wie ist die Funktion in der DLL deklariert?

Code:

function Calculate(TransEquation: PChar; Angle : TAngleMode): TMyExtended;

und veröffentlicht mit:

Code:

exports
 Calculate;

Wie wird die Funktion im Programm importiert?

Code:

function Calculate(equation : PChar; Angle : TAngleMode): TMyExtended; external 'CalculationDLL.dll';

Wie wird die Funktion aufgerufen?
Wie wird die Variable die übergeben wird deklariert?
Wie wird die Variable die übergeben wird initialisiert?

Code:

procedure TForm1.Button1Click(Sender: TObject);
 var
  Ergebnis : TMyExtended;
 begin
  Ergebnis := Calculate(PChar(Edit1.Text),RAD);

  If Ergebnis.Defined = True Then
   Edit2.Text := FloatToStr(Ergebnis.Value)
  Else Edit2.Text := 'DNE';
 end;

und TMyExtended ist:

Code:

  TMyExtended = record
                 Defined : Boolean;
                 Value : Extended;
                end;

PS. Aber diese Fehlermeldung kommt immer nur wenn ^ in dem übergebenen PChar enthalten ist .. naja und der Fehler tritt auf bevor überhaupt die erste Zeile der Funktion Calculate bearbeitet wird .. heißt da muss dann ja irgenwie was bei der übergabe falsch laufen oder .. weil wenn ohne ^ dann funktionierts ja .. *seufz*