HiAsm

Форумы Между делом Всеп привет, народ, а как точка doGetString получает строку по индэксу? ← Ctrl12Ctrl →

Ответов: 288

Рейтинг: 4

#1: 2010-02-18 00:30:46 ЛС | профиль | цитата

nesco, понял.
------------ Дoбавленo в 02.29:
Да nesco, работает, но есле честно то ему просто катострофически нехватает функции сборки предложения по Integer-у. Я думаю что лучше 1-н элемент впихнуть в место 3-х. Да и вот этот элемент (с которым ты мне помогал) я бы тоже добавил в HiAsm.


Add(InlineCode,7084589,1988,525)
{
 WorkPoints=#38:doConvert=Входящая не разбитая строка |
 EventPoints=#34:onResult=Выходящая разбитая строка|
 DataPoints=#4:Data|5:Count|3:Str|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|0:|18:   Data:THI_Event;|19:   Count:THI_Event;|17:   Str:THI_Event;|22:   onResult:THI_Event;|3:   |52:   procedure doConvert(var _Data:TData; Index:word);|5: end;|0:|14:implementation|61:procedure THiAsmClass.doConvert(var _Data:TData; Index:word);|20:var   i, l: Integer;|21:      txt, st:string;|18:      cnt:integer;|5:begin|35:   txt  := ReadString(_Data, Data);|34:   st   := ReadString(_Data, Str);|37:   cnt  := ReadInteger(_Data, Count);|24:   Replace(txt, ,');|3:TRY|20:   l := Length(txt);|25:   if l <= cnt then exit;|16:   i := cnt + 1;|24:   while i <= l do begin|25:      Insert(st, txt, i);|13:      Inc(l);|22:      Inc(i, cnt + 1);|7:   end;|7:FINALLY|42:   _hi_CreateEvent(_Data, @onResult, txt);|4:END;|4:end;|4:end.|
}

Только к нему бы я бы добавил бы ещо и функцию "Реверс" (Т.Е. начинать вставлять с лева или с права и с 0-й и с последней позиции). Прикольные бы получились элеменьтики для работы со строками. nesco, если вдруг задумаеш сотворить такое, дай знать.

карма: 2

Форумы Между делом Всеп привет, народ, а как точка doGetString получает строку по индэксу? ← Ctrl12Ctrl →