Das mag ja alles sein.
Aber, ich werde das jetzt mal an deinen Code (aus dem anderen Forum) zeigen...
Delphi-Quellcode:
procedure TCircuitCalculationForm.FormCreate(Sender: TObject);
var
g: TCircuitElementGroup;
begin //Dummy-Prozedur um Funktionalität zu testen!
g := TCircuitElementGroup.Create; <-- wo wird diese Zeile freigegeben?
with g do begin
Parallel := true;
AddElement(TResistor.Create(2200));
AddElement(TCoil.Create(0.3));
AddElement(TCapacitor.Create(8E-6));
end;
with TCircuitElementGroup.Create do begin
Parallel := false;
AddElement(TCoil.Create(0.4));
AddElement(g);
with ComplexEditorFrame1 do begin
Initialize;
SetReadOnly(true);
SetPhasor(Impedance); //Ergebnis sollte 6,9113 + j248,7774 sein
end;
Free;
end;
end;
MfG
Thorsten