Ето някои функции съм написал, си вършат добре работата. Yourself можете да започнете да отрежете модификация функции (), например, да се разработи функция TrimRight $ и $ TrimLeft, премахване на празни места, от дясната и лявата страна на линиите, съответно. Можете да създадете и функции, които работят както с Паскал струни, и с storokami приключва нула (терминатор).
BlackSpace = [# 33. # 126];
мачкам () връща низ с цялото празно пространство и дистанционно
повтарят апострофи.
>
функция мачкам (Конст Търсене: низ): низ;
Var
за Индекс: = 1 до Дължина (Search) направи
ако InString или (Search [Index] в BlackSpace), след това
InString: = ((Търсене [индекс] = '' '') и (Търсене [Index - 1] <> "\"))
преди () връща част от канализацията, разположен в предната част
Намери първо подниз в низ за търсене на. ако
Намерете не е намерен, функцията връща търсене.
>
функция преди (Конст търсене, намиране: низ): низ;
Var
ако индекс = 0, тогава
след () връща част от ред разположен след
Намери първо подниз в низ за търсене на. ако
Намерете не е намерен, функцията връща NULL.
>
функция след (Конст търсене, намиране: низ): низ;
Var
ако индекс = 0, тогава
RPos () връща първия знак на последния намерен
Намери подниза в низ за търсене на. Намери ако не е намерен,
Подобна функция връща 0. обратими Поз ().
>
функционални RPos (Конст Намери, Търсене: низ): байтове;
Var
FindPtr, SearchPtr, TempPtr: PChar;
Свързани статии