Jak posortować pliki?

Article View: pl.comp.lang.pascal

Article #91

Back to pl.comp.lang.pascal Previous Next

#91

From: Tomasz Jaruga
Date: Mon, 14 Dec 1998 22:13

31 lines
1676 bytes

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?

PS. "info" to zmienna: "info : SearchRec; "
-- 
     Tomasz Jaruga     #     GED>E$ d- s+:-- a22 C++ UL++ P- L++ E+ W++ N++
   tmpj@friko.onet.pl   #       o? K? w(---) O? M? V? PS+ PE++ Y? PGP+ t 5?
  http://come.to/tmpj/   #         X- R- tv- b+ DI? D- G e h!>h--- r++ y+++
#########################  Powered by Linux 2.0.36 RedHat 5.1 Manhattan  ##

Technical Details

Message-ID: <slrn77b20b.kp.tmpj@ava.adore.net>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!news.nask.pl!orion.cst.tpsa.pl!netra.daewoo.com.pl!news.task.gda.pl!tmpj

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!news.nask.pl!orion.cst.tpsa.pl!netra.daewoo.com.pl!news.task.gda.pl!tmpj
From: tmpj@friko.onet.pl (Tomasz Jaruga)
Newsgroups: pl.comp.lang.pascal
Subject: Jak posortować pliki?
Date: 14 Dec 1998 22:13:07 GMT
Organization: Niezrzeszony :-)
Lines: 31
Message-ID: <slrn77b20b.kp.tmpj@ava.adore.net>
Reply-To: tmpj@friko.onet.pl
NNTP-Posting-Host: ppp14.koszalin.tpnet.pl
Mime-Version: 1.0
X-Trace: korweta.task.gda.pl 913673587 3525 194.204.177.14 (14 Dec 1998 22:13:07 GMT)
X-Complaints-To: abuse@task.gda.pl
NNTP-Posting-Date: 14 Dec 1998 22:13:07 GMT
X-Geekcode-W-Sygnaturce: http://www.geekcode.com/
X-Operating-System: Linux 2.0.36 i586 ava.adore.net
User-Agent: slrn/0.9.5.4 (UNIX)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit