Datei auswerten

[motu]

Also mein Array ist voll, die Datei auch schon wieder zu.
nun habe ich folgenden Idee:

Delphi-Quellcode:

  if (data[17,i]>10) and (data[18,i]>10) and (data[19,i]>10) then
    if saveint=i-1 then
//  jeden werte einer spalte dieser Zeil in eine eigene liste
    saveint:=i;

    else
    saveint:=i;

Jetzt besteht das Problem, das die erste Zeile mit Werten nicht beachtet wird und ich hab grad keine Idee, wie ich, sobald ein neuer Wertblock anfängt, eine neue Liste beginne. Ich könnte ja in jedem Else-Fall den Listenindikator um eins erhöhen. dann haben alle zusammenhörenden Liste den gleich Indikator. Es ist doch bestimmt möglich leere Liste einfach wegfallen zulassen und die bestehenden einfach neu durchzunummerieren.