Add(InlineCode,14180173,434,301)
{
 @Hint=#7:str_pad|
 WorkPoints=#7:str_pad|
 EventPoints=#6:result|
 DataPoints=#5:input|10:pad_string|10:pad_length|8:pad_type|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|11:     input,|16:     pad_string,|16:     pad_length,|14:     pad_type,|23:     result: THI_Event;|52:     procedure str_pad(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|29:procedure THiAsmUnit.str_pad;|3:var|31:  str, half, padstring: string;|32:  pad_to_go, padlength: integer;|5:begin|25:// читаем исходные данные|31:  str := ToStringEvent(input); |41:  padstring := ToStringEvent(pad_string);|42:  padlength := ToIntegerEvent(pad_length);|41:  pad_to_go := padlength - length(str);  |44:  if pad_to_go > 0 then // нужно добавлять ?|40:  begin                 // да, добавляем|81:   while Length(half)<pad_to_go do half := half + padstring; // формируем добавку|87:   SetLength(half,pad_to_go);                              // и устанавливаем её размер|35:   Case ToIntegerEvent(pad_type) of|25:    0: str := half + str;|25:    1: str := str + half;|57:    2: begin                                  // в центр |77:        IF ODD(pad_to_go) THEN inc(pad_to_go);// если нечетное, то добавить 1|57:        SetLength(half,pad_to_go div 2 );     // изменить|33:        str := half + str + half;|33:        SetLength(str,padlength);|9:     end;|26:   end; //case            |6:  end;|27:  _hi_onEvent(result, str);|4:end;|0:|4:end.|
 AddHint(-41,56,50,13,@Hint)
}