Можешь.
Все. Какие проблемы.
Буду дома - выложу пример. Здесь нет HiAsm

------------ Дoбавленo в 16.50:
user_asm писал(а):
Может как-то можно сделать так:
Запускаю прогу.
Импортирую в таблицу из файла CSV с разделителями.
Сохраняю то что появилось в таблице в БД нажатием какой-либо кнопки.
Add(MainForm,2953706,154,147)
{
}
Add(StringTable,12189238,245,56)
{
Left=285
Top=60
Point(Strings)
}
Add(ArrayEnum,13636741,259,147)
{
link(onItem,14606948:doReplace,[])
link(onEndEnum,13169361:doEvent1,[(307,160)(307,195)])
link(Array,12189238:Strings,[])
}
Add(Replace,14606948,308,147)
{
SubStr=";"
DestStr=","
link(onReplace,10743666:doString,[])
}
Add(Button,9310050,147,98)
{
Left=175
Top=90
link(onClick,8668812:doEvent1,[])
}
Add(Hub,8668812,210,98)
{
OutCount=3
link(onEvent1,3382187:doOpen,[])
link(onEvent2,1694048:doData,[])
link(onEvent3,13636741:doEnum,[(244,118)(244,153)])
}
Add(DoData,1694048,364,105)
{
Data=String(BEGIN TRANSACTION;)
link(onEventData,4516976:doWork1,[(424,111)])
}
Add(DoData,3876436,364,189)
{
Data=String(COMMIT;)
link(onEventData,4516976:doWork3,[(424,195)])
}
Add(FormatStr,10743666,364,147)
{
Mask="INSERT INTO <имя таблицы> VALUES(%1) ;"
link(onFString,4516976:doWork2,[])
}
Add(SQLite_Exec,8905781,448,147)
{
link(dbHandle,3382187:dbHandle,[])
}
Add(HubEx,4516976,420,140)
{
link(onEvent,8905781:doExec,[])
}
Add(SQLite_DB,3382187,448,98)
{
}
Add(Hub,13169361,322,189)
{
link(onEvent1,3876436:doData,[])
link(onEvent2,3382187:doClose,[(437,202)(437,111)])
}
Add(InfoTip,5163434,287,7)
{
Info=#13:Примерно так.|20:В FormatStr изменить|18:строку SQL-запроса|15:под свои нужды.|0:|
Font=[MS Sans Serif,8,1,0,1]
Width=169
Height=74
Margin=10
}