Re: [Lazarus][Linux] FindFirst i Attr

Article View: pl.comp.lang.pascal

Article #92026

Back to pl.comp.lang.pascal Previous Next

#92026

From: Tygrys
Date: Thu, 26 Jul 2007 19:17

30 lines
1710 bytes

Łukasz 'Maly' Ostrowski pisze:
> Terrmit wrote:
>> Hej, zrobione z Twoją pomocą.
>> Publikuję, bo może komuś się przyda.
>>
>> uses oldlinux;
>>
>> //Sprawdza, czy plik jest poprawny
>> //(czy nie jest to np. link symboliczny do pliku)
>> function IsFileRegular(const FName: string): Boolean;
>> var info: stat;
>> begin
>>   Result := false;
>>   if LStat(FName, info) then
>>     if S_ISREG(info.mode) then
>>       if not S_ISLNK(info.mode) then
>>         Result := true;
>> end;
> 
> 
> if(LStat(FName, info) and S_ISREG(info.mode) and not S_ISLNK(info.mode)) 
> then
>  Result:=true;

Result := LStat(FName, info) and S_ISREG(info.mode) and not 
S_ISLNK(info.mode);

:-)

Tygrys

Technical Details

Message-ID: <f8asac$q$1@nemesis.news.tpi.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!news.nask.org.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail

References:

<f87pe4$j98$1@nemesis.news.tpi.pl> <f87sbv$hkb$1@news.dialog.net.pl> <f88fmn$5dl$1@atlantis.news.tpi.pl> <f8a4ge$u8e$1@news.dialog.net.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!news.nask.org.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: Tygrys <news15@wywalto.tygrys.com.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: [Lazarus][Linux] FindFirst i Attr
Date: Thu, 26 Jul 2007 21:17:53 +0200
Organization: tp.internet - http://www.tpi.pl/
Lines: 30
Message-ID: <f8asac$q$1@nemesis.news.tpi.pl>
References: <f87pe4$j98$1@nemesis.news.tpi.pl> <f87sbv$hkb$1@news.dialog.net.pl> <f88fmn$5dl$1@atlantis.news.tpi.pl> <f8a4ge$u8e$1@news.dialog.net.pl>
NNTP-Posting-Host: aca110.internetdsl.tpnet.pl
Mime-Version: 1.0
X-Trace: nemesis.news.tpi.pl 1185477772 26 83.16.52.110 (26 Jul 2007 19:22:52 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Thu, 26 Jul 2007 19:22:52 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.5 (Windows/20070716)
In-Reply-To: <f8a4ge$u8e$1@news.dialog.net.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message