Portál AbcLinuxu, 3. listopadu 2025 05:29
Listing: dosex/ex7.pp
Program Example7 ;
uses Dos ;
{ Program to demonstrate the Fi n dFi r s t and FindNext f u n c t i o n . }
var
Di r : SearchRec ;
begin
FindFi rst ( ’ ’ , archive , Di r ) ;
WriteLn ( ’ FileName ’+Space (32) , ’ Fi leSi ze ’ : 9 ) ;
while ( DosError =0) do
begin
Wr i teln ( Di r .Name+Space(40−Length ( Di r .Name) ) , Di r . Size : 9 ) ;
FindNext ( Di r ) ;
end ;
FindClose ( Di r ) ;
end .
Ty nadbytečné mezery tam pochopitelně být nemají - jsou to např. vynechané apostrofy apod., jinde je tam prostě mezera nevíc. Je chyba v Adobe Readeru či v tom souboru?
sigut.net/tmp/units.pdf
Bohužel to má 4MB, příklad je na straně 51.
Kpdf a Gpdf bohužel kopírovat text přes schránku neumí (alespoň tedy verze co jsou v Debian Sarge) a v xpdf mám rozhozené fonty, ale ani ho do budoucna používat nechci - ty dialogy ap. jsou hrůzné.
Děkuji za nápady
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.