HiAsm

Форумы Помощь по пакету Пожалуйста научите работать с базой данных ← Ctrl1 2 3 4 56Ctrl →

Ответов: 16884

Рейтинг: 1239

#1: 2008-10-25 13:20:48 ЛС | профиль | цитата

nesco, а я что, думаешь зря применил твои имена в компоненте ?

Просто предлагаю добавить пункт StrToFixstr


#pas
procedure THIFixStr._work_doConvert;
var
Len,l,n:integer;
s:string;
begin
 Len:= ReadInteger(_Data,_data_NewLength,_prop_Digits);
 st:=ReadString(_Data,_data_Str,');
 l:=Length(st);
 n:=Len-l;
 If n<1 then st:= copy(st,1,Len)
  else
   begin
     s:=';
     For l:=1 to n do s:=s+_prop_SymbolFill;
     case _prop_Align of
      0: st:= s + st;
      1: st:= st + s;   
     end;
   end;
   _hi_onEvent(_event_onResult, st);
end;

Хотя все, что связано с преобразованием строк в ХХХХ, я бы выделил в отдельный компонент, как ты поступил с Датами, и поместил его в Строки.
Но это просто мое мнение.

------------ Дoбавленo:
и вопрос : Сколько нужно прилепить компонентов к стандартной StringTable, чтобы получить такой вид документа

(при этом вспомни, что ввести выбор направления копирования в компонент Copy предложл я и сколько было полемики на эту тему )

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1 who.gif [4.7KB] [507]

Форумы Помощь по пакету Пожалуйста научите работать с базой данных ← Ctrl1 2 3 4 56Ctrl →