HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуЧто нужно сделать, чтобы в StrList, текст сохранялся слева направо? ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 56
Рейтинг: 2
#1: 2018-02-03 09:14:19 ЛС | профиль | цитата
Здравствуйте! Подскажите пожалуйста, как сделать так, чтобы в StrList текст сохранялся слева направо, а не сверху вниз? В RichEdit, нужно в параметре InsertCRLF, выставить значение False. А тут как? 

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,7,35)
{
 Width=415
 Height=134
 Position=1
 link(onCreate,15122114:doWork,[])
}
Add(StyleXP,14398495,7,0)
{
}
Add(RichEdit,10913055,735,336)
{
 Left=5
 Top=5
 Width=280
 Height=85
 ScrollBars=1
 InsertCRLF=1
}
Add(Timer,2434939,602,336)
{
 Interval=10
 Enable=1
 AutoStop=25
 link(onTimer,10528758:doRandom,[])
}
Add(Button,5135834,546,336)
{
 Left=285
 Top=5
 Width=110
 Height=25
 Caption="Старт"
 link(onClick,2434939:doTimer,[])
}
Add(Random,10528758,665,336)
{
 link(onRandom,15606718:doEvent1,[])
}
Add(StrList,12174658,735,385)
{
}
Add(Button,12037862,602,378)
{
 Left=285
 Top=35
 Width=110
 Height=25
 Caption="Сохранить (RichEdit)"
 link(onClick,10489777:doExecute,[])
}
Add(SDialog,10489777,665,378)
{
 Filter="txt|*.txt"
 Title="Сохранение"
 FileName="RichEdit"
 link(onExecute,10913055:doSave,[(711,370)])
}
Add(Button,11945123,602,420)
{
 Left=285
 Top=65
 Width=110
 Height=25
 Caption="Сохранить (StrList)"
 link(onClick,11992391:doExecute,[])
}
Add(SDialog,11992391,665,420)
{
 Filter="txt|*.txt"
 Title="Сохранение"
 FileName="StrList"
 link(onExecute,12174658:doSave,[])
}
Add(LineBreakEx,15122114,49,49)
{
}
Add(LineBreakEx,5769025,637,343)
{
 Type=1
 link(OnEvent,10528758:doRandomize,[])
}
Add(Hub,15606718,707,336)
{
 link(onEvent1,10913055:doAdd,[])
 link(onEvent2,12174658:doAdd,[(725,349)(725,391)])
}


Редактировалось 1 раз(а), последний 2018-02-03 09:14:45
карма: 2
На этом форуме, самые умные и добрые люди, всегда помогут! СПАСИБО!
0
vip
#1.1контекстная реклама от партнеров
Разработчик
Ответов: 26066
Рейтинг: 2120
#2: 2018-02-03 09:37:22 ЛС | профиль | цитата
Схема


Add(MainForm,668614,112,182)
{
 Width=415
 Height=134
 Position=1
 link(onCreate,15122114:doWork,[])
}
Add(StyleXP,14398495,112,147)
{
}
Add(RichEdit,10913055,546,182)
{
 Left=5
 Top=5
 Width=280
 Height=85
 ScrollBars=1
 InsertCRLF=1
}
Add(Timer,2434939,336,182)
{
 Interval=10
 Enable=1
 AutoStop=25
 link(onTimer,10528758:doRandom,[])
}
Add(Button,5135834,280,182)
{
 Left=285
 Top=5
 Width=110
 Height=25
 Caption="Старт"
 link(onClick,2434939:doTimer,[])
}
Add(Random,10528758,399,182)
{
 link(onRandom,15606718:doEvent1,[])
}
Add(StrList,12174658,546,231)
{
}
Add(Button,12037862,336,224)
{
 Left=285
 Top=35
 Width=110
 Height=25
 Caption="Сохранить (RichEdit)"
 link(onClick,10489777:doExecute,[])
}
Add(SDialog,10489777,399,224)
{
 Filter="txt|*.txt"
 Title="Сохранение"
 FileName="RichEdit"
 link(onExecute,10913055:doSave,[(445,216)])
}
Add(Button,11945123,336,266)
{
 Left=285
 Top=65
 Width=110
 Height=25
 Caption="Сохранить (StrList)"
 link(onClick,11992391:doExecute,[])
}
Add(SDialog,11992391,399,266)
{
 Filter="txt|*.txt"
 Title="Сохранение"
 FileName="StrList"
 link(onExecute,12174658:doSave,[])
}
Add(LineBreakEx,15122114,154,196)
{
}
Add(LineBreakEx,5769025,371,189)
{
 Type=1
 link(OnEvent,10528758:doRandomize,[])
}
Add(Hub,15606718,476,182)
{
 OutCount=3
 link(onEvent1,10913055:doAdd,[])
 link(onEvent2,12174658:doAdd,[(536,195)(536,237)])
 link(onEvent3,15864575:doReplace,[(501,202)(501,307)])
}
Add(Replace,15864575,546,301)
{
 SubStr="\r\n"
 link(onReplace,12174658:doText,[(585,307)(585,293)(536,293)(536,258)])
 link(Str,12174658:Text,[])
}
карма: 22

