Question

我试图将delphi代码转换为网页，但结果不一样。我试图找到一些软件将delphi转换成网页，但我发现只有Windows服务器，问题是我需要在只有共享主机的linux服务器上运行此脚本，所以我无法访问使用葡萄酒或其他模拟器的根，所以我只能使用PHP脚本或javascript

delphi代码：

procedure TForm1.Edit1Change(Sender: TObject);
var
  str2 : string;
 key  : TStringList;
 i: integer;
begin
   key := TStringList.create;

  for i := 0 To pred(length(edit1.Text)) do

      begin
        str2 := IntTostr(StrToInt(Copy(trim(edit1.Text),i, 1)) + 5);
        if (Length(str2) = 1)
        then
           key.Add(str2)
        else
         key.Add(Copy(str2,1, 1));
            end ;
      edit2.Text := key.Text;
    end;

html代码：

    <!DOCTYPE HTML SYSTEM>
<head>
<script type="text/javascript">
function magic() {
    var src = document.getElementById('src');
    var dst = document.getElementById('dst');

    var str = src.value;
    var key = '';

    var len = str.length;
    for (var i = 0; i < len; i++) {
        key += str[len - i - 1];
    }

    dst.value = key;
}
</script>
</head>
<body>
<input type="text" id="src">
<button onclick="magic()">Convert</button>
<input type="text" id="dst">
</body>

结果必须是：0123456789 = 5678901234

最好的问候

Answer 1

这是工作代码

$test = $num1;

$result = $test;
for($i = 0; $i < strlen($test); $i++) {
    $result[$i] = ($test[$i] + 5) % 10;
}

如何在linux webserver共享主机上运行delphi应用程序？

1 个答案: