Страница 2 из 2
Добавлено: 20 янв 2010, 16:47
Darikon
наверное так:
Код: Выделить всё
MyFIO:=iStrFunc.GetFio(sGetTune('USER.FIO'))
в вашем случае:
Добавлено: 20 янв 2010, 16:50
Darikon
Добавлено: 20 янв 2010, 17:01
Ruslan_V
Спасибо всем за помощь, заработало)
Добавлено: 25 янв 2010, 06:26
Alpiton
если кто не в курсе, есть ещё одна интересная функция
function LogicSubStr(var St : string; CutSize : byte; Per : boolean;
DelCut : boolean) : string;
! Логически верное выделение подстроки не более заданной длины,
! т.е. не происходит резка в середине слова, строка режется
! только по пробелам.
!
! St - исходная строка
! CutSize - максимальный размер вырезаемой подстроки
! Per - необходимость переноса в случае невозможности выделить непустую
! подстроку:
! true - вырезается подстрока длиной CutSize-1, а последним
! символом ставится знак переноса "-"
! false - просто вырезается подстрока длиной CutSize
! DelCut - производить ли удаление найденной подстроки из исходной