Einzelnen Beitrag anzeigen

Robert_G
(Gast)

n/a Beiträge
 
#3

Re: zugriffsverletzung bei TStrings

  Alt 14. Mai 2004, 19:12
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
  Mit Zitat antworten Zitat