Перевод части текста программы на 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]

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

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