Wie erzeugt man eine Instanz einer Klasse????
Delphi-Quellcode:
var
i, z: Integer;
// lData: TStrings;
begin
with TStringList.Create do
try
LoadFromFile('dummy.dat');
for i := 1 to 100 do
Add(IntToStr(Bereitschaft[i]));
SaveToFile('Bereitschaft.dat');
Clear;
for i := 1 to 100 do
for z := 1 to 10 do
Add(IntToStr(Faecher[i, z]));
SaveToFile('faecher.dat');
finally
Free;
end;
end;
Nebenbei, es war auch keinerlei Ressourcenschutzblock vorhanden
Nachtrag: irgendwie bockt mein Source formatter