user_asm писал(а):
На форме множество компонентов Edit. Вводить символ " в эти поля запрещено. Сейчас стоит проверка при вводе текста в эти поляВообще-то -- как два пальца...
Add(MainForm,2953706,35,84)
{
Point(doKeyBack)
Point(onChar)
link(onChar,12491807:doCase,[])
}
Add(Edit,12661680,86,238)
{
Left=14
Top=210
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,2475086,83,235)
{
Left=119
Top=126
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,8988506,76,228)
{
Left=224
Top=210
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,7517785,81,232)
{
Left=14
Top=42
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,6205481,78,229)
{
Left=119
Top=42
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,9227098,71,222)
{
Left=224
Top=42
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,6882819,74,225)
{
Left=14
Top=70
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,4683989,71,222)
{
Left=119
Top=70
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,9325189,64,215)
{
Left=224
Top=70
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,5346517,67,218)
{
Left=14
Top=98
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,14782941,64,215)
{
Left=119
Top=98
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,15663688,57,208)
{
Left=224
Top=98
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,2408624,60,211)
{
Left=14
Top=126
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,15304285,57,208)
{
Left=119
Top=210
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,8533748,50,201)
{
Left=224
Top=126
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,5021420,53,204)
{
Left=14
Top=154
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,12681174,50,201)
{
Left=119
Top=154
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,1864141,43,194)
{
Left=224
Top=154
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,4685461,46,197)
{
Left=14
Top=182
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,8006975,43,194)
{
Left=119
Top=182
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,8245348,36,187)
{
Left=224
Top=182
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,5718533,32,183)
{
Left=14
Top=14
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,6161174,29,180)
{
Left=119
Top=14
Width=91
Height=21
Text="1111111111111"
}
Add(Edit,8434914,22,173)
{
Left=224
Top=14
Width=91
Height=21
Text="1111111111111"
}
Add(Case,12491807,105,105)
{
Value=String(")
DataOnTrue=Integer(0)
link(onTrue,2953706:doKeyBack,[(144,118)(144,146)(25,146)(25,118)])
}