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:

procedure TForm1.ED_saveChange(Sender: TObject);      //Tabelleninhalt speichern
var
savecounter:integer;
begin
  SD_File.FileName:=(ED_x.text);  

   if SD_File.Execute then
       begin
        savecounter:=1;     
        savefile.Clear;       
          while savecounter < counter+1 do           
            begin
                case RG_save.ItemIndex of  
                    0:begin   
                        savefile.Add(SG_List.Cells[0,savecounter] + ' ' + SG_List.Cells[1,savecounter] + ';' + SG_List.Cells[2,savecounter]);
                      end;
                    1:begin  
                        savefile.Add(SG_List.Cells[1,savecounter] + ';' + SG_List.Cells[2,savecounter]);
                      end;
                    2:begin  
                        savefile.Add(SG_List.Cells[1,savecounter]);
                      end;
                    3:begin  
                        savefile.Add(SG_List.Cells[2,savecounter]);
                      end;
                end;
              savecounter:=savecounter+1;
            end;

        savefile.SaveToFile(SD_File.FileName);
        ED_save.Text:=SD_File.FileName;

       end;
end;