Fjern dubletter i richedit

du har en intern Buffer en  TStringList, som du sætter op til at ignorer dubletter. Den Adder du til, og så Assigner du den til din TRichEdit!

Jens B

Send lige et svar

Svar :-)

Jeg bruger følgende:

Liste.Duplicates:= dupIgnore;

men alligevel opstår der dubletter ??

Borrisholts forslag virker fint, men du skal huske at sætte sorted=true

type
  TfrmMain = class(TForm)
    btnTest: TButton;
    mLog: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnTestClick(Sender: TObject);
  private
    fList : TStringList;
  public
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  fList := TStringList.Create;
  fList.Duplicates := dupIgnore; // Den har du
  fList.Sorted := true; // Den mangler du
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  fList.Free;
end;

procedure TfrmMain.btnTestClick(Sender: TObject);
begin
  fList.Add('Test'); // Prøv så mange gange du ønsker. Der kommer kun én
  mLog.Lines.Assign(fList); // Skriv ud til log
end;

Tak for hjælpen..

og god weekend.