🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #101

Re: Jak posortować pliki?

#101
From: LO Radymno
Date: Mon, 21 Dec 1998 13:05
32 lines
1456 bytes
Tomasz Jaruga wypocił wiadomość:
>W programie mam coś takiego:
>
>...
>FindFirst ('*.dat', AnyFile, info);
>if DosError=18
>then Writeln ('Brak dostepnych plikow') else
>begin
> repeat
>  with info do
>  begin
>  ...
>  {tu następuje wypisanie plików}
>  ...
>  end;
> FindNext (info);
> until DosError<>0;
>end;
>...
>
>I teraz:
>
>Pliki, które uzyskuję w wyniku przeszukania są uporządkowane wg. daty
>utworzenia.
>Jak zrobić, aby posortować wyszukane pliki np. alfabetycznie?
>


Zrób sobie plik z direm całego katalogu np. przez Exec...

Have a nice day!
Technical Details
Message-ID: <75lh36$26m$1@h1.uw.edu.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!ict.pwr.wroc.pl!news.swierk.pl!uw.edu.pl!not-for-mail
References: <slrn77b20b.kp.tmpj@ava.adore.net>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!ict.pwr.wroc.pl!news.swierk.pl!uw.edu.pl!not-for-mail
From: "LO Radymno" <zsoradym@waw.ids.edu.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Jak posortować pliki?
Date: Mon, 21 Dec 1998 14:05:09 +0100
Organization: A poorly-installed InterNetNews reader
Lines: 35
Message-ID: <75lh36$26m$1@h1.uw.edu.pl>
References: <slrn77b20b.kp.tmpj@ava.adore.net>
NNTP-Posting-Host: pppb90.rzeszow.tpnet.pl
X-Trace: h1.uw.edu.pl 914245542 2262 195.205.250.90 (21 Dec 1998 13:05:42 GMT)
X-Complaints-To: usenet@h1.uw.edu.pl
NNTP-Posting-Date: 21 Dec 1998 13:05:42 GMT
X-Newsreader: Microsoft Outlook Express 4.71.1712.3
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit