пойск строк при помощи множеств Delphi

[Walter]

Добрый вечер, столкнулся с следующей задачкой: Вводяться 2 строки и набор чисел. Введённые числа показывают номера выбранных мест в строках. Верно ли, что на выбранных местах в первой строке нет символов второй?
Значит сами строки реализуються в ListBox, решение как я смог выглядеть следующее:
1. Формируете множество символов на выбранных местах первой строки.
2. Формируете множество символов второй строки.
3. Проверяете, пересекаются ли эти множества. Если да, то есть, если нет, то нет.
Вот сама и загвоздка в том, что никак не могу понять, как именно сформироватьт эти самые множества символов по строчно... пересечение эт не проблема... Еси кто может помогите пожалуйста. Сам воод строк и чисел приведён в следующем коде:

procedure TForm1.Button6Click(Sender: TObject);
begin
ListBox1.Clear;
Edit1.Text:='';
Edit1.SetFocus;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if ListBox1.Items.Count <=1 then
  begin
    ListBox1.Items.Add(Edit1.Text);
    Edit1.Text:='';
    Edit1.SetFocus;
  end
  else
    begin
    ShowMessage('In ListBox 2 strings already exist');
    Edit1.Text:='';
    Edit1.SetFocus;
    end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var x,c:integer;
    s:string;
begin
  c:=0;
  s:=Edit1.Text;
  for x:=1 to Length(s) do
  if (s[x] in ['0'..'9']) then inc(c);
  if c=Length(s) then
      begin
         ListBox1.Items.Add(Edit1.Text);
         Edit1.Text:='';
         Edit1.SetFocus;
      end
    else
      begin
         Edit1.Text:='';
         Edit1.SetFocus;
         ShowMessage('Incorrect');
      end;
end;

[Walter]

Очень прошу помогите, хотябы подскажите как создать мноество в Делфи, а то в Паскале знаю, а вот в Делфи преобразовать никак не могу (

[__STDC__]

просто создаете два множества символов (set of char), в первое добавляете все символы второй строки, во второе символы первой строки, которые нужно (аналогично паскалю).. потом находите пересечение с помощью операции *

[Walter]

а что значит, в первое добавить все символы второй строки, как эт вообще реализовать, лана с множеством, создам, но вот эта часть мне вообще не понятна, т.к. со строками я мало работал вообще (

[__STDC__]

ну есть например пустое множество x и строка s..

x := [];
for i:=1 to length(s) do
  x := x + [s[i]];

Тогда в x будут все символы из s

[Walter]

stdc спс, но я уже разобрался с ней... наконецто )))