Wenn ich folgende Prozedur ...

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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 ...

Code :

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

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

Code :

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

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

PS: Tipp ist von DP

Nachtrag:
denk fehler

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

Hab trotzdem etwas:

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

Code :

1	SortTStrings(Form1.Memo1.Lines, dupIgnore);

MArc

Harr,danke geht wunderbar