VPF::Перевод кода javascript в код Delphi - Форум программистов

dilik

Дата 8.2.2007, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 9.5.2006
Где: CCCP

Репутация: нет
Всего: нет

Вот код яваскрипта, надо его переделать в код Delphi! Кто поможет?

Код


 <script language=javascript>
ax=0;
function writeTable() {
    ax=Math.round(Math.random()*26);
    alphaArray=new Array("a", "n", "b", "d", "f", "h", "{", "i", "l", "v", "x", "z", "I", "J", "M", "N", "o", "O", "R", "S", "T", "U", "m", "6", "^", "u", "_", "[", "]")
    table="<table border=0 cellspacing=1 cellpadding=1 width='40%'><tr>"
    j=1;
    for ( i = 99 ; i >= 0 ; i-- ) {
        a=Math.round(Math.random()*26);
        if ( i%9 == 0 &&  i < 89 ) 
            a=ax;
        table+="<td class='numtd'>"+i+"</td><td class='symtd'>"+alphaArray[a]+"</td>"
        if ( j%10 == 0 ) 
            table+="</tr><tr>"    
        j++
    }
    table+="</table>"
    sym.innerHTML=table
    sh.innerHTML=""
}
function showAnswer() {
    sh.innerHTML=alphaArray[ax]
    sym.innerHTML="<h1><a href='javascript:writeTable()'>Невероятно:)(! Попробуем еще разок?</a></h1>"
}
</SCRIPT>

Aliance

Дата 8.2.2007, 22:49 (ссылка)

(нет голосов)

Загрузка ...

I ♥ <script>

Профиль
Группа: Модератор
Сообщений: 6418
Регистрация: 2.8.2004
Где: spb

Репутация: 55
Всего: 137

Думаю, тебе нужно в раздел по Делфи. Я знаю JS, но Делфи практически нет =)

--------------------

• Все о событиях
• Объекты и массивы
• ОКНА И ФРЕЙМЫ

JAVA ≠ JavaScript

Nicholas_S

Дата 8.2.2007, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 486
Регистрация: 12.10.2006
Где: Санкт-Петербург

Репутация: 5
Всего: 19

Будет так:

Код


  const
      alphaArray: Array[0..28] of char = ('a', 'n', 'b', 'd', 'f', 'h', '{', 'i', 'l', 'v', 'x', 'z', 'I', 'J', 'M', 'N', 'o', 'O', 'R', 'S', 'T', 'U', 'm', '6', '^', 'u', '_', '[', ']');
  var
      ax: Integer = 0;
      sh_innerHTML: String;

implementation

{$R *.dfm}

function writeTable(): String;
 var   table: String;
       i, j, a: Integer;
begin
  Randomize;
  ax := random(27);
  table := '<table border=0 cellspacing=1 cellpadding=1 width="40%"><tr>';
  j :=1;
  for i := 99 downto 0 do
  begin
      a := random(27);
      if (i mod 9 = 0) and (i < 89) then
        a := ax;
        table := table + '<td class="numtd">'+IntToStr(i)+'</td><td class="symtd">'+alphaArray[a]+'</td>';
        if (j mod 10 = 0) then
          table := table + '</tr><tr>';
        Inc(j);
  end;

  Result := table + '</table>';
end;

function showAnswer(): String;
begin
  sh_innerHTML := alphaArray[ax];
  Result := '<h1><a href="javascript:writeTable()">Невероятно:)(! Попробуем еще разок?</a></h1>';
end;

Только здесь writeTable и showAnswer не пишут никуда текст, а возвращают его как результат выполнения функции.

--------------------

...все в мире относительно

dilik

Дата 9.2.2007, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 9.5.2006
Где: CCCP

Репутация: нет
Всего: нет

СПАСИБО! Вот только что с Result делать?!

Код


 Result := '<h1><a href="javascript:writeTable()">Невероятно:)(! Попробуем еще разок?</a></h1>';

Delphi его не поймет, думаю разберусь smile

Nicholas_S

Дата 9.2.2007, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 486
Регистрация: 12.10.2006
Где: Санкт-Петербург

Репутация: 5
Всего: 19

Ну это уж в зависимости от задачи. Функция возвратить текст, делай с ним все, что захочешь.

--------------------

...все в мире относительно

dilik

Дата 10.2.2007, 15:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 9.5.2006
Где: CCCP

Репутация: нет
Всего: нет

всем спасибо, проблему решил

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| JavaScript: Общие вопросы \| Следующая тема »