Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

r9000 © (2005-09-29 14:58:00)
Добрый день!

Не могли бы вы ответить правильно ли я перевел кусочек теста шифрования символов в 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;

r9000 (2005-10-01 08:47:00) [1]
Все здесь вроде правильно. Спасибо

r9000 (2005-09-30 09:40:00) [2]
нет просто foxpro

Big Joe (2005-09-30 09:14:00) [3]
> r9000
Fox это Vis. FoxPro ?

r9000 (2005-09-30 08:04:00) [4]
Так я как-то не занимался fox поэтому проблемно сделать программу на нем и проверить этот кусочек.

Jeer (2005-09-29 16:33:00) [5]
Так запусти и сравни ответы

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »