Как этот код переписать с Delphi на JS?

Question

[Виталий]

Всем доброго! Помогите пожалуйста перевести этот код с Delphi в javascript:

unit ipscrpt;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Dialogs, StdCtrls;

  function IpsEncodeString( source: string ): string;
  function IpsDecodeString( source: string ): string;

type
arr = array[0..9, 0..9] of integer;

const mas1: arr = (
      (1, 2, 3, 6, 0, 8, 5, 4, 7, 9),
      (2, 1, 8, 6, 5, 9, 7, 0, 4, 3),
      (7, 6, 1, 5, 8, 4, 2, 9, 3, 0),
      (2, 6, 5, 7, 4, 0, 8, 1, 3, 9),
      (0, 8, 6, 2, 7, 9, 4, 5, 3, 1),
      (5, 7, 8, 0, 6, 9, 2, 4, 3, 1),
      (0, 6, 5, 3, 8, 7, 1, 2, 9, 4),
      (9, 7, 8, 6, 3, 0, 1, 5, 2, 4),
      (1, 0, 5, 9, 2, 7, 3, 6, 4, 8),
      (6, 2, 9, 4, 1, 0, 8, 5, 3, 7)
);

const mas2: arr = (
      (4, 0, 1, 2, 7, 6, 3, 8, 5, 9),
      (7, 1, 0, 9, 8, 4, 3, 6, 2, 5),
      (9, 2, 6, 8, 5, 3, 1, 0, 4, 7),
      (5, 7, 0, 8, 4, 2, 1, 3, 6, 9),
      (0, 9, 3, 8, 6, 7, 2, 4, 1, 5),
      (3, 9, 6, 8, 7, 0, 4, 1, 2, 5),
      (0, 6, 7, 3, 9, 2, 1, 5, 4, 8),
      (5, 6, 8, 4, 9, 7, 3, 1, 2, 0),
      (1, 0, 4, 6, 8, 2, 7, 5, 9, 3),
      (5, 4, 1, 8, 3, 7, 0, 9, 6, 2)
);

implementation

function IpsEncodeString( source: string ): string;
var
  i,j,k: integer;

begin

  for i:=length(source) downto 1 do
  if not(source[i] in ['0'..'9']) then delete(source,i,1);

  result := '';

  i := 0;
  j := 0;

  while (i <= Length(source) - 1) do begin

    k := mas1[j, StrToInt(source[i+1])];
    result := result + IntToStr(k);

    inc(i);
    inc(j);
    if (j>=10) then j := 0;
  end;
end;


end;

end.

Мне нужна именно IpsEncodeString . функция.

Delphi вижу в первый раз, на первый взляд ничего сложного, но чтото у меня не получается....

Comments

[Pavel Shvedov]

ну так ты начни делать, будут затыки - люди подскажут, кому охота всю работу за тебя делать бесплатно?

[Ярослав Иванов]

Pavel Shvedov, "Вы же freelancer от слова free"

[Виталий]

Pavel Shvedov,

var mas1  = [
    [1, 2, 3, 6, 0, 8, 5, 4, 7, 9],
    [2, 1, 8, 6, 5, 9, 7, 0, 4, 3],
    [7, 6, 1, 5, 8, 4, 2, 9, 3, 0],
    [2, 6, 5, 7, 4, 0, 8, 1, 3, 9],
    [0, 8, 6, 2, 7, 9, 4, 5, 3, 1],
    [5, 7, 8, 0, 6, 9, 2, 4, 3, 1],
    [0, 6, 5, 3, 8, 7, 1, 2, 9, 4],
    [9, 7, 8, 6, 3, 0, 1, 5, 2, 4],
    [1, 0, 5, 9, 2, 7, 3, 6, 4, 8],
    [6, 2, 9, 4, 1, 0, 8, 5, 3, 7]
]





function IpsEncodeString(source) {
    var i, j, k;
    console.log(source.length)
    for (i = source.length; i >= 1; i--) {
        if (!source[i-1].match(/[0-9]/)) // source[i]  иначе первый елемент будет undefined
            delete source[i-1];
    }

    result = '';
    i, j = 0;

    while (i <= source.length - 1) {
        k = mas1[j, parseInt(source[i+1])]; // тут если i == последний індекс длины source + 1 получится undefined, так как в source[length +1] не существует
                                               // если же изменить на source[i], то будет ли результат тот что надо ?
        result += k;
        i++;
        j++;
        if (j >= 10){
            j = 0;
        }
    }
    return result
}

