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:

 ini:=TIniFile.Create(Filename);
//...
 For zeile:=0 to StringGrid_Leistungsbaum.RowCount-1 do
  Begin
   Ini.WriteString(Baum,InttoStr(zeile),StringGrid_Baum.Cells[0,zeile] + ';' +
                 StringGrid_Baum.Cells[1,zeile] + ';' +
                 StringGrid_Baum.Cells[2,zeile] + ';' +
                 StringGrid_Baum.Cells[3,zeile] + ';' +
                 StringGrid_Baum.Cells[4,zeile] + ';' +
                 StringGrid_Baum.Cells[5,zeile] + ';' +
                 StringGrid_Baum.Cells[6,zeile] + ';' +
                 StringGrid_Baum.Cells[7,zeile] + ';' +
                 StringGrid_Baum.Cells[8,zeile] + ';' +
                 StringGrid_Baum.Cells[9,zeile] + ';' +
                 StringGrid_Baum.Cells[10,zeile] + ';' +
                 StringGrid_Baum.Cells[11,zeile] + ';' +
                 StringGrid_Baum.Cells[12,zeile] + ';' +
                 StringGrid_Baum.Cells[13,zeile] + ';' +
                 StringGrid_Baum.Cells[14,zeile] + ';' +
                 StringGrid_Baum.Cells[15,zeile] + ';' +
                 StringGrid_Baum.Cells[16,zeile] + ';' +
                 StringGrid_Baum.Cells[17,zeile] + ';' +
                 StringGrid_Baum.Cells[18,zeile] + ';' +
                 StringGrid_Baum.Cells[19,zeile] + ';;' +
                 StringGrid_Baum.Cells[20,zeile] + ';' +
                 StringGrid_Baum.Cells[21,zeile] + ';;;;' +
                 StringGrid_Baum.Cells[22,zeile] + ';;;;;;;' +
                 StringGrid_Baum.Cells[23,zeile] + ';;' +
                 StringGrid_Baum.Cells[24,zeile] + ';;' +
                 StringGrid_Baum.Cells[25,zeile] + ';' +
                 StringGrid_Baum.Cells[26,zeile]);

  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

ini := TIniFile.Create(OpenDialog1.FileName);
    try
//...
  For zeile:=1 to StringGrid_Baum.RowCount do
   Begin
    //Parsen der Zeilen
    startPos:=1;
    buffer:=Ini.ReadString('Baum',IntToStr(zeile),';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;');
    //ShowMessage(IntToStr(length(buffer)));
    //In Spalte 0 kommt erster Wert
    spalte:=0;
    For i:=0 to 38 do
     begin
       endPos := PosEx(';',buffer,startPos);
       IF endPos=0 then endPos:=length(buffer)+1;
       If (i=0) OR (i=1) OR (i=2) OR (i=3) OR (i=4) OR (i=5) OR (i=6) OR (i=7) OR (i=8) OR (i=9) OR (i=10) OR (i=11) OR (i=12) OR (i=13) OR (i=14) OR (i=15) OR (i=16) OR (i=17) OR (i=18) OR (i=19) OR (i=21) OR (i=22) OR (i=26) OR (i=33) OR (i=35) OR (i=37) OR (i=38) then
        begin
          StringGrid_Baum.Cells[spalte,zeile]:=copy(buffer,startPos,endPos-startPos);
          inc(spalte);
        end;
       startPos:=endPos+1;
     end;
    end;