Deutsches Lazarusforum

Ich hatte jetzt gedacht, es liegt tatsächlich an der 0-basierten Arrayverwaltung, gerade weil die ersten drei erzeugten Objekte die Objektnummern 1..3 tragen jedoch in der myObjs_liste als Einträge 0..2 drin sind.
Aber ich habe jetzt nochmals per Debugger Schritt für Schritt den Programmablauf ...

Na dann ist es klar: Du dimensioniert das Array nur für 1 Element (inputliste[0]), greifst aber auf das 2. zu (inputliste[1]). Ein beliebter Fehler, weil die Indexnummerierung bei 0 beginnt. Verwende "anzahl_input := 2", dann sollte es gehen.

dann frag ich mich aber warum ich inputliste[1].wert ...

Na dann ist es klar: Du dimensioniert das Array nur für 1 Element (inputliste[0]), greifst aber auf das 2. zu (inputliste[1]). Ein beliebter Fehler, weil die Indexnummerierung bei 0 beginnt. Verwende "anzahl_input := 2", dann sollte es gehen.

dann frag ich mich aber warum ich inputliste[1].wert ...

Fehler:

Projekt kompilieren, Ziel: project1.exe: Exit code 1, Fehler: 1, Hinweise: 1
unit1.pas(43,3) Error: Duplicate identifier "Calc"
unit1.pas(43,3) Hint: Identifier already defined in unit1.pas at line 21


Einen Variabelname zu vergeben, welcher gleichzeitig der Name einer Funktion oder ...

Versuche doch einfach den Fehler einzugrenzen, wie marcov schon schrieb und/oder lade ein Minimalbsp. ohne Executable hier hoch. Günstig ist es alle Überprüfungen einzuschalten unter Projekt -> Projekteinstellungen -> Debuggen -> Überprüfungen (alle anschalten).

Werde ich mal probieren, Danke ...

das mit den Objekten scheint auch unerheblich, denn anscheinend funktioniert nichtmal


if (I_1=1) then calc:=-1;


innerhalb der TmyObj.calc Methode.

I_1 ist laut Debugger an der Stelle definitiv =1, jedoch wird calc nach obiger Anweisung z.B. =5689599 angezeigt.

Was für ein Unsinn!

edit ...

Leider fehlt in deinen Angaben einiges, so dass man wieder mal die berühmte Kristallkugel hervorholen muss: Was ist "myObjs_liste"? Sind alle Objekt-Instanzen ordnungsbemäß erzeugt? Falls myObjs_liste[myObjnummer].inputliste die "inputliste" von TMyObj ist, hast du "SetLength" aufgerufen, um das ...

-Criot und -CR
keine Optimierungen
COPERATORS ON (wofür eigentlich ???)
-Si, {INLINE ON}
-Sh, {$H+}
Ziel-OS Win32 und -WG (arbeite hier auf einem Win8.1 Pro 64, das TurboDelphi lief aber auf einem WinXP Pro 32, vielleicht deswegen?)

wenn ich was davon falsch habe oder nicht brauche, ich nehme gerne ...

Hallo an Alle!

Bin neu hier im Forum aber ein alter Delphianer.
(Möchte jetzt verstärkt Lazarus nutzen weil sich Emberacedero "oder so ähnlich" ja mit ihrer Produktpolitik bekanntermaßen seit Jahren selbst ins Knie schiessen, aber egal)

Folgendes:

type myrange = -10..10;

type Tconnect=record ...