IPB

> StrRScan.PAS
Форум
Загрузка...
 
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

Язык:
Русский
English


 { Пример программы для функции StrRScan }

{ Возвращает указатель на строку, содержащую имя файла }

function NamePart(FileName : PChar) : PChar;
var
  P : PChar;
begin
  P := StrRScan(FileName, '\');
 if P = Nil then
 begin
    P := StrRScan(FileName, ':');
   if P = Nil then
      P := FileName;
 end;
  NamePart := P;
end;
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 


-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"