Разделитель между словами в запросе

[artemavd]

Всем привет! . Нужна помощь в одном вопросе. Мне нужно сделать вот что. К примеру у меня есть CheckBox1 и CheckBox2, которые имеют названия "2-ек" и "3-ек" соответственно. В базе данных они имеют названия полей DVOEK и TROEK соответственно. Хочу сделать так, чтобы если я выбираю оба CheckBox-a, то у меня в Edit заносилось бы так DVOEK,TROEK. Как сделать, чтобы заносились имена я знаю. Но вот как сделать, чтобы между словами ставилась запятая ","? И как сделать, чтобы после последнего слова (если за ним ничего нет больше) запятая не ставилась. Как это сделать с запятой? Код запроса:

procedure TForm2.Button3Click(Sender: TObject);
begin
 with  Form2.Query1 do begin
  Form2.Query1.SQL.Clear;
  Form2.Query1.SQL.Add('SELECT ' + Form2.Edit8.Text); //в Edit8 должна заноситься строка с выбранными значениями
  Form2.Query1.SQL.Add('FROM rezult.db,infa.db,period.db,chetverty.db,predmety.db');
  Open;
 end;
end;

[ArtInt]

И в чем проблема?

var
  List: TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  List:=TStringList.Create;
  list.Delimiter:=',';
  if CheckBox1.Checked then List.Add('dvoek');
  if CheckBox2.Checked then List.Add('troek');

  Edit1.Text:=List.DelimitedText;


end;

[artemavd]

ArtInt, спасибо). Но мне надо, чтобы значения не заменяли друг друга, а добавлялись один за другим, если выбрано несколько. А то получается, что если я выбираю первый, то значение заносится, а если еще и второй сразу выбираю, то второе значение заменяет первое, а они должны идти друг за другом через запятую.

[artemavd]

Ааа...все разобрался . Извиняюсь, все работает)

[ArtInt]

procedure TForm1.Add;
begin


  if CheckBox1.Checked then List.Add('dvoek');
  if CheckBox2.Checked then List.Add('troek');

  Edit1.Text:=List.DelimitedText;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
   List:=TStringList.Create;
  list.Delimiter:=',';
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 Add;
   List.Clear;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
 Add;
   List.Clear;
end;

Да, там просто процедуру можно сделать, главное объект List потом уничтожать не забывай.

[artemavd]

А зачем этот код?

procedure TForm1.FormActivate(Sender: TObject);
begin
   List:=TStringList.Create;
  list.Delimiter:=',';
end;

И для чего мы делаем это?

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 Add;
   List.Clear;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
 Add;
   List.Clear;
end;

Поясни? . Чтобы знать.

[ArtInt]

Код этот к посту #3 . Там говорилось, что значения заменяли друг друга и так далее. Вот и решил выложить свое решение, что первое пришло в голову.
Смысл такой, сначала делается специальная процедура Add, в которой мы производим проверку на галочку, добавляем в список и потом в Edit.
Для того чтобы значения списка каждый раз были новыми мы делаем List.Clear, то есть формируется новый список, когда кликаем на чекбокс.
А список создается и разделитель один раз при активации формы, потом при уничтожении формы кстати или выходе из программы освобождаем List.Free;

[artemavd]

А вот вопрос: можно ли в качестве разделителя между словами использовать AND? Пробовал делать так:

procedure TForm2.Button3Click(Sender: TObject);
var
 List_Query: TStringList;
begin
 with  Form2.Query1 do
 begin
  List_Query:=TStringList.Create;
  List_Query.Delimiter:='AND';

  Form2.Query1.SQL.Clear;
  Form2.Query1.SQL.Add('SELECT ' +  Form2.Edit8.Text);
  Form2.Query1.SQL.Add('FROM rezult.db,infa.db,period.db,chetverty.db,predmety.db');
  Form2.Query1.SQL.Add('WHERE ' + Form2.Edit10.Text);

  if CheckBox15.Checked = True then
    begin
     List_Query.Add('Chetvert = ' + QuotedStr(Form2.DBLookupComboBox3.Text) + '');
    end;

  if CheckBox14.Checked = True then
    begin
    List_Query.Add('Predmet = ' + QuotedStr(Form2.DBLookupComboBox2.Text) + '');
    end;

  if Form2.Edit5.Text <> '' then
    begin
     List_Query.Add('LAST_NAME = ' + Form2.Edit5.Text +'');
    end;

  if Form2.Edit6.Text <> '' then
    begin
     List_Query.Add('FIRST_NAME = ' + Form2.Edit6.Text +'');
    end;

  if Form2.Edit7.Text <> '' then
    begin
     List_Query.Add('OTCHESTVO = ' + Form2.Edit7.Text +'');
    end;

  if CheckBox16.Checked = True then
    begin
     List_Query.Add('GOD = ' + Form2.Edit9.Text +'');
    end;

  Form2.Edit10.Text:=List_Query.DelimitedText;
  Open;
 end;
end;

Но выдается ошибка: [Error] Unit2.pas(839): Incompatible types: 'Char' and 'String'.

[ArtInt]

Во-первых тип Char поддерживает только один символ.
Во-вторых, а если бы даже был бы String, то тогда возникает проблема, если будет встречаться and в добавляемых items. А чем запятая не нравится или другой символ редко встречающийся в словах?

[artemavd]

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

А чем запятая не нравится или другой символ редко встречающийся в словах?

Не, с запятой это другой случай. Там все нормально работает. Это уже другое. Мне надо, чтобы условия в WHERE разделялись AND-ом.