Delphi: Procédure Supprimer les lignes vides et les blancs du debut et de fin de chaque ligne d'un Memo

Cette procédure permet de supprimer les lignes vides et les blancs du début et de fin de chaque ligne d'un Memo.

Lien de téléchargement de l'exemple d'une application delphi:  Télécharger
Lien de Téléchargement de l'exécutable: Télécharger

//-----------------------------------------------------------------------
procedure suppr_lignevide_esp(Memo:TMemo);
   var StringList:TStringList;
         i:integer;
begin
    StringList:=TStringList.Create;
    StringList.AddStrings(Memo.Lines);  //Copier les lignes du Memo1 dans StringList
    try
      for i:=StringList.Count-1 downto 0 do
        begin
        StringList[i]:=Trim(StringList[i]);
          if Trim(StringList[i])='' then
            begin
              StringList.Delete(i);
            end;
         Application.ProcessMessages;
        end;
          Memo.Lines.BeginUpdate;
          Memo.Lines.Assign(StringList);
          Memo.Lines.EndUpdate;
     finally
          StringList.Free;
     end;
end;
//----------------------------------------------------------------------

//Utilisation de la procédure
procedure TForm1.Button1Click(Sender: TObject);
begin
   suppr_lignevide_esp(Memo1);
end;