代码大全

Cursor.BlinkRate = EditMode.BlinkRate;

SaveCursor(cursor);

SetCursor(Cursor);

if
begin end
18-31

18-31 Pascal for
if( expression ) then 1
one-statement;

if( expression ) then begin 2a
one-statement;
end;

if( expression ) then 2b
begin
one-statement;
end;

if( expression ) then one-statement; 3

1 2 2a
2b if begin end

3

if
1
2

18-32

18-32 Pascal

if ( ( '0' <= InChar and InChar <= '9' ) or ( 'a' <= InChar and

InChar <= 'z' ) or ( 'A' <= InChar and InChar <= 'Z' )) then