我有一个抓取随机网址的功能。
FUNCTION randurl : String;
BEGIN
// Randomize URL
Rx2 := RandomInt(4);
if (Rx = 0) then
result := 'www.site1.com'
else if (Rx2 = 1) then
result := 'www.site2.com'
else if (Rx2 = 2) then
result := 'www.site3.com'
else if (Rx2 = 3) then
result := 'www.site4.com';
END;
我正在编译一个字符串......
var Rx2 : integer;
{Declaration (Functions and Procedures)}
// Construct the GET String for the Web Script, call it and return the output
PROCEDURE update(status : String); forward;
BEGIN
// Message to display in twitter
statusmessage := '#Nowplaying ' + Song['artist'] + ' - ' + Song['title'] + ' @ ' + $FUNCTION_OUTPUT_VARIABLE + ' #' + Song['genre'];
update(statusmessage);
END;
END;
如果$ FUNCTION_OUTPUT_VARIABLE在上面,我需要包含随机URL。如何调用该函数,然后在每次传递代码时插入输出?
非常感谢!
编辑:
这是我使用上述功能的解决方案。
{Declaration (Variables)}
var Rx2 : integer;
FUNCTION randurl : String; forward;
BEGIN
// Message to display in twitter
statusmessage := '#Nowplaying ' + Song['artist'] + ' - ' + Song['title'] + ' @ ' + randurl + ' #' + Song['genre'];
update(statusmessage);
END;
END;
答案 0 :(得分:2)
我不知道PAL语言,这里有两种变体,它们如何在Delphi中运行:
首先:
var
tmp: String;
begin
tmp := randurl;
statusmessage := '#Nowplaying ' + Song['artist'] + ' - ' + Song['title'] +
' @ ' + tmp + ' #' + Song['genre'];
update(statusmessage);
end;
end;
第二
begin
statusmessage := '#Nowplaying ' + Song['artist'] + ' - ' + Song['title'] +
' @ ' + randurl + ' #' + Song['genre'];
update(statusmessage);
end;
end;