Вверх ↑
Этот топик читают: Гость
Ответов: 63
Рейтинг: 8
#1: 2010-03-11 14:12:52 ЛС | профиль | цитата
Вот нарисовал схему помогите реализовать переключение между ansi(cp-1251) и utf-8.
code_17280.txt
карма: 1

0
файлы: 1code_17280.txt [961B] [103]
Разработчик
Ответов: 4698
Рейтинг: 426
#2: 2010-03-11 14:16:56 ЛС | профиль | цитата
Add(MainForm,11473113,273,147)
{
Width=500
Height=505
BorderStyle=1
Position=1
}
Add(StrList,106744,483,182)
{
}
Add(ODialog,5579360,385,210)
{
link(onExecute,12037720:doEvent1,[])
}
Add(Button,3987471,329,210)
{
Left=5
Top=5
Width=85
Caption="Открыть"
link(onClick,5579360:doExecute,[])
}
Add(ComboBox,5168556,539,168)
{
Left=5
Top=40
Width=85
Height=21
Strings=#7:CP-1251|5:UTF-8|
Point(Index)
}
Add(HilightMemo,8464323,658,231)
{
Left=94
Top=5
Width=385
Height=457
Font=[Courier New,8,0,0,1]
HilightFont=[Courier New,8,0,0,1]
}
Add(Hub,12037720,441,210)
{
link(onEvent1,106744:doLoad,[])
link(onEvent2,968946:doData,[(469,223)(469,258)])
}
Add(Charset,12106062,602,252)
{
Type=7
link(onCharset,6926182:doWork2,[])
}
Add(Charset,2744180,602,322)
{
Type=6
link(onCharset,6926182:doWork3,[(648,328)])
}
Add(HubEx,6926182,644,252)
{
link(onEvent,8464323:doText,[])
}
Add(IndexToChanel,8036389,553,252)
{
Point(Index)
link(onEvent1,12106062:doCharset,[])
link(onEvent2,2744180:doCharset,[(593,265)(593,328)])
link(Index,5168556:Index,[])
}
Add(DoData,968946,483,252)
{
link(onEventData,8036389:doEvent,[])
link(Data,106744:Text,[])
}
карма: 10
1
Голосовали:recoshet
Ответов: 63
Рейтинг: 8
#3: 2010-03-11 14:26:22 ЛС | профиль | цитата
Спасбо! Выручил...
карма: 1

0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)