> RETURNS CSTRING(50) FREE_IT гуд
> P := ib_util_malloc(33); почему 33? >s2 + '-' +Copy(s, 25, 12) + Copy(s, 20, 4) + Copy(s, 15, 4) + Copy(s, 10, 4) + >Copy(s, 1, 8) сдается мне, тут длина получится 49 > Result := StrPCopy(P, s2 + '-' +Copy(s, 25, 12) + Copy(s, 20, 4) + Copy(s, > 15, 4) + Copy(s, 10, 4) + Copy(s, 1, 8)); если я б я знал, что такое StrPCopy ... :-) может еще какую глупость спросил бы
