Добавить/Удалить запись из TStrings

[Shouldercannon]

Задача заключается в том, чтобы при Check/Uncheck CheckBox записывать/удалять запись в TStrings. Вот пример

...
s: TStrings;
...
s := TStringList.Create;
...
if CheckBox1.Checked then
s.Add('Test')
else
s.Delete('Test')

но в Delete нужен Integer, а не имя записи.

[ZuBy]

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

Задача заключается в том, чтобы при Check/Uncheck CheckBox записывать/удалять запись в TStrings. Вот пример

...
s: TStrings;
...
s := TStringList.Create;
...
if CheckBox1.Checked then
s.Add('Test')
else
s.Delete('Test')

но в Delete нужен Integer, а не имя записи.

s.indexof('ляляля') - это будет integer

[Shouldercannon]

Так тоже верно будет?

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    s.Add('Test1')
  else
    with s do Delete(IndexOf('Test1'));
end;

[ZuBy]

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

Так тоже верно будет?

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    s.Add('Test1')
  else
    with s do Delete(IndexOf('Test1'));
end;

Конечно хотя выглядит не оч. красиво)