Kleines Problem mit Jedi-Bibliothek JclComplex

kat1 · Beiträge: 40 Win XP D6 EntPr

Hallo,

wenn ich nur mal zum Test der Bibliothek JclComplex ein kleines Projekt schreibe, etwa so

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var
  ar,ai,br,bi:float;
  zahl1,zahl2,ergebnis:TJclComplex;
begin
  ar:=StrToFloat(Edit1.Text);
  ai:=StrToFloat(Edit2.Text);
  br:=StrToFloat(Edit4.Text);
  bi:=StrToFloat(Edit5.Text);
  zahl1.Create(ar,ai);         //in diesen zwei Befehlen tritt der
  zahl2.Assign(br,bi,crPolar);  //Fehler auf
  ergebnis:=zahl1.CNewMul(zahl2);
  Edit3.Text:=ergebnis.AsString;

end;

bekomme ich beim ausführen eine exception in der unit jclcomplex.pas. :?:

Leider ist diese unit etwas größer, so dass ich sie hier nicht posten kann. Im Prinzip soll das Prog nur zwei komplexe Zahlen einlesen und anschließend multiplizieren, da ich sehen wollte, in welchem Format die Operation durchgeführt wird, allerdings tritt die Exception schon beim Zuweisen auf. Hat von Euch schon mal jemand mit dieser Bibliothek gearbeitet? Da ich noch nicht so viel Ahnung von Delphi habe, weiß ich mir langsam keinen Rat mehr. :oops:

inselberg · Beiträge: 458

markieren

Quelltext

1:
2:

zahl1:=TJclComplex.Create(ar,ai);
zahl2:=TJclComplex.Create;

versuch das mal

Moderiert von Tino: Code-Tags hinzugefügt.

_________________
hans bist du das ?

kat1 · Beiträge: 40 Win XP D6 EntPr

Hallo inselberg,

danke das scheint zu funktionieren :lol:

, aber kannst Du mir evtl. dann mal den Sinn der Assign Funktion erklären. Normalerweise sollte doch der dafür da sein, um der Variablen einen Wert zuzuweisen?

Allerdings scheint jetzt mein Befehl mit dem Multiplizieren falsche Ergebnisse zu liefern, hast Du dafür auch noch eine Erklärung?

kat1 · Beiträge: 40 Win XP D6 EntPr

Nein, Entschuldigung die Multiplikation funktioniert doch!

Danke nochmal :lol:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme