e-mail adressen ordnen im memo

[Bjoerk]

BTW: Gestern hast Du behauptet, ein Memo wäre so schnell wie eine StringList zu sortieren. Stimmt nicht. Heute sagst du, man könne hier eine Methode von StringList verwenden. Stimmt so auch nicht. Soweit die Fakten..

[himitsu]

CustomSort kann man eine Sortierfunktion übergeben, jeweils eine Andere, da braucht man keinen weiteren parameter.

Delphi-Quellcode:

if SortByProvider then
  TStringList(nil).CustomSort(function(List: TStringList; Index1, Index2: Integer): Integer
    begin
      Result := AnsiCompareText(GetDomainPart(Item1), GetDomainPart(Item2))
      if Result = 0 then
        Result := AnsiCompareText(GetNamePart(Item1), GetNamePart(Item2));
    end)
else
  //StringList.CustomSort(function(List: TStringList; Index1, Index2: Integer): Integer
  //  begin
  //    Result := AnsiCompareText(Item1, Item2);
  //  end);
  StringList.Sort; // hat sich ja nix geändert

Bei wem es noch keine anonymen Methoden gibt, der nutzt halt eine "normale" Funktion dafür.

AnsiLowerCase und die If-Vergleiche sind in AnsiCompareText schon eingebaut.
Und nicht über das Ansi wundern ... unter Unicode ist das urplötzlich eine Unicodefunktion, weil irgendwe dachte es wäre cool so.
Oder AnsiComparestr ohne integriertem AnsiLowerCase.
und bei falscher Sortierreihenfolge einfach die Parameter tauschen.

PS: Sowas wie Folgendes würde ich hiebei nie nutzen, denn ein NOT kann man beim Lesen shcnell mal übersehn
und die beiden Then-Else-Zweige kann man ja uch problemlos tauschen.

Delphi-Quellcode:

if not ... then
begin

end
else

[DeddyH]

Zitat von Bjoerk:

BTW: Gestern hast Du behauptet, ein Memo wäre so schnell wie eine StringList zu sortieren. Stimmt nicht. Heute sagst du, man könne hier eine Methode von StringList verwenden. Stimmt so auch nicht. Soweit die Fakten..

Wenn man sich natürlich entsprechenden Code zusammenbaut, dem man verschiedene Datentypen als Parameter übergibt, dann hat man auch die Fakten, die einem in den Kram passen. Wie ich schon sagte: Memo.Lines und TStringlist sind beide von TStrings abgeleitet, also sollte es letztendlich egal sein, welcher Abkömmling dahintersteckt, sobald man dann TStrings übergibt. Und will man dann den eingebauten Quicksort von TStringlist nutzen, dann weist man innerhalb der Sortier-Routine eben den Parameter einer internen TStringList zu und sortiert diese. Aber ich halte mich jetzt auch aus dem Thema raus, da sich mir der Sinn nicht erschließt. Wenn es Dir Spaß macht, kannst Du ja einen Sortieralgo für die Telefonnummern aller Meiers in Buxtehude unabhängig von der Schreibweise coden, mir ist das Wurscht.

[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;