В Delphi эта функция должна возвращать строку... но я что то не понимаю где там return

Что скажите ?

[Interface]

p2js.gelicon.biz/en можете почитать про подобные проекты

Answer 1

[bqio]

Пробуйте: https://jsfiddle.net/onxeb2st/2/

Comments

[Виталий]

В Delphi эта функция должна возвращать строку... но я что то не понимаю где там return
Может так ? :

function IpsEncodeString(source) {
    var i, j, k;
    console.log(source.length)
    for (i = source.length; i >= 1; i--) {
        if (!source[i-1].match(/[0-9]/)) // source[i]  иначе первый елемент будет undefined
            delete source[i-1];
    }

    result = '';
    i, j = 0;

    while (i <= source.length - 1) {
        k = mas1[j, parseInt(source[i+1])]; // тут если i == последний індекс длины source + 1 получится undefined, так как в source[length +1] не существует
                                               // если же изменить на source[i], то будет ли результат тот что надо ?
        result += k;
        i++;
        j++;
        if (j >= 10){
            j = 0;
        }
    }
    return result
}

[bqio]

Виталий, да, забыл про это :)

Answer 2

[Abcdefgk]

-- Компарчучос! Пошлибасы.
-- Какой интересный язы-ы-ык!

Так штоле?

var array = [
  [1, 2, 3, 6, 0, 8, 5, 4, 7, 9],
  [2, 1, 8, 6, 5, 9, 7, 0, 4, 3],
  [7, 6, 1, 5, 8, 4, 2, 9, 3, 0],
  [2, 6, 5, 7, 4, 0, 8, 1, 3, 9],
  [0, 8, 6, 2, 7, 9, 4, 5, 3, 1],
  [5, 7, 8, 0, 6, 9, 2, 4, 3, 1],
  [0, 6, 5, 3, 8, 7, 1, 2, 9, 4],
  [9, 7, 8, 6, 3, 0, 1, 5, 2, 4],
  [1, 0, 5, 9, 2, 7, 3, 6, 4, 8],
  [6, 2, 9, 4, 1, 0, 8, 5, 3, 7]
];

ipsEncodeString(array);

function ipsEncodeString(array) {
	array.forEach(function(arr) {
		var res = '';
		for(var i=0; i<arr.length; i++) {
			if(arr[i] < 0 || arr[i] > 9) {
				arr.splice(arr[i], 1);
			} else {
				res += arr[i];
			}
		}
		console.log(res);
	});
}

Comments

[Виталий]

Насколько я понял то в Delphi downto это значит i--

[Abcdefgk]

Не знаю, я его тоже первый раз вижу.

[Виталий]

Abcdefgk, Понятно :)

Answer 3

[Виталий]

На даный момент наиболие подходящий вариант, что пришел в голову:

var mas1  = [
    [1, 2, 3, 6, 0, 8, 5, 4, 7, 9],
    [2, 1, 8, 6, 5, 9, 7, 0, 4, 3],
    [7, 6, 1, 5, 8, 4, 2, 9, 3, 0],
    [2, 6, 5, 7, 4, 0, 8, 1, 3, 9],
    [0, 8, 6, 2, 7, 9, 4, 5, 3, 1],
    [5, 7, 8, 0, 6, 9, 2, 4, 3, 1],
    [0, 6, 5, 3, 8, 7, 1, 2, 9, 4],
    [9, 7, 8, 6, 3, 0, 1, 5, 2, 4],
    [1, 0, 5, 9, 2, 7, 3, 6, 4, 8],
    [6, 2, 9, 4, 1, 0, 8, 5, 3, 7]
]

function IpsEncodeString(source) {
    var i, j, k;

    source = source.replace(/\D/g,"");

    result = '';
    i, j = 0;

    for (i = 1; i <= source.length-1; i++){
        k = mas1[j, parseInt(source[i])];
        result += k;
        j++;
        if (j >= 10){
            j = 0
        }
    }

    return result
}