Re: [Lazarus][Linux] FindFirst i Attr

Article View: pl.comp.lang.pascal

Article #92025

Back to pl.comp.lang.pascal Previous Next

#92025

From: Łukasz 'Maly' Ostrowski
Date: Thu, 26 Jul 2007 12:32

37 lines
2005 bytes

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;

To oczywiście tylko pod warunkiem że fpc ewaluuje wszystko od lewej
do prawej, lub ewaluuje wszystko od lewej do prawej gdy jest function
call zawarty w logicznym wyrażeniu(afaik gcc tak robi) ;).

Analogicznie druga funkcja. ;).

> A może ktoś zrobiłby te funkcje jeszcze lepiej?

Funkcje te są elementarne więc nie ma dużo możliwości "poprawienia" :>.

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/

Technical Details

Message-ID: <f8a4ge$u8e$1@news.dialog.net.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!newsfeed.pionier.net.pl!news.dialog.net.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>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail
From: Łukasz 'Maly' Ostrowski <maly@USUNnemo.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: [Lazarus][Linux] FindFirst i Attr
Date: Thu, 26 Jul 2007 14:32:48 +0200
Organization: Dialog Net
Lines: 38
Message-ID: <f8a4ge$u8e$1@news.dialog.net.pl>
References: <f87pe4$j98$1@nemesis.news.tpi.pl> <f87sbv$hkb$1@news.dialog.net.pl> <f88fmn$5dl$1@atlantis.news.tpi.pl>
NNTP-Posting-Host: xdsl-2911.zgora.dialog.net.pl
Mime-Version: 1.0
X-Trace: news.dialog.net.pl 1185453390 30990 81.168.239.95 (26 Jul 2007 12:36:30 GMT)
X-Complaints-To: abuse@dialog.net.pl
NNTP-Posting-Date: Thu, 26 Jul 2007 12:36:30 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.3138
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3138
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message