Форум: "Основная";
Текущий архив: 2005.10.23;
Скачать: [xml.tar.bz2];

Вниз

Перевод части текста программы на fox в Delphi.   Найти похожие ветки 

← →
r9000   (2005-09-29 14:58) [0]

Добрый день!

Не могли бы вы ответить правильно ли я перевел кусочек теста шифрования символов в fox на Delphi.Заранее спасибо.
в fox

tmp4=len(t_txt)
tmp1=""
tmp3=45
for i=1 to tmp4
 tmp2=asc(substr(t_txt,i,1))-32
 if tmp3<0
   tmp3=tmp3+32
 endi
 if tmp2>=0
   tmp3=tmp2+tmp3
   tmp3=iif(tmp3>223,tmp3-223,tmp3)
 else
   tmp3=tmp2
 endi
 tmp1=tmp1+chr(tmp3+32)
endf

в Delphi
stch:=RichEdit1.Text;
tmp3:=45;
tmp1:="";
tmp4:=Length(stch);
 for i := 1 to tmp4 do begin    
     tmp2:=Ord(stch[i])-32;
     if tmp3<0 then tmp3:=tmp3+32;

     if tmp2>=0 then
     begin
       tmp3 := tmp2 + tmp3;
       if tmp3>223 then
       tmp3:=tmp3-223
       else
       tmp3:=tmp3;
     end
     else
     tmp3:=tmp2;

  tmp1:=tmp1+Chr(tmp3+32);
 end;
RichEdit2.Text:=tmp1;

---

← →
Jeer ©   (2005-09-29 16:33) [1]

Так запусти и сравни ответы

---

← →
r9000   (2005-09-30 08:04) [2]

Так я как-то не занимался fox поэтому проблемно сделать программу на нем и проверить этот кусочек.

---

← →
Big Joe ©   (2005-09-30 09:14) [3]

> r9000  
Fox это Vis. FoxPro ?

---

← →
r9000   (2005-09-30 09:40) [4]

нет просто foxpro

---

← →
r9000   (2005-10-01 08:47) [5]

Все здесь вроде правильно. Спасибо

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c