StringGrid Zeilen löschen

[DeddyH]

Delphi-Quellcode:

for i := 0 to FileListBox1.Items.Count - 1 do
  begin
   sl1.LoadFromFile(FileListbox1.Items[i]);
   
    for x := Pred(sl1.Count) downto 0 do //rückwärts, sonst Bumm
     begin
      if ((sl1[x]) = '') then
       begin
        sl1.Delete(x);
       end;
     end;
   sl2.AddStrings(sl1);
  end;