procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add('name_1');
memo1.Lines.Add('name_2');
memo1.Lines.Add('name_3');
memo1.Lines.Add('name_4');
memo1.Lines.Add('name_5');
memo1.Lines.Add('name_6');
memo1.Lines.Add('name_7');
memo1.Lines.Add('name_8');
memo1.Lines.Add('name_9');
memo1.Lines.Add('name_10');
memo1.Lines.Add('name_11');
Memo1.Text:=StringReplace(Memo1.Text, 'name_1', 'бамбук-1', [rfReplaceAll, rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text, 'name_2', 'файл-2', [rfReplaceAll, rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text, 'name_3', 'файл-3', [rfReplaceAll, rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text, 'name_4', 'файл-4', [rfReplaceAll, rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text, 'name_5', 'файл-5', [rfReplaceAll, rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text, 'name_6', 'файл-6', [rfReplaceAll, rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text, 'name_7', 'файл-7', [rfReplaceAll, rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text, 'name_8', 'файл-8', [rfReplaceAll, rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text, 'name_9', 'файл-9', [rfReplaceAll, rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text, 'name_10', 'файл-10', [rfReplaceAll, rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text, 'name_11', 'файл-11', [rfReplaceAll, rfIgnoreCase]);
end;
вот что выдает.
бамбук-1
файл-2
файл-3
файл-4
файл-5
файл-6
файл-7
файл-8
файл-9
бамбук-10
бамбук-11
Что не так?
Примечание:
Есть предложения? или ссылка на урок.
в основном проекте я делаю так
поэтому перемещения не помогут.
for
i := 0 to s do
begin
Memo1.Text:=StringReplace(Memo1.Text, 'name_'+(IntToStr(i+1)), memo2.Lines[i], [rfReplaceAll, rfIgnoreCase]);
end;
Примечание:
Спасибо костыль помог.
Все очень просто в memo1 собираю строки то
бла бла бла name_1
бла бла бла name_2
бла бла бла name_3
бла бла бла name_4
патом все name_ нужно заменить на строки из другого memo2
вот и все.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.