代码搜索：sysutils
找到约 10,000 项符合「sysutils」的源代码
代码结果 10,000
www.eeworm.com/read/107433/15607056
~pas unit2.~pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2:
www.eeworm.com/read/107227/15611505
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TMainForm = class(TForm)
private
{ Private declarations }
www.eeworm.com/read/105428/15667265
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{
www.eeworm.com/read/104962/15680694
l commentc.l
%{
(* 计算C代码中的注释，空行和代码行*)
program CommentC;
{$APPTYPE CONSOLE}
uses
SysUtils, LexLib;
var
comments, code, whiteSpace:integer;
%}
%s COMMENT
%%
^[ \t]*"/*" Start(COMMENT); {* 进入注释状态 *}
^[ \t]*"/*".
www.eeworm.com/read/104962/15680696
l magic2.l
%{
(* 演示状态的用法，这个示例故意做成不能运行 *)
program Magic2;
{$APPTYPE CONSOLE}
uses
SysUtils, LexLib;
%}
%s MAGIC
%%
magic Start(MAGIC);
.+ ECHO;
.+ begin
Start(0);
Write('Ma
www.eeworm.com/read/104962/15680697
l magic.l
%{
(* 演示状态的用法 *)
program Magic;
{$APPTYPE CONSOLE}
uses
SysUtils, LexLib;
%}
%s SMAGIC
%%
.+ begin
Start(0);
write('Magic:');
ECHO;
end;
magic start(SMAGIC
www.eeworm.com/read/104962/15680705
y expression.y
%{
{*
计算简单的数学表达式的yacc程序
编译：yacc Expression ExpressionY
*}
unit ExpressionY;
interface
uses
SysUtils, LexLib, YaccLib, ExpressionL;
%}
%token NAME NUMBER
%%
statement: NAME '=' expression
www.eeworm.com/read/104962/15680711
dpr expression.dpr
program Expression;
{$APPTYPE CONSOLE}
uses
SysUtils, ExpressionY;
begin
while yyparse=0 do
end.
www.eeworm.com/read/104962/15680718
l printline.l
%{
(* 演示程序，演示ECHO的用法
对于从控制台输入的每一行，都重新打印一遍
使用: printline
生成工程文件: lex printline printline.dpr
*)
program PrintLine;
{$APPTYPE CONSOLE}
uses
SysUtils, LexLib;
%}
%
www.eeworm.com/read/104962/15680719
dpr expression3.dpr
program Expression3;
{$APPTYPE CONSOLE}
uses
SysUtils, ExpressionY3;
begin
while yyparse=0 do
end.