Doppelten String nicht übergeben

[SaFu]

Hallo zusammen

ich gebe von den Zellen 11 und 12 eines StringGrids den inhalt an ein Eidt feld jetzt möcht ich aber die doppelten Einträge nicht übergeben wie mache ich das

Delphi-Quellcode:

procedure TForm7.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
var  spalte, ueberschri :Integer;
begin
  with TStringList.Create do
  try

    for spalte:= 11 to 12 do
    begin                                        
      ueberschri:= Count; 
      StringGrid1.Cols[Spalte]:= DupIgnore;// so geht es nicht
      AddStrings(StringGrid1.Cols[spalte]);
      Delete(ueberschri); 
    end;

    Edit1.Text:= StringReplace(Text, sLineBreak, '', [rfReplaceAll]);
  finally
    Free;
  end;

Danke schonmal

[DeddyH]

Delphi-Quellcode:

with TStringList.Create do
  try 
    Duplicates := dupIgnore;

Oder versteh ich Dich falsch?

[SaFu]

So funzt es auch nicht

wenn ich in der spalte [11,1] z.b. Hallo eingebe und ich gebe in der spalte [11.2] auch Hallo ein soll es nicht an edit1 übergeben werden

[mquadrat]

Ahh du möchtest, dass Hallo dann überhaupt nicht drin auftaucht?

[SaFu]

Genao so

Wenn ich zweimal eingegeben habe soll es nur einmal im Edit feld drinstehen genauso bei dreimal usw.

Irgenwas mit Duplicates := dupIgnore; ??

[SirThornberry]

dann funktionierts auch mit dubIgnore. dann ist lediglich deine verwendung falsch. Mit dubIgnore erreichst du das in eine Stringlist nur etwas hinzugefügt werden kann wenn es noch nicht drin ist.

[SaFu]

Dafür brauch ich doch diese Variable

Delphi-Quellcode:

(StringGrid1.Cols[spalte])

um die ganzen zellen zu übergeben

[SaFu]

Hab jetzt mal viele Variationen versucht aber irgendwie klappt das nicht

[Klaus01]

Hilft vielleicht nicht bei der Problemlösung, aber
dupIgnore funktioniert nur wenn bei der StringList sorted auf true gesetzt wird.

Grüße
Klaus

[SaFu]

Das heisst ich müsste erst ne neue Stringlist erzeugen??