Hallo zusammen,
ich hätte da mal ein Problem. Ich bastele mir gerade eine Chorverwaltung. Funktioniert soweit auch, bis auf ein kleines Problem.
Ich möchte ein Formular öffnen, in dem die Aufführungen und die dort aufgeführten Werke verwaltet werden können. Dabei möchte ich alle vorhandenen Werke in eine ComboList laden.
Das passiert in folgendem Codeschnipsel :
Delphi-Quelltext
1: 2: 3: 4:
| sl := TStringList.Create; aktChor.LoadPieces(sl); cboPiece.Items.Assign(sl); sl.Free; |
In der procedure LoadPieces der Klasse aktChor passiert nun folgendes :
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:
| procedure TChor.LoadPieces(var sl: TStrings); var i,a,s: Integer; cs: TCSKlasse; st: TStueck; txt: String; begin sl.Clear; for i := 0 to CSLst.Count - 1 do begin cs := TCSKlasse(CSLst.Objects[i]); if cs.Chor = fIdx then begin s := cs.Stueck; a := SLst.IndexOf(IntToStr(cs.Stueck)); if a > -1 then begin st := TStueck(SLst.Objects[a]); txt := st.Titel + ' (' + st.Komponist+')'; sl.AddObject(txt,TObject(s)); end; end; end; end; |
Dieser Teil funktioniert soweit auch ganz gut. Im Debugger ist die StringListe sl so gefüllt, wie ich mir das gedacht habe. Wenn ich den oberen CodeTeil schrittweise durchgehe funktioniert eigentlich alles wunderbar auch der Assign auf die Combobox wird ohne Murren ausgeführt.
Bei
tritt jedoch ein ACCESS VILOATION auf.
Da es wohl keinen Sinn ergibt, das komplette Projekt zu posten, hoffe ich, daß irgendjemand von Euch eine Idee hat, woran das liegen könnte.
Danke im Voraus
mtm
Edit : Ich bin scheinbar ein wenig blind. Der Aufruf des oberen Code-Schnipsels erfolgte zu früh.