代码搜索：Pascal
找到约 9,253 项符合「Pascal」的源代码
代码结果 9,253
www.eeworm.com/read/306033/13754686
pp pascal_com.pp
var
WordApp, Range: Variant;
I: Integer;
WordApp := ActiveXObject.Create("Word.Application");
WordApp.Visible := true;
WordApp.Documents.Add;
Range := WordApp.Documents.Item[1].Range;
Ran
www.eeworm.com/read/306033/13754706
pp pascal_regexp.pp
var r = /[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+/g;
s = 'My e-mails are ab@cable.netlux.org and ppusr154@ints.net';
repeat
if r.exec(s).length = 0 then
Break
else
begin
www.eeworm.com/read/306033/13754729
pp pascal_derivatives.pp
// Symbolic computing. Differentiation.
// Gramma:
// Expression = Term { ( "+"|"-") Term }
// Term = Multiplier { "*"|"/" ) Multiplier }
// Multiplier = Factor { "^" Factor }
// Factor = Nu
www.eeworm.com/read/306033/13754735
pp pascal_twowaylists.pp
program Demo;
function Insert(Value, P: Variant): Variant;
begin
result := [Value, P];
if P null then
P.Owner := result;
P := result;
end;
function Add(Value, P: Variant): Var