Spaltenweise auf TStringList zugreifen

[aaaaaaaaaa_10]

Habs hinbekommen. Also er meckert an jeder Stelle, wo Zeilenanzahl aufgerufen wird.
z.b.
if Zeilenanzahl = Sek.Count -1 then exit;

[aaaaaaaaaa_10]

Woran kann das liegen? Hab ich die Property falsch deklariert?oder etwas vergessen

[DeddyH]

Bitte nicht vor Ablauf von 24 Stunden pushen

[xZise]

Eine Zugriffsverletzung bekommt man meißtens wenn man etwas nicht erstellt hat:
Das hier geht wunderbar

Delphi-Quellcode:

Meins := TStringList.Create;
try
  // Mit "Meins" arbeiten
  // z.B. eine Zeile hinzufügen
  Meins.Add('Hallo Welt');
finally
  Meins.Free;
end;

Während das hier zur einer AV (= Accessviolatuion = Zugriffsverletzung) führt:

Delphi-Quellcode:

try
  // Mit "Meins" arbeiten
  // z.B. eine Zeile hinzufügen
  Meins.Add('Hallo Welt'); // <!--- Hier knallt es, weil "Meins" nicht erstellt wurde
finally
  Meins.Free;
end;

Ich tippe mal darauf (ausgehend von dem Codestück aus dem Post #47), dass Sek nicht erstellt wurde.
Könntest du uns vielleicht mal etwas mehr Code zeigen? Also alles bis zum Exit dürfte erstmal reichen.

MfG
xZise

[aaaaaaaaaa_10]

Ok, also bis zum xis sieht das so aus:

Delphi-Quellcode:

procedure ZehnMinTimerEvent(Sender: TObject);
var
  Sek, Min, ZwSpeicher : TStringList;
  DreiSek, ZehnMin: string;
  TabPos, Spaltenanzahl, linenum : integer;
begin
  DreiSek := extractfilepath(application.exename)+'Mom3sek_'+Kennung+'.txt';
  ZehnMin := extractfilepath(application.exename)+'Mom10min_'+Kennung+'.txt';
  TestDatei := TFileStream.Create(ExtractFilePath(application.exename)+'test.txt',fmOpenReadWrite);
  TestDatei.Seek(0, soFromEnd);
  Sek := TStringList.Create;
  Min := TStringList.Create;
  ZwSpeicher := TStringList.Create;

  try
    Sek.LoadFromFile(DreiSek);
    if Zeilenanzahl = Sek.Count-1 then exit;

Zeileananzahl habe ich als property deklariert und da wird auch irgendwo der Knackpunkt sein. Sek wurde bereits erstellt. (u.a. in #20 sichtbar)

[jaenicke]

Zitat von aaaaaaaaaa_10:

Delphi-Quellcode:

procedure ZehnMinTimerEvent(Sender: TObject);
var

Moment mal...
Das müsste doch eigentlich eine Methode einer Klasse sein, wie sonst kannst du auf die Eigenschaft Zeilenanzahl zugreifen? Und sonst ginge das auch gar nicht als Timer-Ereignis. Das kann so also eigentlich nicht der originale Code sein, wenn sich das kompilieren lässt.

[aaaaaaaaaa_10]

procedure ZehnMinTimerEvent(Sender: TObject); ach gott, nee da steht eigentlich

procedure TMomFiles.ZehnMinTimerEvent(Sender: TObject);

[jaenicke]

Ich hatte mich nur gefragt, ob du sonst beim Kopieren / Abschreiben noch andere Fehler eingebaut hast...

Denn der Quelltext sieht soweit funktionierend aus.
Da beim Zugriff auf die Property ein Fehler passiert, setze bitte einmal einen Haltepunkt auf diese Zeile, drücke wenn das Programm dort ankommt Strg + F7 und werte Self aus.
Vermutung: Das könnte nil sein.

Schau da einmal nach, bevor ich da noch viel zu schreibe, wenn es doch nicht so sein sollte.

[aaaaaaaaaa_10]

Wenn ich F7 drücke, passiert aber nix.

[jaenicke]

Strg + F7, nicht nur F7. Dann sollte, wenn das Programm am Haltepunkt angehalten hat, das Fenster zum Auswerten eines Ausdrucks angezeigt werden. Dort kannst du dann Self hineinschreiben um zu schauen was das (also der aktuelle Objektzeiger zu der Methode) für einen Wert hat.