axej писал(а):
так ак этот пробел впарсить?А на фиг там StrCat, когда можно Format применить
Add(MainForm,745238,273,175)
{
Width=494
Height=509
}
Add(Button,10203817,343,252)
{
Left=15
Top=165
Width=65
Caption="Загрузить"
link(onClick,8400941:doExecute,[])
}
Add(ODialog,8400941,420,252)
{
link(onExecute,3683063:doLoad,[])
}
Add(Label,75552,343,175)
{
Left=15
Top=15
Width=45
Height=17
Caption="Строчки"
}
Add(RichEdit,2698902,630,308)
{
Left=15
Top=230
Width=370
Height=165
}
Add(Label,5703066,343,175)
{
Left=15
Top=205
Width=56
Height=17
Caption="Результат"
}
Add(Button,8348624,343,322)
{
Left=15
Top=400
Width=140
Height=40
Caption="Генерировать!"
link(onClick,16229012:doRandom,[])
}
Add(Random,16229012,427,322)
{
Max=5
link(onRandom,4946014:doRead,[])
}
Add(ArrayRW,4946014,483,322)
{
link(onRead,2349334:doString,[])
link(Array,3683063:Array,[])
}
Add(ListBox,3683063,469,224)
{
Left=15
Top=35
Width=370
Height=120
Strings=#3:жил|3:был|3:пес|1:и|4:был |2:у |4:него|
}
Add(FormatStr,2349334,553,322)
{
link(onFString,2698902:doText,[])
link(Str2,2698902:Text,[(566,310)(601,310)(601,358)(636,358)])
}