Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 4678
Рейтинг: 422
#1: 2009-07-14 20:39:33 ЛС | профиль | цитата
Вот выкладываю "улучшенный" StrList, улучшения: добавлена точка ReplaceStr для метода doReplace, почему? просто иногда невыгодно применять точку Str или неудобно, что впоследствии грозит засорению схемы хабами для установления данных для точки Str, а затем уж и замена по индексу. Так вот, "модифицированный" компонент в архиве в прищепке, и если администраторы сочтут нужным, то обновят компонент на svn.

ЗЫ: Это моя первая победа!!! Ура Ура Ура!!! Я справился с delphi, сам добавил новую точку .... ....
Все успокоился
карма: 10
2
файлы: 1strlist.rar [2.2KB] [147]
Голосовали:nesco, Konst
vip
#1.1контекстная реклама от партнеров
Администрация
Ответов: 15292
Рейтинг: 1515
#2: 2009-07-14 21:27:12 ЛС | профиль | цитата
Assasin, это безусловно похвально, но существуют условия, которые нужно выполнять и их мы только недавно вспоминали
http://dev.hiasm.com/forum.html?q=3&t=51231
карма: 26
0
Разработчик
Ответов: 25681
Рейтинг: 2087
#3: 2009-07-14 22:02:35 ЛС | профиль | цитата
Dilma писал(а):
и их мы только недавно вспоминали

Ну да, моя показательная порка

Assasin писал(а):
что впоследствии грозит засорению схемы хабами для установления данных для точки Str

Assasin, (тут я потираю ладошки) привиди-ка мне схемку, доказывающую необходимость такого нововведения без применения хабов
карма: 20

0
Ответов: 8607
Рейтинг: 800
#4: 2009-07-14 22:43:50 ЛС | профиль | цитата
Assasin, по кодам элементов, любезно предоставленных Автором, и правда легче изучать Паскаль и "Дельфи", так что не останавливаться! Молодец!
карма: 18

0
Разработчик
Ответов: 25681
Рейтинг: 2087
#5: 2009-07-14 22:50:29 ЛС | профиль | цитата
Леонид писал(а):
Молодец!

Ну, с этим я тоже согласен. Он и с новой таблицей неплохо разобрался, даже примеров накидал
карма: 20

0
Разработчик
Ответов: 4678
Рейтинг: 422
#6: 2009-07-15 09:07:05 ЛС | профиль | цитата
nesco, Леонид Стараюсь, только особо много то я не сделал, всего лишь добавил
#pas
public
_prop_FileName:string;

_data_FileName:THI_Event;
...
{[b]}_data_ReplaceStr:THI_Event;{[/b]}
...
_event_onGetIndex:THI_Event;
_event_onGetString:THI_Event;
да и
#pas
procedure THIStrList._work_doReplace;
var ind:integer;
begin
ind := ToIntIndex(_Data);
if (ind < 0) or (ind > FList.Count - 1) then exit;
FList.Delete(ind);
FList.Insert(ind, ReadString(_Data, {[b]}_data_replacestr{[/b]}, '));
_hi_CreateEvent(_Data, @_event_onChange);


nesco писал(а):
Assasin, (тут я потираю ладошки) привиди-ка мне схемку, доказывающую необходимость такого нововведения без применения хабов

code_14138.txt, здесь только 1 хаб, на то, чтоб заменить, а представь, пришлось бы еще ставить хабы(чтобы добавить строку строка"..." заменена на "...", чтобы поставить строку для замены, т.е лишний элемент EventFromData)
карма: 10
0
файлы: 1code_14138.txt [1.3KB] [171]
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)