e-mail adressen ordnen im memo

[Sir Rufo]

Wo hier schon die Übersichtlichkeit angesprochen wurde, dann sollte man doch auch bitte die Oberfläche von der Logik getrennt werden!
Dann wird und bleibt es übersichtlich und man bekommt wiederverwendbaren Code.

Hier mal der implementation-Teil des Formulars:

Delphi-Quellcode:

uses
  CodePart;  // In dieser Unit haben wir die Logik

procedure TForm1.Button1Click( Sender : TObject );
  begin
    SortEmailAdressList( Memo1.Lines );
  end;

Delphi-Quellcode:

unit CodePart;

uses
  Classes;

interface

procedure SortEmailAdressList( const EmailAdressList : TStrings );

implementation

procedure SortEmailAdressList( const EmailAdressList : TStrings );
begin
  // Hier jetzt den Code für die Sortierung der Liste
end;