Moin. Ich schreibe mir gerade eine Klasse zum einlesen und verarbeiten von
csv-Files. Nun kommt es bei einer Testdatei (bei einer anderen tritt der Fehler nicht auf) zu einer Zugriffsverletzung bei "s.Free"
content ist deklariert als ARRAY of TStrings;
Delphi-Quellcode:
procedure TCsvDB.LoadFromFile(const fname: string);
var
s : TStrings;
i: Integer;
begin
try
s := TStringList.Create;
s.LoadFromFile(fname);
Header.Delimiter := ';';
Header.StrictDelimiter := true;
Header.DelimitedText := s[0];
headerCount := header.Count;
lineCount := s.Count - 1;
ShowMessage (IntToStr(linecount));
setlength(Content,lineCount);
showmessage ('setlength');
for i := 1 to lineCount do
begin
Content[i] := TStringList.Create;
Content[i].Delimiter := ';';
Header.StrictDelimiter := true;
Content[i].DelimitedText := s[i];
end;
finally
s.Free;
end;
end;
Wäre nett wenn mir jemand helfen könnte.
Gruß
tr909