Вверх ↑
Этот топик читают: Гость
Ответов: 279
Рейтинг: 2
#1: 2007-11-04 08:05:42 ЛС | профиль | цитата
У меня такой вопросеГ. Как объеденить текст из двух компонентов memo в один.

Вот сам пример.
code_1998.txt
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_1998.txt [573B] [180]
Гость
Ответов: 17029
Рейтинг: 0
#2: 2007-11-04 10:31:51 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-04 03:25:38
карма: 0

0
Ответов: 2
Рейтинг: 0
#3: 2007-11-04 11:25:24 ЛС | профиль | цитата
Попробуй так

#sha
Add(MainForm,13620113,126,175)
{
Left=20
Top=105
Width=255
Height=215
}
Add(Memo,14009899,231,175)
{
Left=10
Top=55
Strings=#2:1.|2:2.|2:3.|
}
Add(Memo,8486144,308,175)
{
Left=75
Top=55
Strings=#1:4|1:5|1:6|
}
Add(Memo,1261646,406,175)
{
Left=175
Top=55
}
Add(Label,7771783,252,112)
{
Left=10
Top=10
Width=110
Height=42
Caption="Объеденить эти два столбика текста в один"
}
Add(Label,11317800,357,112)
{
Left=170
Top=10
Width=62
Height=42
Caption="Вот что должно получиться"
}
Add(Button,474498,119,238)
{
Left=10
Top=150
link(onClick,10315197:doEvent1,[(163,244)(163,279)(107,279)(107,314)])
}
Add(Hub,10315197,119,308)
{
link(onEvent1,2154326:doOperation,[(170,314)(170,265)])
link(onEvent2,7766765:doFor,[(181,321)(181,328)])
}
Add(StrCat,15431552,280,462)
{
link(onStrCat,1261646:doAdd,[(380,468)(380,181)])
link(Str1,11708817:Item,[(286,454)(251,454)])
link(Str2,224915:Item,[(293,454)(321,454)])
}
Add(ArrayRW,11708817,245,413)
{
link(Array,14009899:Array,[])
link(Index,1726035:Data1,[(258,383)(279,383)])
}
Add(Hub,12438569,189,413)
{
OutCount=3
link(onEvent1,11708817:doRead,[])
link(onEvent2,224915:doRead,[(268,426)(268,419)])
link(onEvent3,15431552:doStrCat,[(251,433)(251,468)])
}
Add(Math,2154326,189,259)
{
OpType=1
Op2=1
link(Op1,14009899:Count,[(195,239)(244,239)])
}
Add(For,7766765,210,322)
{
link(onEvent,12438569:doEvent1,[(254,328)(254,366)(177,366)(177,419)])
link(End,2154326:Result,[(223,303)(195,303)])
}
Add(GetData,1726035,273,322)
{
link(Data,7766765:Position,[(279,310)(247,310)(247,366)(216,366)])
}
Add(ArrayRW,224915,315,413)
{
link(Array,8486144:Array,[(321,317)(328,317)])
link(Index,1726035:Data2,[(328,383)(286,383)])
}

карма: 0

0
Ответов: 9906
Рейтинг: 351
#4: 2007-11-04 11:28:09 ЛС | профиль | цитата
tandrey, читай справку, перед "вываливанием"
В следующий раз буду просто удалять....
карма: 9

0
Ответов: 3851
Рейтинг: 159
#5: 2007-11-04 11:56:09 ЛС | профиль | цитата
или так code_2001.txt
карма: 0
начавший
0
файлы: 1code_2001.txt [712B] [229]
Ответов: 3514
Рейтинг: 184
#6: 2007-11-04 16:47:47 ЛС | профиль | цитата
Ну намудрииилии : ))
#sha
Add(FormatStr,5652162,133,266)
{
Mask="%1
%2"
link(onFString,7332451:doAdd,[])
link(Str1,1268843:Text,[])
link(Str2,2446139:Text,[(146,240)(188,240)])
}
Add(Button,1585227,84,266)
{
Left=85
Top=160
link(onClick,5652162:doString,[])
}
Add(Memo,7332451,189,266)
{
Left=210
Top=60
Height=120
}
Add(Memo,2446139,182,168)
{
Left=125
Top=60
Strings=#1:4|1:5|1:6|
}
Add(Memo,1268843,133,168)
{
Left=55
Top=60
Strings=#1:1|1:2|1:3|
}
------------ Дoбавленo:

Вот, это пожалуй лучше:

Add(StrCat,5757924,196,238)
{
link(onStrCat,7332451:doAdd,[])
link(Str1,1268843:Text,[])
link(Str2,2446139:Text,[(209,212)(251,212)])
}
Add(Button,1585227,147,238)
{
Left=85
Top=160
link(onClick,5757924:doStrCat,[])
}
Add(Memo,7332451,252,238)
{
Left=210
Top=60
Height=120
}
Add(Memo,2446139,245,140)
{
Left=125
Top=60
Strings=#1:4|1:5|1:6|
}
Add(Memo,1268843,196,140)
{
Left=55
Top=60
Strings=#1:1|1:2|1:3|
}
карма: 0
0
Ответов: 279
Рейтинг: 2
#7: 2007-11-04 19:22:13 ЛС | профиль | цитата
tandrey, спасибо! Твоя схема самая рабочая

Но вот проблемма, есть не большая. Почему при их объединении, там какой то неизвестный символ за место тех чисел которые должны быть из второго memo?
Ну вот пример:
1.|
2.|
3.|

Типо такой черточки, но она жирнее!!! Помойму это проблемма уже в hiasm
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 3514
Рейтинг: 184
#8: 2007-11-04 19:28:44 ЛС | профиль | цитата
Его схема самая запутанная)

Проблема в том, что кодировка, которую вы юзаете не знает всех символов из юникода.. думаю.
карма: 0
0
Ответов: 1891
Рейтинг: 110
#9: 2007-11-04 19:50:43 ЛС | профиль | цитата
m@nti$, а че конктерно из code_1998.txt хочешь сделать?
карма: 0
%time%
0
Ответов: 279
Рейтинг: 2
#10: 2007-11-04 22:13:51 ЛС | профиль | цитата
Alexbootch, вот это! Чтобы текст из двух memo объединялся в один!
code_2003.txt

Астрамак, самая запутанная, но и самая рабочая! У тебя, то она просто весь текст в один столбик, а мне надо чтобы в два столбика, а разделитель точка. В общем схему его запусти и всё поймешь! код выше
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_2003.txt [1.7KB] [187]
Ответов: 3851
Рейтинг: 159
#11: 2007-11-05 00:00:35 ЛС | профиль | цитата
code_2004.txt
карма: 0
начавший
0
файлы: 1code_2004.txt [727B] [250]
11
Сообщение
...
Прикрепленные файлы
(файлы не залиты)