Автор | Сообщение |
|
| |
Пост N: 1
Зарегистрирован: 15.11.12
|
|
Отправлено: 15.11.12 14:42. Заголовок: Вопрос по сборке проекта
использую Clipper 5.2e portable выкачанный по адресу http://softclipper.narod.ru/download.html. При сборке проекта rtlink предлагает указать путь до библиотеки CE50.LIB. Подскажите пожалуйста где найти данный файлик... или полноценную папку со всеми библиотеками. Опыт работы с clipper отсутсвует а экзешник собрать очень хочется. Please help...
|
|
|
Ответов - 67
, стр:
1
2
3
4
All
[только новые]
|
|
|
| moderator
|
Пост N: 465
Зарегистрирован: 06.07.06
|
|
Отправлено: 05.12.12 10:05. Заголовок: А другие static пере..
А другие static переменные работают нормально, или там только SetStack объявлена ?
|
|
|
|
| moderator
|
Пост N: 466
Зарегистрирован: 06.07.06
|
|
Отправлено: 05.12.12 10:19. Заголовок: И еще, файл компилир..
И еще, файл компилируется с ключом /n ?
|
|
|
|
| |
Пост N: 27
Зарегистрирован: 15.11.12
|
|
Отправлено: 05.12.12 11:28. Заголовок: строка вызова компил..
строка вызова компилятора: clipper name_file /b /m /w >1.log перенес эти две процедуры в другой модуль #include "Set.ch" #include "common.ch" #include "inkey.ch" static SetStack:={}, Static37, Static38, Static39, Static40, Static41, Static42 static Static2, Static3, Static4, Static5, Static7 ******************************** procedure SaveSet() AAdd(SetStack, {Select(), indexord(), RecNo()}) ******************************** procedure RestoreSet() local length:= Len(SetStack) if (length > 0) select (SetStack[length, 1]) set order to SetStack[length, 2] go SetStack[length, 3] endif aSize(SetStack, length - 1) ******************************** function GETSECRET(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8) local Local1:= Row(), Local2:= Col(), Local3[1], Local4 Static38:= iif(Arg2 = Nil, Local1, Arg2) Static39:= iif(Arg3 = Nil, Local2, Arg3) if (Arg4 = Nil) Arg4:= .F. endif SetPos(Static38, Static39) if (Arg5 != Nil) dispout(Arg5) Static39:= Col() + 1 SetPos(Static38, Static39) endif if (csetdeli()) Static39++ endif Static37:= Arg1 Local3[1]:= __Get({|_1| iif(ISNIL(_1), Static37, Static37:= _1)}, ; "_CGETSECRET", Arg6, Arg7, Arg8) Local3[1]:row(255) Static40:= Local3[1] Static42:= wselect() Static41:= MaxCol() + 1 - Static39 Local4:= trapinput("_SECRET") ReadModal(Local3) trapinput(Local4) if (!Arg4) unselected() endif @ Static38, Static39 say rangerepl(33, 31, Static37, "*") standard() SetPos(Local1, Local2) return Static37 ******************************** procedure _SECRET local Local1 if (wselect() = Static42 .AND. readvar() == "_CGETSECRET") Static40:assign() Local1:= dsetwindow(.T.) sayscreen(rangerepl(33, 31, Left(Static37, Static41), "*"), ; Static38, Static39) dsetwindow(Local1) SetPos(Static38, Col()) endif return ******************************** НЕТ ТАКОЙ ПЕРЕМЕННОЙ....Хотя рядом статические переменные которые используются в ф-циях ввода пароля....Пароль же я ввожу при входе в программу и там все нормально.
|
|
|
|
| moderator
|
Пост N: 467
Зарегистрирован: 06.07.06
|
|
Отправлено: 05.12.12 12:06. Заголовок: Чтобы статические пе..
Чтобы статические переменные, объявленные вне процедур, были видны, надо при компиляции добавить ключ /n
|
|
|
|
| |
Пост N: 28
Зарегистрирован: 15.11.12
|
|
Отправлено: 05.12.12 12:31. Заголовок: alkresin - СПАСИБО. ..
alkresin - СПАСИБО. Век живи век учись. Одной проблемой стало меньше.
|
|
|
|
| |
Пост N: 29
Зарегистрирован: 15.11.12
|
|
Отправлено: 20.12.12 19:40. Заголовок: Перевел проект на xH..
Перевел проект на xHarbour. Появилась стабильность. Доработал печать... Прощай LPT. Появилась возможность запускть прогу под win2008 x64. После нового года буду пробовать людей сажать работать через удал. раб стол.... Красотищщааа.... Всем огромное спасибо за участие... Не прощаюсь. Вопросы все равно будут еще возникать.
|
|
|
|
| постоянный участник
|
Пост N: 2500
Зарегистрирован: 12.09.06
|
|
Отправлено: 21.12.12 10:24. Заголовок: yukirin пишет: Крас..
|
|
|
Ответов - 67
, стр:
1
2
3
4
All
[только новые]
|
|