Spaltenweise auf TStringList zugreifen

[aaaaaaaaaa_10]

Dachte ich auch,aber dadurch dass das ja ein TimerEvent ist, wird das doch immer aktualisiert bevor ich das prüfen kann,oder?

[hoika]

Hallo,

du sollst es ja auch im TimeEvent prüfen.
Gleich als 1. Code.
Hat sich nix geändert Exit


Heiko

[aaaaaaaaaa_10]

Zitat:

du sollst es ja auch im TimeEvent prüfen.
Gleich als 1. Code.

Aber da weiß ich ja die Zeilenanzahl noch nicht, weil die ja erst im Laufe des Codes aus

Delphi-Quellcode:

 Sek.LoadFromFile(DreiSek);

verwendbar gemacht wird. Blick net durch.

[aaaaaaaaaa_10]

Weiß niemand Rat?

[jaenicke]

Ja, du lädst die Datei und wenn die Anzahl gleich ist, dann gehst du raus... (finally wird nach Exit übrigens auch ausgeführt)

Alternativ müsstest du die Dateigröße selbst bestimmen, dann bräuchtest du erst gar nix zu laden.

[aaaaaaaaaa_10]

So?

Delphi-Quellcode:

var Zeilenanzahl, linenum : integer;
begin
   try
      Sek.LoadFromFile(DreiSek);
      linenum := Sek.Count;
      if Zeilenanzahl = linenum then exit;

      Zeilenanzahl := Sek.Count-1;
              .......
   finally ...
   end;
end;

[jaenicke]

Naja, fast...
Du weist linenum (dem neuen Wert) Sek.Count zu, der alte jedoch (Zeilenanzahl) hatte vorher den Wert Sek.Count - 1 bekommen.

Fazit:
Der Vergleich wird dann wahr, wenn eine Zeile in der Datei gelöscht wurde... ;-)

Lösung:

Delphi-Quellcode:

var Zeilenanzahl, linenum : integer; 
begin 
   try 
      Sek.LoadFromFile(DreiSek); 
      if Zeilenanzahl = Sek.Count - 1 then
        Exit; 

      Zeilenanzahl := Sek.Count - 1; 
              ....... 
   finally ... 
   end; 
end;

// EDIT:
Wobei ich schlicht das - 1 dort ganz weglassen würde...

// EDIT2:
Und Zeilenanzahl muss eben wie gesagt als Feld oder Eigenschaft des Formulars deklariert sein, nicht als lokale Variable (die bei jedem Aufruf wieder verworfen wird)...

[aaaaaaaaaa_10]

Mit :

Delphi-Quellcode:

type
  TMomFiles=class(TForm)
  private
   FZeilenanzahl : integer;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
     ......
    property Zeilenanzahl: Integer Read FZeilenanzahl Write FZeilenanzahl;
  end;

.......

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

gibt es eine Zuzgriffsverletzung.

[jaenicke]

Dann musst du schauen wo.

[aaaaaaaaaa_10]

Wie finde ich denn die Adresse, die in der Zugriffsverletzung geg ist?