0
Ответов: 56
Рейтинг: 2
#3: 2018-02-03 09:41:31 ЛС | профиль | цитата
nesco писал(а):
Схема

Спасибо!!! Только ещё в DestStr, нужно \n поставить.

Редактировалось 2 раз(а), последний 2018-02-03 10:17:11
карма: 2
На этом форуме, самые умные и добрые люди, всегда помогут! СПАСИБО!
0
Ответов: 56
Рейтинг: 2
#4: 2018-02-03 10:49:43 ЛС | профиль | цитата
nesco писал(а):
Схема

Ещё проблема... Если открыть этот сохраненный текстовый документ в Microsoft Office Word, или в другом текстовом редакторе, то текст отображается сверху вниз. Почему так происходит..?

Редактировалось 1 раз(а), последний 2018-02-03 11:34:46
карма: 2
На этом форуме, самые умные и добрые люди, всегда помогут! СПАСИБО!
0
Ответов: 9906
Рейтинг: 351
#5: 2018-02-03 15:54:24 ЛС | профиль | цитата
NUB писал(а):
Ещё проблема... Если открыть этот сохраненный текстовый документ...

Бачили очи шо купували:
NUB писал(а):
Только ещё в DestStr, нужно \n поставить.
-- теперь ишьте, хоть повылазьте
карма: 9

0
Ответов: 8888
Рейтинг: 823
#6: 2018-02-03 16:06:03 ЛС | профиль | цитата
Galkov, а я вообще не понял, что ТС требуется, стар сделался совсем
карма: 19

0
Ответов: 9906
Рейтинг: 351
#7: 2018-02-03 16:19:56 ЛС | профиль | цитата
Леонид писал(а):
а я вообще не понял

Если читать "много букв", то соглашусь -- непонятно нифига.

НО, есть схема...
Мне показалось, что интерпретация: "чтобы две кнопки <Сохранить...> давали одинаковый результат" -- является адекватной, как бы...
карма: 9

0
Ответов: 497
Рейтинг: 16
#8: 2018-02-03 20:12:14 ЛС | профиль | цитата
nesco,
Снимок.PNG
это только у меня?
карма: 1
        ]  
0
Ответов: 56
Рейтинг: 2
#9: 2018-02-03 21:07:00 ЛС | профиль | цитата
Всю суть проблемы, записал на видео:
https://yadi.sk/d/wXHq6djP3S4hRX

Схема





