Вопрос по поводу StringList(а)

[KAMENYKA]

Помогите пожалуста!!! В классе TstringList есть свойство Duplicates которое имеет три значения в частности dupError которое выбрасывает исключения, если имеються дубликаты. Как нужно указать в операторе If что если произашло это условие то выполняеться ...(тобиш если dupError выбрасывает исключение тогда выполняються некие действия).???
P.S К duperror я не привязываюсь может это будет лучше оргонизовать через dupIgnore. Подскажите пожалуста кто знает(((

[Stilet]

если использовать dupError
то в try except ставь обработку на EStringListError

[KAMENYKA]

Сообщение от Stilet

если использовать dupError
то в try except ставь обработку на EStringListError

мож код скинуть чёто я непонял как это записываеться

[Stilet]

Ну чеж нельзя, можно конечно: Только ты учти что duplicates используется только при включенной сортировке, подробности в хелпе:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var       t:TStringList;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
t:=TStringList.Create;
t.Sorted:=true;
t.Duplicates:=dupError;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
try
 t.Add(Edit1.Text);
except
 on EStringListError do caption:='нельзя';
end;
ListBox1.Items:=t;
end;

end.

[KAMENYKA]

Спасибо большое только это чтото не помагло(((Блин голову уже себе сломал((