Аналог функции "FOR"

[Den7656]

Приветствую Вас, столкнулся с такой проблемой, нужно переписать JavaScript на Delphi, никак не могу разобраться, вернее разобрался, но никак не могу осуществить функцию FOR там (в JavaScript'е) задается ей три параметра. Куда запихать третий ?
Компилятор ругается, если ставлю z = z + 3 в цикл for'а

PHP код:

<script>
var data = "1111111111222222222279";

var doca1 = '';
for (i = 3; i > 0; i--) {
    for (z = 3 - i; z <= data.length; z = z + 3) {
        doca1 =  doca1+data.charAt(z);
    }}

document.write(doca1);
</script> 


всем ответившим заранее спасибо

[fate]

for i:=3 downto 0 do begin

end;

[Аватар]

for i:=3 downto 1 do begin
  z:=3-i;
  while z<=data.length do begin
    ...
    Inc(z,3);
  end;
end;

[Den7656]

Спасибо за ответы. Странно получается, вроде все сделал верно, а результаты разные в HTML'е и на Delphi. На Delphi не полный результат получается, если сравнить его с первым.

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
p,i,z:integer;
s,s1:string;
begin
s1:='';
s:='1111111111222222222279';
for i:=3 downto 0 do begin
  p:=3-i;
  while p<=length(s) do begin
      Inc(p,3);
    s1:=s1+s[p];
  end;
end;  
memo2.Lines.Add(s1);
end; 


[Аватар]

В первом цикле разве до 0?
i > 0 -- до 1


ADD

и Inc(p,3); перед концом цикла должен быть

[Den7656]

Результат тот же, ставил и единицу, и ноль, на результат не влияет.

[Den7656]

Сообщение от Аватар

В первом цикле разве до 0?
i > 0 -- до 1


ADD

и Inc(p,3); перед концом цикла должен быть

спасибо, но не помогло, пробовал по-разному ((

и так:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
p,i,z:integer;
s,s1:string;
begin
s1:='';
s:='123456789abcd';
for i:=3 downto 0 do begin
  p:=3-i;
  while p<=length(s) do begin
     Inc(p,3);
    s1:=s1+s[p];
     Inc(p,3);
  end;
end;
memo2.Lines.Add(s1);
end; 


Возвращает 39

и так:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
p,i,z:integer;
s,s1:string;
begin
s1:='';
s:='123456789abcd';
for i:=3 downto 0 do begin
  p:=3-i;
  while p<=length(s) do begin
     Inc(p,3);
    s1:=s1+s[p];
     Inc(p,3);
  end;
  Inc(p,3);
end;
memo2.Lines.Add(s1);
end; 


Возвращает 39

и так:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
p,i,z:integer;
s,s1:string;
begin
s1:='';
s:='123456789abcd';
for i:=3 downto 0 do begin
  p:=3-i;
  while p<=length(s) do begin
     Inc(p,3);
    s1:=s1+s[p];
    end;
  Inc(p,3);
end;
memo2.Lines.Add(s1);
end; 


Возвращает 369c

а сама функция:

PHP код:

<script>
var data = "123456789abcd";

var doca1 = '';
for (i = 3; i > 0; i--) {
    for (z = 3 - i; z <= data.length; z = z + 3) {
        doca1 =  doca1+data.charAt(z);
    }}

document.write(doca1);
</script>
<br>
<br>
<br> 


Возвращает 147ad258b369c
то есть сперва берет 1-ый, потом 4-ый, потом 7-й, потом 10-й, потом 13-й символы.. Потом 2-ый, потом 5-ый, потом 8-й, потом 11-й....
Че-то никак не сообразить как в циклах это организовать
В голове уже каша какая-то...

Надеялся, что человек, наконец-то, начнет оформлять код по правилам, но так и не дождался...
А посему - получите заслуженную кару.

[Аватар]

А как нужно так и не пробовали

 while p<=length(s) do begin 
    s1:=s1+s[p]; 
    Inc(p,3); 
 end;

[Den7656]

Так тоже пробовал... не получается((

[Аватар]

procedure TForm2.Button2Click(Sender: TObject);
var i,j: Integer;
    s1,s2: String;
begin
  s1:='123456789abcd';
  s2:='';
  for i:=1 to 3 do begin
    j:=i;
    while j<=Length(s1) do begin
      s2:=s2+s1[j];
      Inc(j,3);
    end;
  end;
  Label4.Caption:=s2;  //результат
end;