Endlich !!
Habs herausgefunden!
Delphi-Quellcode:
SetLength(MitarbeiterNamen, anzAktiveMitarbeiter-1);
qryMitarbeiter.First;
while not qryMitarbeiter.Eof do
begin
MitarbeiterNamen[i] := (qryMitarbeiterNAME.AsString + ' ' + qryMitarbeiterVORNAME.AsString);
inc(i);
qryMitarbeiter.Next;
end;
Delphi-Quellcode:
// KORREKT
SetLength(MitarbeiterNamen, anzAktiveMitarbeiter)
Kann mir jemand erklären warum ich hier keine
exception bekommen habe ?
Er versucht einen String in den MitarbeiterNamen[i] einzutragen. Das Array war zu klein mit dem -1. Da hätte er doch motzen müssen wenn das Array zu klein ist und somit nicht über den index zugreifen kann.
Mfg Int3g3r