StrList - HiAsm

Форумы Делаем компонентыStrList ← Ctrl1Ctrl →

Этот топик читают: Гость

Разработчик

Ответов: 4698

Рейтинг: 426

#1: 2009-07-14 20:39:33 ЛС | профиль | цитата

Вот выкладываю "улучшенный" StrList, улучшения: добавлена точка ReplaceStr для метода doReplace, почему? просто иногда невыгодно применять точку Str или неудобно, что впоследствии грозит засорению схемы хабами для установления данных для точки Str, а затем уж и замена по индексу. Так вот, "модифицированный" компонент в архиве в прищепке, и если администраторы сочтут нужным, то обновят компонент на svn.

ЗЫ: Это моя первая победа!!!

Ура Ура Ура!!!

Я справился с delphi, сам добавил новую точку

.... ....
Все успокоился

карма: 10

Мой сайт, Мои рассказы

файлы: 1

strlist.rar [2.2KB] [348]

Голосовали:

nesco, Konst

Администрация

Ответов: 15295

Рейтинг: 1519

#2: 2009-07-14 21:27:12 ЛС | профиль | цитата

Assasin, это безусловно похвально, но существуют условия, которые нужно выполнять и их мы только недавно вспоминали
http://dev.hiasm.com/forum.html?q=3&t=51231

карма: 27

https://hiasm.com

Разработчик

Ответов: 26194

Рейтинг: 2136

#3: 2009-07-14 22:02:35 ЛС | профиль | цитата

Dilma писал(а):

и их мы только недавно вспоминали

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

Assasin писал(а):

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

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

карма: 22

Ответов: 8938

Рейтинг: 824

#4: 2009-07-14 22:43:50 ЛС | профиль | цитата

Assasin, по кодам элементов, любезно предоставленных Автором, и правда легче изучать Паскаль и "Дельфи", так что не останавливаться! Молодец!

карма: 19

Разработчик

Ответов: 26194

Рейтинг: 2136

#5: 2009-07-14 22:50:29 ЛС | профиль | цитата

Леонид писал(а):

Молодец!

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

карма: 22

Разработчик

Ответов: 4698

Рейтинг: 426

#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

Мой сайт, Мои рассказы

файлы: 1 code_14138.txt [1.3KB] [487]

Форумы Делаем компонентыStrList ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)