Например, было 2 текстовика такого содержания:
Первый текстовик:
Первая строка
Вторая строка
Третья строка
Второй текстовик:
Строка №1
Строка №2
Строка №3
Вписываем разделитель(Например ^) в поле ввода, и начинаем слияние, но возникла проблема о которой я не подумал, слияние идёт не построчно, а целым текстом...
А мне надо чтобы в результате было так:
Первая строка^Строка №1
Вторая строка^Строка №2
Третья строка^Строка №3
Как это сделать? Ничего подобного не нашёл в уроках...
Вот мои наброски:
Add(MainForm,2953706,21,105)
{
}
Add(StrCatDelim,12783694,462,602)
{
Point(Delimiter)
link(onStrCatDlm,5242045:doAdd,[])
link(Str1,5514167:Text,[(468,534)(405,534)])
link(Str2,15730629:Text,[])
link(Delimiter,8238757:Text,[])
}
Add(Edit,8238757,476,546)
{
Top=60
Width=194
Height=25
Text="Разделитель"
}
Add(Button,5755714,385,602)
{
Top=85
Width=195
Height=35
Caption="Начать соединение"
link(onClick,12783694:doStrCatDlm,[])
}
Add(Button,6201846,385,651)
{
Top=120
Width=195
Height=35
Caption="Сохранить файл"
link(onClick,11466419:doExecute,[])
}
Add(SDialog,11466419,462,651)
{
Filter="Текстовый документ(*.txt)"
FileName="Good.txt"
Point(doFileName)
}
Add(Button,13271974,357,364)
{
Width=195
Height=30
Caption="Первые строки"
link(onClick,3816886:doExecute,[])
}
Add(Button,10248395,287,448)
{
Top=30
Width=195
Height=30
Caption="Вторые строки"
link(onClick,8915698:doExecute,[])
}
Add(ODialog,3816886,406,364)
{
link(onExecute,15730629:doLoad,[])
}
Add(ListBox,15730629,469,336)
{
Top=155
Width=190
}
Add(ODialog,8915698,336,448)
{
link(onExecute,5514167:doLoad,[])
}
Add(ListBox,5514167,399,420)
{
Top=235
Width=190
}
Add(RichEdit,5242045,532,602)
{
Left=-5
Top=315
Width=195
Height=155
}
Поиск
Друзья
Администрация