home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 05 / praxis / readkey.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-27  |  300 b   |  12 lines
  1. FOR Loop := 1 TO Gefundene DO BEGIN
  2.   IF (Loop MOD 3 <> 0) THEN BEGIN
  3.     len := 26 - Length(Verzeichnisse[Loop]);
  4.     Write(Verzeichnisse[Loop]);
  5.     FOR i := 1 TO len DO
  6.       Write('');
  7.   END ELSE
  8.     WriteLn(Verzeichnisse[Loop]);
  9. END;
  10. WriteLn(Return, Gefundene, 'directories found.')
  11.  
  12.