mysteriöse EAccessViolation

[BrainCode]

Ich habe ein ziemlich nerviges Problem: Bei einigen Programmen passiert es, dass eine AccessViolation auftritt, nachdem der Code der Prozedur abgearbeitet ist. Wenn ich dieses Programm auf Nailor's Rechner ausführe, zeigt mir Delphi eine ordentliche Fehlermeldung am richtigen Zeitpunkt inklusive Syntax-Highlighting an, mit Hilfe derer ich dann den Fehler beseitigen kann.
Seit ich diesen Fehler das erste Mal beobachtete, habe ich Windows einmal komplett neu installiert, aber der Fehler ist nicht weg. Ich dachte eigentlich, der Fehler würde von einer fehlerhaften Compilereinstellung kommen, aber auch das Löschen aller Dateien im Programmordner außer *.dpr *.pas *.dfm *.res half nichts.

[Gollum]

Hallo,

wie sieht der Code aus, der den Fehler verursacht?

[czapie]

Hallo,

wir haben bei uns im Info-Lk ja auch so ab und zu unsere Probleme, aber so eine Zugriffsverletzung kommt oft von irgendeiner Überlagerung von irgendwelchen Variablen oder Objektattributen.
Nenn mal die Variablen einfach anders, wenns geht, ich weiß klingt blöd, hat aber seltsamer schon mal geklappt ???

Czapie.

[BrainCode]

Mein Code ist folgender:

Code:

const
  count = 1024;
var
  datei: tfilestream;
  buffer: string;
  r: longint;
begin
  if opendialog1.Execute then begin
    datei := tfilestream.Create(opendialog1.FileName,fmopenread);
    setlength(buffer,count);
    r := datei.Read(buffer,count);
    memo1.Text := buffer;
  end;
end;

Durch Auskommentieren habe ich bemerkt, dass der Fehler in der Zeile, die mit "r :=" anfängt, liegt, die Fehlermeldung bekomme ich aber erst angezeigt, nachdem die komplette Prozedur abgearbeitet ist, auch im Einzelschrittmodus mit F7.

[Daniel B]

Hi,

erstens, was ist "r"?
Und hast Du was grösseres vor, ausser eine Datei in eine Memo zu laden?

Grüsse, Daniel

[BrainCode]

r hat die Deklaration r: longword, hab ich aus Versehen aus dem Posting gelöscht.
Das Einlesen der Daten soll noch in einen Loop, weil ich eine ganze Datei einlesen will, aber nach dem ersten Auftritt des Fehlers hab ich die Funktion erstmal zusammengekürzt.

[jbg]

Ändere

Zitat:

r := datei.Read(buffer,count);

mal in
r := datei.Read(buffer[1],count); um.

[Gollum]

Hallo,

Code:

  datei := tfilestream.Create(opendialog1.FileName,fmopenread); 
  --> setlength(buffer,count);

wo wird Count initialisiert, bzw. welchen Wert hat die Variable? Wenn Count<0 dann kann ich mir durchaus vorstellen, dass dann Read fehlschlägt.

Ausserdem ist per Definition der Rückgabewert von Read ein LongInt. Ändere die Variable r entsprechend.

[Chewie]

Zitat von Gollum:

wo wird Count initialisiert, bzw. welchen Wert hat die Variable? Wenn Count<0 dann kann ich mir durchaus vorstellen, dass dann Read fehlschlägt.

Schau mal in den const-Abschnitt: count hat den Wert 1024.

[Luckie]

Also wenn du nichts größeres mit der Datei vor hast, außer im Memo anzeigen oder editieren, dann nimm doch:
Memo1.Lines.LoadfromFile('c:\Test.txt');