EXCEPTION EAccessViolation beim füllen eines StringGrid

[Henni]

es geht darum commaseparated-values (*.CSV) in ein StringGrid zu schreiben. leider tritt dabei ein falscher fehler auf. das programm läuft aber nach weg-klicken der fehlermeldung weiter und das resultat stimmt auch. der fehler tritt leider auch bei kleinen datein (1000byte) auf. achja ... danach gibt es noch eine "Zugriffsverletzung".

Wäre schön, wenn mir jemand helfen könnte ! hier nochmal der code:

Code:

procedure TForm1.Button2Click(Sender: TObject);
var f1, f2: textfile;
    l1, l2: string;
    p1, p2: PChar;
    t: string;
    a: char;
    i, c, r: integer;
begin
  AssignFile(f1, pfad + s2);  //s1 und s2 sind die dateinamen
  AssignFile(f2, pfad + s1);
  Reset(f1);
  Reset(f2);
  r:= 0;
  while not eof(f1) do  // zeilenweises lesen der datei
  begin
    readln(f1, l1);
    StrPCopy(p1, l1);
    t:= '';
    c:= 0;
    for i:= 0 to strlen(p1) do
    begin
      if (p1[i]='|') or (p1[i]=';') then    // seperator gefunden ?
      begin
        StringGrid2.Cells[c, r]:= t;
        t:= '';
        inc(c);
      end else
      begin
        a:= p1[i];
        t:= t + a;
      end;
    end;
    inc(r);
    StringGrid2.RowCount:= StringGrid2.RowCount + 1;
  end;
  CloseFile(f1);
  CloseFile(f2);
end;

Vielen Dank im voraus !
Henni

[Christian Seehase]

Moin Henni,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Um die fehlerhafte Stelle zu lokalisieren könntest Du mal auf den Anfang der Routine einen Breakpoint setzen, und dann im Einzelschritt durchgehen. Am Besten natürlich mit einer kleinen Datei.

Tritt der Fehler ein- oder mehrfach auf?

[Henni]

Also die Routine läuft sauber durch. Der Fehler tritt beim verlassen von "Button2Click" auf (wenn ich das richtig interpretiere) der debugger geht auf sobald die aktuelle zeile auf "end;" steht
das StringGrid ist zu diesem Zeitpunkt noch nicht angezeigt worden ...
es wird erst gezeichnet, wenn ich die Fehlerfenster zu mache - eventuell liegt da das Problem.

Wie kann man das gesamte StringGrid in der Überwachung ausgeben lassen ?

Wieviel Speicher wird standardmäßig für ein StringGrid freigehalten ?
(die Dateien, die reinschreiben will sind bis 1MB groß)

Danke


grüße
Henni

[Daniel B]

Hallo,

vertausch dochmal die zwei Zeilen.
CloseFile(f1);
CloseFile(f2);

Grüsse, Daniel :hi:

[Henni]

Das ist nicht das Problem !
Habe das zweite File schon rausgenommen und
trotzdem......


Dank
Henni