Add(MainForm,668614,112,182)
{
 Width=415
 Height=134
 Position=1
 link(onCreate,15122114:doWork,[])
}
Add(StyleXP,14398495,112,147)
{
}
Add(RichEdit,10913055,546,182)
{
 Left=5
 Top=5
 Width=280
 Height=85
 ScrollBars=1
 InsertCRLF=1
}
Add(Timer,2434939,336,182)
{
 Interval=10
 Enable=1
 AutoStop=25
 link(onTimer,10528758:doRandom,[])
}
Add(Button,5135834,280,182)
{
 Left=285
 Top=5
 Width=110
 Height=25
 Caption="Старт"
 link(onClick,2434939:doTimer,[])
}
Add(Random,10528758,399,182)
{
 link(onRandom,15606718:doEvent1,[])
}
Add(StrList,12174658,546,231)
{
}
Add(Button,12037862,336,224)
{
 Left=285
 Top=35
 Width=110
 Height=25
 Caption="Сохранить (RichEdit)"
 link(onClick,10489777:doExecute,[])
}
Add(SDialog,10489777,399,224)
{
 Filter="txt|*.txt"
 Title="Сохранение"
 FileName="RichEdit"
 link(onExecute,10913055:doSave,[(445,216)])
}
Add(Button,11945123,336,266)
{
 Left=285
 Top=65
 Width=110
 Height=25
 Caption="Сохранить (StrList)"
 link(onClick,11992391:doExecute,[])
}
Add(SDialog,11992391,399,266)
{
 Filter="txt|*.txt"
 Title="Сохранение"
 FileName="StrList"
 link(onExecute,12174658:doSave,[])
}
Add(LineBreakEx,15122114,154,196)
{
}
Add(LineBreakEx,5769025,371,189)
{
 Type=1
 link(OnEvent,10528758:doRandomize,[])
}
Add(Hub,15606718,476,182)
{
 OutCount=3
 link(onEvent1,10913055:doAdd,[])
 link(onEvent2,12174658:doAdd,[(536,195)(536,237)])
 link(onEvent3,15864575:doReplace,[(501,202)(501,307)])
}
Add(Replace,15864575,546,301)
{
 SubStr="\r\n"
 link(onReplace,12174658:doText,[(585,307)(585,293)(536,293)(536,258)])
 link(Str,12174658:Text,[])
}





HELP!

Редактировалось 13 раз(а), последний 2018-02-03 21:31:55
карма: 2
На этом форуме, самые умные и добрые люди, всегда помогут! СПАСИБО!
0
Ответов: 2200
Рейтинг: 673
#10: 2018-02-03 21:57:37 ЛС | профиль | цитата
NUB, компонент StrList(Список строк), сохраняет строки. Даже если это будет одна строка, то будет добавлен перенос в конце этой строки.
Вот на этом примере видно что файл созданный StrList будет больше на два байта (добавляется перенос строки).
Пример


Add(MainForm,13140371,133,203)
{
 Width=415
 Height=134
 Position=1
 link(onCreate,15122114:doWork,[])
}
Add(RichEdit,10913055,420,217)
{
 Left=5
 Top=5
 Width=280
 Height=85
 ScrollBars=1
 InsertCRLF=1
}
Add(Timer,2434939,287,217)
{
 Interval=10
 Enable=1
 AutoStop=25
 link(onTimer,10528758:doRandom,[])
}
Add(Button,5135834,231,217)
{
 Left=285
 Top=5
 Width=110
 Height=25
 Caption="Старт"
 link(onClick,2434939:doTimer,[])
}
Add(Random,10528758,350,217)
{
 link(onRandom,15606718:doEvent1,[])
}
Add(StrList,12174658,483,350)
{
 link(Str,8320281:Var3,[(489,345)])
}
Add(Button,12037862,287,259)
{
 Left=285
 Top=35
 Width=110
 Height=25
 Caption="Сохранить (RichEdit)"
 link(onClick,10489777:doExecute,[])
}
Add(SDialog,10489777,350,259)
{
 Filter="txt|*.txt"
 Title="Сохранение"
 FileName="RichEdit"
 link(onExecute,10913055:doSave,[(396,251)])
}
Add(Button,11945123,287,378)
{
 Left=285
 Top=65
 Width=110
 Height=25
 Caption="Сохранить (StrList)"
 link(onClick,11992391:doExecute,[])
}
Add(SDialog,11992391,350,378)
{
 Filter="txt|*.txt"
 Title="Сохранение"
 FileName="StrList"
 link(onExecute,3123673:doEvent1,[])
}
Add(LineBreakEx,15122114,175,217)
{
}
Add(LineBreakEx,5769025,322,224)
{
 Type=1
 link(OnEvent,10528758:doRandomize,[])
}
Add(Hub,15606718,392,217)
{
 link(onEvent1,10913055:doAdd,[])
 link(onEvent2,10254150:doStrCat,[(410,230)(410,307)])
}
Add(StrCat,10254150,434,301)
{
 link(Str1,8320281:Var1,[(440,289)(428,289)(428,345)])
}
Add(Hub,3123673,399,378)
{
 link(onEvent1,12174658:doText,[(448,384)(448,377)])
 link(onEvent2,12174658:doSave,[])
}
Add(GetDataEx,8320281,434,340)
{
 link(Data,10254150:Result,[])
}
Можете попробовать писать именно строку в файл.
Пример


