StringGrid - soll keine leere Zeile schreiben

[Pump3r]

Hmm, ok schaus dir mal an:

Delphi-Quellcode:

procedure Tf_installation.BitBtn1Click(Sender: TObject);
 var
  ini         : TIniFile;
  sectionlist : tstringlist;
  i           : integer;
  x           : integer;
  wert        : string;
  _abteilung  : string;
  begin
     try
     _abteilung := StringReplace(inidateiname,'.ini','',[rfReplaceAll, rfIgnoreCase]);
    rechnername_ermitteln;
    benutzername_ermitteln;

    ValueListEditor1.InsertRow('Rechnername',_rechnername,true);
    ValueListEditor1.InsertRow('Benutzername',_benutzername,true);
    ValueListEditor1.InsertRow('Abteilung',_abteilung,true);

    x               := -1;
    sectionlist     := TStringList.Create;
    BitBtn3.Enabled := true;
    BitBtn6.Enabled := true;

    if not FileExists(ExtractFilePath(application.ExeName)+'INIs\data.ini') then
     begin
     showmessage('Quelldatei existiert nicht! [data.ini] ');
     end;

   ini := tinifile.Create(ExtractFilePath(application.ExeName)+'INIs\data.ini');
   ini.ReadSections(sectionlist);
   StringGrid1.RowCount := sectionlist.Count+1;

   for i:=0 to sectionlist.Count-1 do
     begin
     inc(x);
     wert := ini.ReadString(sectionlist.Strings[i],'abteilung','');
     if pos(_abteilung,wert) > 0 then
      //showmessage(sectionlist.Strings[i]+' -- '+wert);
      begin
       stringgrid1.Cells[0,x+1] := ini.ReadString(sectionlist.Strings[i],'NAME','<nicht gefunden>');
       stringgrid1.Cells[1,x+1] := ini.ReadString(sectionlist.Strings[i],'PFAD','<nicht gefunden>');
       stringgrid1.Cells[2,x+1] := ini.ReadString(sectionlist.Strings[i],'INFO','<nicht gefunden>');
       stringgrid1.Cells[3,x+1] := ini.ReadString(sectionlist.strings[i],'DOKUMENTATION','<nicht gefunden>');
       end;
     end;
    finally
      ini.Free;
      sectionlist.Clear;
      sectionlist.Free;
   end;
end;

Gruß Pump3r