Удалить пустую строку созданную StringList-ом

[Shouldercannon]

Написал

...
var
  Form1: TForm1;
  B: TStrings;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
B := TStringList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
B.Text := Memo1.Text;
  {Удаление пустот}
  for i := B.Count - 1 downto 0 do
    if '' = trim(B[i]) then
      B.Delete(i);
        Memo2.Text := B.Text;
          Memo1.Clear;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
B.Free;
end;

В StringList удаляются все пустые строки, созданные в Memo1, но добавляется одна по завершению чистки в конец текста. Помогите пожалуйста от неё избавиться.

[Vikenty]

код B.delete(B.count)

[Shouldercannon]

B.Text := (RichViewEdit1.GetSelText);
  {Удаление пустот}
  for i := B.Count - 1 downto 0 do
    if '' = trim(B[i]) then
      B.Delete(i);
        B.Delete(B.Count);

Сколько строк c ntrcnjv, столько в ошибке List index out of bounds число.
Две строки = List index out of bounds (2).

[bitSoft]

Сообщение от Shouldercannon

B.Text := (RichViewEdit1.GetSelText);
  {Удаление пустот}
  for i := B.Count - 1 downto 0 do
    if '' = trim(B[i]) then
      B.Delete(i);
        B.Delete(B.Count);

Сколько строк c ntrcnjv, столько в ошибке List index out of bounds число.
Две строки = List index out of bounds (2).

neznayiu chio prishlo tebe v golovu, no eta j narmalino oshibka
Rabochii COD :

  for i := B.Count - 1 downto 0 do
    if ' ' = trim(B[i]) then
       B.Delete(i);

zachem tebe eto? : B.Delete(B.Count);
Ano udaleaet paslednuyiu stroku vsegda , ne oshobka v tom shto ti ne postavil - 1, B.Delete(B.Count-1);

[Shouldercannon]

if ' ' = trim(B[i]) then

это нужно. Нельзя так

B.Delete(B.Count - 1)

если строка одна, то она удалиться, если две, то только первая пройдёт.

[Lemo]

type
  Tgr=class(Grids.TCustomGrid)
end;

 Tgr(gr_mar).DeleteRow(i);

while i<gr_pl.RowCount do
 begin
 If (length(gr_pl.Cells[0,i])=0)     then
  begin
  Tgr(gr_pl).DeleteRow(i);
  dec(i);
  end;
  inc(i);

  end;

гг...

[Serge_Bliznykov]

Shouldercannon
так работает TStringList...

попробуйте сделать так:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  B.Text := Memo1.Text;
  {Удаление пустот}
  for i := B.Count - 1 downto 0 do
    if '' = trim(B[i]) then
      B.Delete(i);
  if length(B.Text)>2 then
    Memo2.Text := Copy(B.Text,1,length(B.Text)-2);
  else
    Memo2.Text := B.Text;
  Memo1.Clear;
end;

[Shouldercannon]

Спасибо всем за уделённое внимание и помощь. Лучшим способом решения данной пролемы мне показался вариант Serge_Bliznykov

[Shouldercannon]

Когда сохраняешь содержимое TStringList в файл, то в конце этого файла всегда присутсвует пустая строка. Как от неё избавиться, чтобы после сохранения содержимого TStringList её не было?
Строки бобавляю так

      TSL := TStringList.Create;
      TSL.Add('Text');
      TSL.SaveToFile('name.htm');
      TSL.Free;

[Аватар]

var fs: TFileStream;
...
  fs:=TFileStream.Create('name.htm',fmCreate);
  TSL.SaveToStream(fs);
  if fs.Size>2 then fs.Size:=fs.Size-2;
  fs.Free;