Add(MainForm,11474216,98,105)
{
 Width=415
 Height=134
 Position=1
 link(onCreate,15122114:doWork,[])
}
Add(RichEdit,10913055,455,126)
{
 Left=5
 Top=5
 Width=280
 Height=85
 ScrollBars=1
 InsertCRLF=1
}
Add(Timer,2434939,287,126)
{
 Interval=10
 Enable=1
 AutoStop=25
 link(onTimer,10528758:doRandom,[])
}
Add(Button,5135834,231,126)
{
 Left=285
 Top=5
 Width=110
 Height=25
 Caption="Старт"
 link(onClick,2434939:doTimer,[])
}
Add(Random,10528758,350,126)
{
 link(onRandom,15606718:doEvent1,[])
}
Add(Button,12037862,287,182)
{
 Left=285
 Top=35
 Width=110
 Height=25
 Caption="Сохранить (RichEdit)"
 link(onClick,10489777:doExecute,[])
}
Add(SDialog,10489777,350,182)
{
 Filter="txt|*.txt"
 Title="Сохранение"
 FileName="RichEdit"
 link(onExecute,10913055:doSave,[(397,188)(397,160)])
}
Add(Button,11945123,287,252)
{
 Left=285
 Top=65
 Width=110
 Height=25
 Caption="Сохранить (StrList)"
 link(onClick,11992391:doExecute,[])
}
Add(SDialog,11992391,350,252)
{
 Filter="txt|*.txt"
 Title="Сохранение"
 FileName="StrList"
 link(onExecute,8237066:doValue,[])
}
Add(LineBreakEx,15122114,140,119)
{
}
Add(LineBreakEx,5769025,322,133)
{
 Type=1
 link(OnEvent,10528758:doRandomize,[])
}
Add(Hub,15606718,392,126)
{
 link(onEvent1,10913055:doAdd,[])
 link(onEvent2,14219057:doStrCat,[(427,139)(427,195)])
}
Add(FileStream,15377790,504,238)
{
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 link(FileName,8237066:Value,[(510,226)(574,226)(574,302)(412,302)])
}
Add(StrCat,14219057,455,189)
{
 link(Str1,7589471:Var1,[(461,177)(449,177)(449,233)])
}
Add(StreamConvertor,2208811,455,252)
{
 Mode=7
 link(onResult,15377790:doCopyFromStream,[])
 link(Data,7589471:Var2,[])
}
Add(GetDataEx,7589471,455,228)
{
 link(Data,14219057:Result,[])
}
Add(Memory,8237066,406,252)
{
 link(onData,2208811:doConvert,[])
}
карма: 11

0
Ответов: 56
Рейтинг: 2
#11: 2018-02-03 22:02:30 ЛС | профиль | цитата
sla8a писал(а):

Можете попробовать писать именно строку в файл.


ОГРОМНОЕ спасибо! Проблема решена.
карма: 2
На этом форуме, самые умные и добрые люди, всегда помогут! СПАСИБО!
0
11
ФорумыПомощь по пакетуЧто нужно сделать, чтобы в StrList, текст сохранялся слева направо? ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2020
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика