代码搜索：sysutils
找到约 10,000 项符合「sysutils」的源代码
代码结果 10,000
www.eeworm.com/read/257282/11935324
pas aboutdes.pas
unit aboutDES;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 = class(TForm)
Memo1: TMemo;
private
www.eeworm.com/read/343424/11949396
~pas zbase.~pas
unit Zbase;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TZbaseFrm = class(TForm)
private
{ Private declarations }
www.eeworm.com/read/343424/11949552
pas zbase.pas
unit Zbase;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TZbaseFrm = class(TForm)
private
{ Private declarations }
www.eeworm.com/read/343275/11960695
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFmAbout = class(TForm)
MmMessage: TMemo;
privat
www.eeworm.com/read/343275/11960714
~pas unit2.~pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFmAbout = class(TForm)
MmMessage: TMemo;
privat
www.eeworm.com/read/256931/11964042
~pas unit1.~pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
www.eeworm.com/read/256929/11964085
~dpr consolep.~dpr
program consoleP;
{$APPTYPE CONSOLE}
uses
SysUtils;
begin
{ TODO -oUser -cConsole Main : Insert code here }
end.
www.eeworm.com/read/256929/11964090
dpr consolep.dpr
program consoleP;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,c1,c2:integer;
begin
write('a,b=?');
readln(a,b);
c1:=a div b;
c2:=a mod b;
writeln('c1=',c1);
writeln('c2=',c
www.eeworm.com/read/256929/11964097
~dpr consolep.~dpr
program consoleP;
{$APPTYPE CONSOLE}
uses
SysUtils;
begin
{ TODO -oUser -cConsole Main : Insert code here }
end.
www.eeworm.com/read/256929/11964102
dpr consolep.dpr
program consoleP;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,c,d,e,f:integer;
begin
writeln('a=',not 4);
writeln('b=',6 or 2);
writeln('c=',4 and 2);
writeln('d=',6 xor 2);