LeoN писал(а):
Для достоверности видео.Странно на видео инсерты в таблицу просаживаются, значит никаких ошибок не возникает. Вместо кириллицы пустые строки.
LeoN писал(а):
нет поддержки кириллицыКириллица есть во всех пакетах, а вот юникод только в новом FPC https://forum.hiasm.com/topic/61538
Я в базу положил десятки миллионов строк кириллицей, как новым пакетом, так и стандартным.
Создал таблицу tbd_a_gorod, все отлично работает на всех компиляторах.
Вот скомпилировал (FPC-32U) такую схему для тебя, попробуй https://forum.hiasm.com/getfile/39214
Add(MainForm,3159344,210,203)
{
Width=312
Height=209
Caption="MySQL_Test - FPC-32U"
}
Add(Button,10320345,175,350)
{
Left=200
Top=135
Width=75
Caption="Добавить"
link(onClick,3127835:doEvent1,[])
}
Add(Edit,8517992,336,287)
{
Left=10
Top=135
Width=70
Text="ти"
}
Add(Edit,8360024,378,287)
{
Left=105
Top=135
Width=75
Text="тим"
}
Add(dbMySQL,2986171,434,217)
{
Login="root"
Password="123"
Charset=5
link(Host,675880:Text,[])
link(Login,218024:Text,[(447,159)(482,159)])
link(Password,9500953:Text,[(454,166)(524,166)])
link(DBName,11659281:Text,[(461,173)(566,173)])
link(onError,12549617:doMessage,[])
}
Add(dbMySQL_Query,15116078,434,357)
{
link(dbHandle,2986171:dbHandle,[])
}
Add(FormatStr,15839493,371,357)
{
Mask="INSERT INTO tbd_a_gorod VALUES('%1','%2',NULL);"
link(onFString,15116078:doQuery,[])
link(Str1,8517992:Text,[(377,341)(342,341)])
link(Str2,8360024:Text,[])
}
Add(Edit,675880,434,119)
{
Left=125
Top=10
Width=155
Text="localhost"
}
Add(Edit,218024,476,119)
{
Left=125
Top=35
Width=155
Text="root"
}
Add(Edit,9500953,518,119)
{
Left=125
Top=60
Width=155
Text="root"
}
Add(Edit,11659281,560,119)
{
Left=125
Top=85
Width=155
Text="naselenie"
}
Add(Label,16197053,343,126)
{
Left=15
Top=10
Width=42
Height=24
Font=[MS Sans Serif,12,1,0,1]
Caption="Host"
}
Add(Label,13207615,340,123)
{
Left=15
Top=35
Width=48
Height=24
Font=[MS Sans Serif,12,1,0,1]
Caption="Login"
}
Add(Label,2882873,340,123)
{
Left=15
Top=60
Width=81
Height=24
Font=[MS Sans Serif,12,1,0,1]
Caption="Password"
}
Add(Label,6425973,334,117)
{
Left=15
Top=85
Width=75
Height=24
Font=[MS Sans Serif,12,1,0,1]
Caption="DBName"
}
Add(Hub,3127835,238,350)
{
link(onEvent1,14465400:doEvent1,[(263,356)(263,223)])
link(onEvent2,15839493:doString,[])
}
Add(Message,12549617,532,217)
{
}
Add(Hub,14465400,350,217)
{
link(onEvent1,2986171:doOpen,[])
link(onEvent2,2986171:doSelectDB,[(424,230)(424,237)])
}