Arry of Boolean = funkzt nicht

[MacGuyver]

Moin auch!

Ja, das ist doch eine StringListe. Pack das doch einfach in den String rein. An das Ende ein | (Pipe) und dann ein * für True. Da kannst du auch 0 und 1 ran hängen. Ist egal. Beim Auslesen die Zeile mit Copy(String,Pos('|',String) + 1,1) auslesen und wenn ein Stern zurück kommt, war das Ding True. Du kannst dir auch mehere Pipe-Symbole aneinander hängen. Ein paar lockere Funktionen Scheiben:

Delphi-Quellcode:

Function  PipeStrCount( aSt : String):Integer;
Function  PipeStrItem( aSt : String; aNr : Integer):String;
Function  PipeStrLongest( aSt : String):Integer;
Procedure PipeStrSetStr( Var aSt : String; aNeu : String; aNr : Integer);

Nur mal zur Inspiration. Dann kannste zweidimensional ohne Ende speichern.

Stefan