Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!Как перевести данный текст в Delphi?
***** СБОР ИНФОРМАЦИИ ПО ДАМЕ
***** ТРЕБУЕТСЯ ЗАДАТЬ ИМЯ ПЕРВОГО ФАЙЛА С ИНФОРМАЦИЕЙ
***** SUM.DBF - РАБОЧИЙ ФАЙЛ
***** РЕЗУЛЬТАТ ОБЪЕДИНИЯ ВСЕЙ ИНФОРМАЦИИ С ДАТОЙ РАЗГОВОРА В TZ.DBF
**********************************************************************
set talk off
sele 1
use cr
dele all
pack
clea
dat=' '
@ 5,10 say 'Определите дату первого дня (ГГММДД) ' get dat pict 'XXXXXX'
read
fil='cr'+dat+'.cr'
do whil .t.

if .not. file(fil)
dele all for substr(txt,1,5)=' '
pack
* quit
return
endif
append from &fil type sdf
a=val(substr(fil,7,2))+1
if a<10
b='0'+alltrim(str(a))
else
b=alltrim(str(a))
endif
fil=substr(fil,1,6)+b+'.cr'

enddo

Вопрос задал: Usmonov Farrukh Faiziddinovich (статус: Посетитель) Вопрос отправлен: 28 мая 2007, 14:40 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Usmonov Farrukh Faiziddinovich!
Это какой язык? алгол? Отформатируйте для начала его нормально. А потом можно будет смотреть. Почему? просто здесь без этого сложновато очень. Хотя тут и так всё просто.
например
if условие
выполнять
endif
на паскале
if условие then begin
выполнять
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 28 мая 2007, 14:53

Мини-форум вопроса

Помфюк Владимир Степанович (статус: Абитуриент), 29 мая 2007, 14:29 [#1]: 1)FOX я узнал. Но что творит приведённый кусок так и не понял. Лучше бы Вы задачу описали. 2)функция pack если и существует, то где-то в API BDE 3)кто такой SDF, Delphi тоже может не знать

Venom (статус: 1-ый класс), 31 мая 2007, 08:51 [#2]: Действительно, это FOX Вообще однозначно переводить данный код нет необходимости, поэтому определю только некоторые процедуры/функции в коде: set talk off - отключение служебных сообщений. В делфи нет необходимости sele 1 - выбор области данных, - || - use cr - выбор базы cr dele all - очистка базы pack - упаковка базы clea - очистка экрана @ 5,10 say 'Определите дату первого дня (ГГММДД) ' get dat pict 'XXXXXX' - вывод на экран, установка формата вводимой даты read - чтение substr(txt,1,5) - поиск подстроки в строке val(substr(fil,7,2)) - аналог как в делфи, перевод строки в число alltrim(str(a)) - удаление пробелов слева и справа в строке, по-моему, просто Trim в делфи Остальное, думаю, итак понятно, так что дерзай

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.