Zwei Zeilen miteinander Vergleichen (etwas kompliziert)

[himitsu]

Delphi-Quellcode:

SL.Duplicates := dupIgnore;  // eventuell muß auch SL.Sorted auf True sein

SL.Add('AAA');
SL.Add('AAA');
SL.Add('AAA');
// AAA ist nur einmal drin

Und Copy(..., 0, ...);
Delphi/Pascal-Strings beginnen standardmäßig mit 1.