Ramazan Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору var   ReplaceStrs: TStringList;   i: Integer; ...   ReplaceStrs := TStringList.Create;   try     with TIniFile.Create('Settings.ini') do     begin       ReadSectionValues('Параметры замены', ReplaceStrs);       Free;     end;     // Предполагается, что в Мемо1 лежит html-код, подлежащий замене     for i := 0 to ReplaceStrs.Count - 1 do         AnsiReplaceText(Memo1.Text, ReplaceStrs.Names[i], ReplaceStrs.ValueFromIndex[i]);   finally     ReplaceStrs.Free;   end; Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 07:40 17-07-2006

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование