Scheint doch an einen Parameter zuliegen und zwar an ein Record das im Hauptformular Global ist und sich sonst auch immer an anderen Procedure Funktionen uebergeben laesst.
Und ich bekomme die Zugriffsverletzung schon beim begin und ich vermute er mag TProjekte nicht.
Delphi-Quellcode:
procedure auswertung_dat_init(Anzahl: TGroesse; Projekte: TProjekte;
var Auswertung: TAuswertungDat);
var
i: Integer; // Durchlauf Projekt erstemal
j: Integer; // Durchlauf Projekt zweitesmal
y: Integer; // Durchlauf Projekt drittesmal
begin
// Setzte die Anzahl der Projekte
// in der Auswertung.
try
//setLength(Auswertung, Anzahl);
except on EOutOfMemory do Showmessage('Nicht Genuegend Speicher fuer die Auswertung Vorhanden.');
end;
{for i := 0 to Anzahl - 1 do
begin
setLength(Auswertung[i], Projekte[i].AnzDateien);
for j := 0 to Projekte[i].AnzDateien - 1 do
begin
setLength(Auswertung[i][j], Anzahl);
for y := 0 to Anzahl - 1 do
begin
setLength(Auswertung[i][j][y], Projekte[y].AnzDateien);
end;
end;
end; }
end;