Вопросы от неразбирающегося (Page 1 of 3)

Доброго времени суток!
Спасибо что заинтересовались
1 пока отпал
файлик прикрепил

Еще кое что без чего жить не смогу
Сканер штрихкода
В скрипте пишу:

var
  sHello: string;
  sMestaX: array [1..2] of string;

procedure HelloWorld (s: string);
begin
  ShowMessage(s);
end;

begin
  // just for example
  sMestaX[1]:='ПН';
  sMestaX[2]:='РН';
  sHello := 'Script said hello!';
  HelloWorld(sHello);
end.

т.е. определяю массив sMestaX
и наполняю значениями
sMestaX[1]:='ПН';
sMestaX[2]:='РН';
хотелось видеть это на форме (ПН ,РН)
ComboBox (Выпадающий список)
Это возможно?
С уважением,
Денис

Обычно для этих целей создают таблицу БД, в которой вы заносите такие записи как ПН, РН и т.д.
Затем создается внешний ключ в другой таблице, в котором будет сохраняться данный выбор с использованием ComboBox.
У вас должен быть довольно специфичный случай, чтобы реализовать это все скриптом.

Рекомендую вам данную книгу, в которой в доступной форме можете прочитать введение в базы данных с использованием My Visual Database
http://myvisualdatabase.com/forum/viewtopic.php?id=2554

Доброго времени суток Дмитрий,

Про сканер ШК:

да это так
без разницы где находится курсор, никто не будет в моем случае разбираться.
хотелось бы вызов какой-то процедуры после срабатывания сканера ШК
а в этой процедуре я сам направлю куда записать символы переданные сканером ШК

Про БД:
Данные документа хранятся в четырех таблицах
в зависимости от поля TipDoc данные берутся из еще одной  таблицы (по типу Документа они разные)
поэтому для добавления/сохранения/удаления
нужно писать какой-то запрос  (или скрипт)
мои мысли:
При добавлении
1 Начинаем тразакцию
2 Добавляем запись в таблицу Docs.(TipDoc не забываем он же нам известен) При этом получаем id записи таблицы Docs
3 Добавляем записи в таблицу dvKontra с этим id
4 Добавляем записи в таблицу dvSklad с этим id
5 Так как мы знаем TipDoc (что за документ мы создаем) то в соответствующую таблицу
    добавляем запись (не забывая про полученный id)
6 Сохраняем транзакцию.
Как это написать?
  С уважением,
Денис

По поводу сканера. Для формы можно установить свойство KeyPreview = True, таким образом все нажатия на клавиатуру будут перехватываться в событии формы OnKeyPress, поэтому достаточно чтобы просто форма была активна и в фокусе, но тут необходимо решить, как отличить сканер от обычной клавиатуры, возможно сканер позволяет задать какой либо префикс к сообщению, который передает при сканировании?

По поводу второго вопроса, к сожалению тут без скриптов не обойтись, сделал для вас проект с примером

Спасибо Дмитрий!

Ничего страшного в использовании скриптов не вижу.
Присланную настройку посмотрю на выходных
Спасибо большое за то что Вы таким как я занимаетесь
вскользь посмотрел не увидел транзакции

С уважением,
Денис

я конечно не сталкивался со сканерами, но все же...

мне это то же понадобиться... 
Вопрос такой  Сканер уже имеет префикс и суфикс или их нужно настраивать?

если уже меет...
то создать отдельный диалог для настройки сканера,  в деологе оставить edit 1(префикс) и edit 2(суфикс)  и кнопку сохранить
теперь в самой программе создаем условие с учетом префикса и суфикса..
Далее сканируем любой штрих код ... скриптом получаем префикс и суфикс помещам edit 1(префикс) и edit 2(суфикс), сохраняем в базу

Доброго времени суток!
Поясните, пожалуйста, такую вещь. В языках программирования разбираюсь мало, немного работал со скриптованием в Lua (игра STALKER). Там есть возможность вместо нескольких отдельных условий
if ... then ... end
if ... then ... end
if ... then ... end
изобразить код таким образом:
if ... then ...
elseif ... then ...
elseif ... then ...
end

Есть ли возможность в скриптах My Visual Database использовать такой же способ? И если есть, то как правильно его оформить в этой программе?
Заранее спасибо!

попробуйте так

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    NeedFile,sFileName: string;
begin
    NeedFile := '\File\'+Form1.Edit1.Text;
    sFileName := ExtractFileDir(Application.ExeName) + NeedFile;
    OpenFile(sFileName);    
end;

Здравствуйте.
Может ли кто-нибудь подсказать аналог нижеуказанной хэш-таблицы (Lua) для Delphi, а также как к ней правильно обратиться (перебор)?

local tbl_spec =  {
                             ["item1"] = "info1",
                             ["item2"] = "info2",
                             ["item3"] = "info3",
                             ["item4"] = "info4",
                             ["item5"] = "info5"
                            }
for k,v in pairs(tbl) do         --перебираем таблицу

Спасибо большое за помощь!

попробуйте так

Form2.SDamage.Value := Round(0.2 * Form2.TProperty.Value);

К сожалению доработка текстового редактора не планируется, т.к. это сторонний компонент, но возможно в будущем он будет заменен.