Генерация текста

[apocalypce]

Здравствуйте уважаемые посетители форума.

Вот сижу за компом и пытаюсь написать программу которая генерирует то, что написанно в Memo. А смысл такой: например создаеться описание в виде:

programmersforum.ru - {лучший|классный|восхитительный} форум

После нажатия на кнопку генерация должно произойти следующее:

1. programmersforum.ru - лучший форум
2. programmersforum.ru - классный форум
3. programmersforum.ru - восхитительный форум

т.е. сгенерировать все возможные варианты.

[Serge_Bliznykov]

готовых решений я лично не знаю.
но самому такое сделать несложно.
Сначала определитесь с правилами вашего макроязыка (т.е. какие конструкции являются допустимыми), дальше пишите парсинг. для приведённого вами примера как только встречаем фигурную скобку - выбираем в некую структуру (ну пусть будет TStringList) все возможные варианты. потом в цикле по этой структуре генерим варианты и вставляем их вместо {...} скобки...
Хуже, если внутри фигурных скобок, в качестве одного из вариантов, тоже может быть подставка... но и это решаемо...

[Stilet]

Вот парсер твоей хвальбы. К строкам в Мемо в начало добавишь в цикле

var e,s:string;
begin
 s:='programmersforum.ru - {лучший|классный|восхитительный} форум';
 e:=copy(s,1,pos('}',s)-1);
 e:=copy(e,pos('{',e)+1,length(e));
 Memo1.Lines.Delimiter:='|';
 Memo1.Lines.DelimitedText:=e;
end;

[Utkin]

Решение Стилета быстрый способ, но по мере добавления новых возможностей, придется попыхтеть. Лучше сразу определи структуру (класс, динамический массив, запись и пр.), подготовь ряд процедур и функций по обслуживанию (добавление нового элемента - обалденный, удаление и пр). Получиться небольшое API, опираясь на которое уже возможно решать большой круг задач.

[apocalypce]

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

Вот парсер твоей хвальбы. К строкам в Мемо в начало добавишь в цикле

var e,s:string;
begin
 s:='programmersforum.ru - {лучший|классный|восхитительный} форум';
 e:=copy(s,1,pos('}',s)-1);
 e:=copy(e,pos('{',e)+1,length(e));
 Memo1.Lines.Delimiter:='|';
 Memo1.Lines.DelimitedText:=e;
end;

спасибо а еще вот так можно:

procedure TForm1.Button1Click(Sender: TObject);
var
 s, a, b, c : string;
 str : TStringList;
 i, t, p1, p2 : integer;
begin
 memo2.Clear;
 str := TStringList.create;
  for i:=0 to memo1.Lines.Count-1 do
   begin
    s:=memo1.Lines.Strings[i]; 
    p1:=pos('{', s);
    p2:=pos('}', s);
     if (p1<>0) and (p2<>0) then
      a:=copy(s, 1, p1-1);
      c:=copy(s, p2+1, MaxInt);
      b:=copy(s, p1+1, p2-1-p1);
      str.text := stringReplace(b, '|', #13#10, [rfReplaceAll]);
       for t:=0 to str.Count-1 do
        memo2.Lines.Add(inttostr(t+1) + '. '+ a + str[t] + c);   
  end;
 str.free
end;