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

Assignfile(afile, 'a1.sta'); Rewrite(afile); j := 0;
  repeat
    j := j+1;
    datensatz.satzart := stringgrid1.cells[0,j];
    datensatz.kstb    := stringgrid1.Cells[1,j];
    datensatz.ksta    := stringgrid1.Cells[2,j];
    datensatz.kstbez  := stringgrid1.Cells[3,j];
    datensatz.ikosten := strtofloat(stringgrid1.Cells[4,j]);
    datensatz.skosten := strtofloat(stringgrid1.Cells[5,j]);
    datensatz.datum   := stringgrid1.Cells[6,j];
    datensatz.sonst   := stringgrid1.Cells[7,j];
    write(afile, datensatz);
  until j = stringgrid1.rowcount-1;
  closefile(afile);
  showmessage('Es wurden ' + inttostr(j) + ' Datensätze geschrieben');

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

Type  Satz  =  Record
                 satzart  : String [3];
                 kstb     : String [2];
                 ksta     : String [3];
                 kstbez   : String [21];
                 ikosten  : Real;
                 skosten  : Real;
                 datum    : String [6];
                 sonst    : String [45]
               End;