📄 列表7.8.txt
字号:
【列表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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -