Doppelten String nicht übergeben

[Klaus01]

Hallo Sascha,

das sollte in etwas so gehen:

Delphi-Quellcode:

var
  sl: TStringList;

begin
  sl := TStringList.create;
  sl.sorted := true;                 // Liste sortieren Modus
  sl.duplicated := dupIgnore;        // keine doppelten Einträge 
  sl.assign(StringGrid1.cols[11]);   //  zuweisen der Spalte 11 in die StringListe
  sl.add(edit1.text);                // hinzufügen des neuen Textes, wenn doppelt wird er nicht hinzugefügt
  StringGrid1.cols[11].assign(sl);   // zuweisen der StringListe in die Spalte 11
  sl.free;                           // freigeben der StringListe
end;

Habe es nicht getestet.
Grüße
Klaus