hi
ich hab ne procedure geschrieben
immer beim ersten mal, wenn ich auf einen (lokalen) TStrings zugreife, gibts einen zugriffsfehler
warum?
Delphi-Quellcode:
procedure TForm_Main.faecher_bereitschaft_save(Sender: TObject);
var
i, z:integer;
data:TStrings;
Begin
//data.Create;
//data.Clear;
//data.LoadFromFile('dummy.dat');
for i:=1 to 100 do
Begin
data.Add(inttostr(bereitschaft[i]));
end;
data.SaveToFile('bereitschaft.dat');
data.Clear;
for i:=1 to 100 do
Begin
For z:=1 to 10 do
Begin
data.Add(inttostr(faecher[i, z]));
End;
End;
data.SaveToFile('faecher.dat');
//data.Destroy;
End;
wie amn sieht hab ich schon so einiges probiert, und es wieder auskommentiert, da es nit funzte...
