✔ SortTStrings - Fehlermeldung

[Alex Duschek]

Wenn ich folgende Prozedur ...

procedure SortTStrings(Strings:TStrings; Duplicates:TDuplicates);
var
  tmp: TStringList;
begin
  Assert(Assigned(Strings), 'SortTStrings: invalid arg');
  if Strings is TStringList then
  begin
    TStringList(Strings).Duplicates := Duplicates;
    TStringList(Strings).Sort;
  end else
  begin
    tmp := TStringList.Create;
    try
      tmp.Duplicates := Duplicates;
      tmp.Sorted := True;

      // make a sorted copy
      tmp.Assign(Strings);
      // copy back
      Strings.Assign(tmp);
    finally
      tmp.Free;
    end;
  end;
end;

... mit ...

SortTStrings(Form1.Memo1.Lines,[dupIgnore]);

...aufrufe, erhalte ich folgende Fehlermeldung...

[Fehler] Unit1.pas(75): Inkompatible Typen: 'TDuplicates' und 'Set'

...und ich hab keine Ahnung,weshalb ^^ Jemand einen Hinweis?

PS: Tipp ist von DP

 

[MArc]

Nachtrag:
denk fehler ^^

 

[Alex Duschek]

Verdammt, hatte mich schon über eine Antwort gefreut ... arg ^^

 

[MArc]

Hab trotzdem etwas:

Ruf es so auf, dann funktioniert es. Hab's ausprobiert.

SortTStrings(Form1.Memo1.Lines, dupIgnore);

MArc

 

[Alex Duschek]

Harr,danke geht wunderbar