Memo HTML

[Aleksandr69]

Подскажите как сделать? вставляю код html в мемо проставляю теги типа <key>(можно так сделать [key] для уникальности) ,нажимаю бутон и в зависимости от тега в мемо проставляются описание ключи и ттд ,неужто это все делать с помощью pos,copy,delete.

[MyLastHit]

Напиши по русски, и прежде чем отправлять - сам прочитай что получилось. Вообще не понял, что ты хочешь сделать.

[Aleksandr69]

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

Напиши по русски, и прежде чем отправлять - сам прочитай что получилось. Вообще не понял, что ты хочешь сделать.

поправил надеюсь понятно

[MyLastHit]

Ну Вам нужно парсер написать. Стандартные парсеры состоят из ф-ии работы со строками. Это как Вы сказали pos,copy,delete,insert. Если есть проблемы с написанием парсера - пиши. Только конкретно, что не понятно или не получается.
Функции работы со строками очень простые для понимания. Но мозг конкретно вынести могут пока сам код напишешь)

[Aleksandr69]

сделал так

  ins:='ttt';
  isk := '[key]';

  AdvMemo1.Lines.Text:=StringReplace(AdvMemo1.Lines.Text, isk, ins,[rfReplaceAll, rfIgnoreCase]);
 // showmessage(AdvMemo1.Lines.Text);

[Aleksandr69]

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

Ну Вам нужно парсер написать. Стандартные парсеры состоят из ф-ии работы со строками. Это как Вы сказали pos,copy,delete,insert. Если есть проблемы с написанием парсера - пиши. Только конкретно, что не понятно или не получается.
Функции работы со строками очень простые для понимания. Но мозг конкретно вынести могут пока сам код напишешь)

использовал код так как показалось проще конечно вариант с

ins:='ttt';//на что меняем

isk := '[key]';//искомый ключ

AdvMemo1.Lines.Text:=StringReplace(AdvMemo1.Lines.Text, isk, ins,[rfReplaceAll, rfIgnoreCase]);

как сделать разные замены допустим первый кей заменить на (вася) второй на (петя ) итд считать замены?

[kangreon]

const
  key: array[0..n] of string=('[key1]', '[key2]', ... '[keyn]');
  value: array[0..n] of string=('value1', 'value2', ... 'valuen');
var
  s: string;
  i: integer;
begin
  // В s текст, в котором необходимо произвести замены
  for i := 0 to n {вместо n размер массива} do
    s := StringReplace(s,key[i], value[i], [rfReplaceAll]);
end;

[Aleksandr69]

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

const
  key: array[0..n] of string=('[key1]', '[key2]', ... '[keyn]');
  value: array[0..n] of string=('value1', 'value2', ... 'valuen');
var
  s: string;
  i: integer;
begin
  // В s текст, в котором необходимо произвести замены
  for i := 0 to n {вместо n размер массива} do
    s := StringReplace(s,key[i], value[i], [rfReplaceAll]);
end;

 for i:=0 to ParamListBox1.Items.Count -1 do begin
      ins:=ParamListBox1.Items[i];
      AdvMemo1.Lines.Text:=StringReplace(AdvMemo1.Lines.Text, isk, ins,[rfIgnoreCase]);

сделал так ,убрал флаг rfReplaceAll и сделал цикл