1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TForm1.FormCreate(Sender: TObject);
type TLaden=record
     Index: integer; 
     Check: byte;
      Name: string[20];
     Datum: array[1..3] of string[10];
       Ort: array[1..5] of string[20]; // Max. 5 Filialen/Strassen je Laden
       Typ: string[20];
       end;
Var i,j: integer;
      s: string;
     sz: string[2]; // steht für: string-zahl, nimmt Index(2-stellige Zahl vorne und hinten) der Textdatei auf
      F: Textfile;
      L: File of TLaden;
  Laden: array[1..40] of TLaden;
begin assignfile(F,'D:\FIL.TXT'); // Textdatei mit Läden
assignfile(L,'D:\FIL.DAT');       // Record-Datei
reset(F); rewrite(L);
i:=0;
while not eof(F) do
      begin
      readln(F,s);
      if pos('_',s)>0 then // Die Stringbehandlung evtl. etwas altmodisch, habs noch von TP :roll: 
         begin 
         i:=i+1;  
         j:=0;   // LadenName gefunden: Strassen-Zähler <j> auf Null
         Laden[i].Name:=s;
         sz:=copy(s,1,2); // Laden-Index (Zahl vorne in Textdatei)
         Laden[i].Index:=strtoint(sz);
         sz:=copy(s,length(s)-1,2); // Strassen-Index (Zahl hinten in Textdatei)
         Laden[i].Check:=strtoint(sz);
         Laden[i].Datum[1]:=DateToStr(Date); // Laden Erstellt
         Laden[i].Datum[2]:='Datum2';        // Zum Testen 'Datum2'
         Laden[i].Datum[3]:='Datum3';        // Zum Testen 'Datum3'
         repeat j:=j+1;  // Strassen einlesen
                readln(F,s);
                if pos('#',s)=0 then   // Solange Laden-Typ nicht erreicht, ist es eine Strasse
                   Laden[i].Ort[j]:=s; // hier befindet sich zwar noch der Index am Anfang der Zeile, aber erstmal egal.
                   until pos('#',s)>0; // Laden-Typ erreicht, Strassen(Laden) zu Ende
         Laden[i].Typ:=s;
         write(L,Laden[i]);
         end;
      end;
closefile(F);
closefile(L);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

procedure TForm1.FormCreate(Sender: TObject);
type TLaden=record
     Index: integer;
     Check: byte;
      Name: string[20];
     Datum: array[1..3] of string[10];
       Ort: array[1..5] of string[20];
       Typ: string[20];
       end;

Var anz,i,j,Li: integer; //anz=Anzahl(Läden), i:Zähler(Laden) j:Zähler(Strassen), Li:Listbox.ItemIndex
             L: File of TLaden;
         Laden: array[1..40] of TLaden;
        // Die folgenden Vars mit '_' habe ich global dekl., da ich auch im ListboxOnClick drauf zugreife.
        _check: array[1..40] of byte;            // Focus/Index für Strassen(Checklistbox)
         _name: array[1..40] of string[20];      // Laden
          _ort: array[1..40,1..5] of string[20]; // Orte
begin
for i:=1 to 40 do // Globale Vars initialisieren
    begin
    _check[i]:=0;
    _name[i]:='';
    for j:=1 to 5 do
        _ort[i,j]:='';
    end;
assignfile(L,'D:\FIL.DAT');
reset(L);
anz:=0; i:=0;
while not eof(L) do
      begin j:=0;
      i:=i+1;
      anz:=i;
      read(L,Laden[i]);
      _check[i]:=Laden[i].Check;
      _name[i]:=copy(Laden[i].Name,4,length(Laden[i].Name)-5);
      repeat j:=j+1;
             if _Check[i]>=10 then // Dann war diese Strasse zuletzt bearbeit worden
                begin
                Li:=i; // Weiter unten den betr. Laden und die Strasse markieren(Focus drauf)
                if Laden[i].Ort[j]<>'' then
                   _ort[i,j]:=copy(Laden[i].Ort[j],3,length(Laden[i].Ort[j])-2);
                end;
      until Laden[i].Ort[j]='';
      end;
closefile(L);

Listbox1.Clear;
for i:=1 to anz do
    Listbox1.Items.Add(_name[i]);
Listbox1.ItemIndex:=Li-1;

Checklistbox1.Clear;
j:=0;
repeat inc(j);
       CheckListbox1.Items.Add(_Ort[Li,j]);
       until _Ort[Li,j]='';
CheckListbox1.ItemIndex:=(_Check[Li-1]-10);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

    type TLaden=Record
         Name: string[20];
         Orte: array[1..5] of string[20];
         Typ: string[20];
      Betrag: array[1..4] of single;
         Summe: single;
         Check: byte;
         end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

    type TLaden=Record
         Name: string[20];
         Ort1: string[20];
         Ort2: string[20];
         Ort3: string[20];
         Ort4: string[20];
         Ort5: string[20];
      Betrag1: single;
      Betrag2: single;
      Betrag3: single;
      Betrag4: single;
         Typ: string[20];
         Summe: single;
         Check: byte;
         end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

type
  TLaden = record
    Name: string[20];
    Orte: array [1 .. 5] of string[20];
    Typ: string[20];
    Betrag: array [1 .. 4] of single;
    Summe: single;
    Check: byte;
  end;

//...

procedure TForm67.btnSaveClick(Sender: TObject);
var
  a: file of TLaden;
  Data: TLaden;
  i: Integer;
begin
  AssignFile(a, 'test.data');
  Reset(a);
  for i := 1 to 10 do
  begin
    Data.Name := 'Name' + IntToStr(i);
    Data.Orte[1] := 'Orte1' + IntToStr(i);
    Data.Orte[2] := 'Orte2' + IntToStr(i);
    Data.Orte[3] := 'Orte3' + IntToStr(i);
    Data.Orte[4] := 'Orte4' + IntToStr(i);
    Data.Orte[5] := 'Orte5' + IntToStr(i);
    Data.Typ := 'Name' + IntToStr(i);
    Data.Betrag[1] := i;
    Data.Betrag[2] := 2*i;
    Data.Betrag[3] := 3*i;
    Data.Betrag[4] := 4*i;
    Data.Summe := 100*i;
    Data.Check := 10*i;
    Write(a, Data);
  end;
  CloseFile(a);
end;

procedure TForm67.btnLoadClick(Sender: TObject);
var
  a: file of TLaden;
  Data: TLaden;
  i: Integer;
begin
  AssignFile(a, 'test.data');
  Reset(a);
  for i := 1 to 10 do
  begin
    Read(a, Data);
    ShowMessage(Data.Name);
    ShowMessage(Data.Orte[1]);
  end;
  CloseFile(a);
end;                    

1:
2:
3:
4:
5:

repeat j:=j+1;  // Strassen einlesen
  readln(F,s);
  if pos('#',s)=0 then   // Solange Laden-Typ nicht erreicht, ist es eine Strasse
    Laden[i].Ort[j]:=s; // hier befindet sich zwar noch der Index am Anfang der Zeile, aber erstmal egal.
until pos('#',s)>0; // Laden-Typ erreicht, Strassen(Laden) zu Ende