Thema: Delphi TStringList gruppieren

Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#5

AW: TStringList gruppieren

  Alt 28. Sep 2011, 09:31
In Deinem Falle könnte man vllt. so etwas definieren:
Delphi-Quellcode:
Type
 tMyRecord = record
               Zeile1,
               Zeile2,
               Zeile3,
               Zeile4 : string [40];
             end;
pMyRecord = tMyRecord;
und so könnte man bsp einlesen:
Delphi-Quellcode:
var
  recpoint:pMyrecord
  Liste : tList;
...
while not eof(textdatei) do begin
  new(recpoint);
  readln(textdatei,recpoint^.Zeile1;
  readln(textdatei,recpoint^.Zeile2;
  readln(textdatei,recpoint^.Zeile3;
  readln(textdatei,recpoint^.Zeile4;
  Liste.add(recpoint);
end;
(nur so als idee, ohne Fehlerprüfung etc.)

Damit könnte man dann eine TList oder eine TObjectlist befüllen und dannSortieren und was auch immer Du vorhast machen.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat