|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Неработает созданная функция
Вот написал функцию, но она почему-то неработает:
Код:
function UnCom(Source,Sep:string): String; var SepPos: integer; begin SepPos:=AnsiPos(Sep,Source); if SepPos<>0 then result:=Trim(Source) else result:=Trim(AnsiLeftStr(Source, Sep)); end; Delphi ошибку пишет: [Error] Unit1.pas(34): Undeclared identifier: 'AnsiLeftStr' Подскажите пожалуйста, что делать? |