Вверх ↑
Ответов: 537
Рейтинг: 14
#1: 2022-01-19 16:26:20 ЛС | профиль | цитата
В файле 21 строка, в Memo открывается как одна строка, там где должен быть перевод строки ничего нет. Как открыть файл правильно? В Memo открываю для видимости, но в программе файл будет открываться в StrList. В прикреплении файл который нужно правильно прочитать, там есть текст на иврите, это не нужно.
Add(MainForm,2953706,147,140)
{
Width=929
Height=667
}
Add(StreamConvertor,12241763,315,189)
{
Mode=6
Point(Data)
link(onResult,7133190:doCharset,[])
}
Add(ODialog,14343632,196,189)
{
link(onExecute,6972916:doOpen,[])
}
Add(FileStream,6972916,245,189)
{
link(onLoad,9646224:doEvent1,[])
}
Add(Charset,7133190,364,189)
{
Type=9
link(onCharset,14601660:doText,[])
}
Add(Button,7679849,147,189)
{
Left=5
Top=5
Width=90
Caption="Открыть файл"
link(onClick,14343632:doExecute,[])
}
Add(Memo,14601660,413,168)
{
Left=5
Top=35
Width=905
Height=590
ScrollBars=3
}
Add(Hub,9646224,287,189)
{
link(onEvent1,12241763:doConvert,[])
link(onEvent2,6972916:doClose,[(309,202)(309,228)(233,228)(233,202)])
}

карма: 4

0
файлы: 1danielzrihen.zip [3.5KB] [265]
Редактировалось 1 раз(а), последний 2022-01-19 16:28:22