列表7.8.txt

来自「klinux书籍的配套光盘。可以学习学习。」· 文本 代码 · 共 22 行

【列表7.8】摘录自SelectForm.pas的程序代码。 
porocedure TTTypeSelect. FormLoaded(Sender: TObject);
var
 F: TextFile;
 str: String;
begin
 AssignFile( F, '/proc/filesystems' );
 FileMode := fmOpenRead;
 Reset( F );
 Readln( F, str );
  [$I-}
 while ( Length( str ) > 0 ) do
   begin
    str := Trim( str );
    if ( Pos( 'nodev', str ) = 0 )
      then lbFsTypes. Items.Add( str );
    Readln( f, str );
   end;
 CloseFile( F );
 {$I+}
end;