stringgrid-komponente

[Haegar]

ok habs mit ner eigenen zusammengebastelten version gemacht

Delphi-Quellcode:

procedure Tfrm_haupt.Speichern1Click(Sender: TObject); 
var row:byte;
    hilfliste:TStringlist;
begin
 hilfliste:=TStringlist.Create;  
  try
   begin
     for row:=1 to strgrid1.RowCount-1 do
      begin
       hilfliste.Add(strgrid1.Rows[row].CommaText);    
       hilfliste.SaveToFile(filename); 
     end;
   end;
  finally
   hilfliste.Destroy;     
  end;
end;

procedure Tfrm_haupt.Laden1Click(Sender: TObject);   
var hilfliste :TStringlist;
    row, extraabstand, i :byte;

begin
 hilfliste:=TStringlist.Create;    
  try
   begin
    hilfliste.LoadFromFile(filename); 
    strgrid1.RowCount:=hilfliste.Count+1; 
     if strgrid1.RowCount>=11 then
      frm_haupt.Height:=frm_haupt.height+((strgrid1.RowCount-10)*strgrid1.DefaultRowHeight);
    strgrid1.Height:=strgrid1.RowCount*strgrid1.DefaultRowHeight+(3+strgrid1.RowCount*1);  
     if strgrid1.RowCount>2 then
      begin
       for i:=2 to strgrid1.RowCount-1 do 
        begin
         extraabstand:=i-1;
         RadioButton[i]:=TRadioButton.Create(frm_haupt);
         RadioButton[i].parent:=self;
         RadioButton[i].Left:=384;
         RadioButton[i].width:=15;
         RadioButton[i].Top:=65+((i-1)*16)+extraabstand;
         RadioButton[i].Name:='RadioButton'+IntToStr(i);
        end;
      end;
     for row:=1 to strgrid1.rowcount-1 do
      strgrid1.Rows[row].CommaText:=hilfliste[row-1]; 
   end;
  finally
   hilfliste.Destroy; 
  end;   
end;