Вверх ↑
Этот топик читают: Гость
Ответов: 824
Рейтинг: 138
#76: 2016-01-09 22:24:02 ЛС | профиль | цитата
Tad, а Вы вручную впишите путь к файлу, или вставьте из буфера обмена.
карма: 1

0
Ответов: 106
Рейтинг: 0
#77: 2016-01-10 02:14:21 ЛС | профиль | цитата
Леонид писал(а):
code_36768.txt

Чтот у меня не работает
sashaoli писал(а):
Чуть поправленно
код

В этой диалог опять... (


Не мой день видимо...
карма: 0

0
Ответов: 198
Рейтинг: 2
#78: 2016-01-10 04:38:37 ЛС | профиль | цитата
Подскажите, как сделать проверку символов в "Edit" только на латиницу, точки и цифры?
карма: 0

0
Ответов: 824
Рейтинг: 138
#79: 2016-01-10 11:45:31 ЛС | профиль | цитата
Gitarist писал(а):
Чтот у меня не работает

Gitarist писал(а):
В этой диалог опять...

Gitarist, Выражайтесь точнее, что конкретно не так!
А то как сын моего друга - "Дядя Саша, у меня ноут ЛАГАЕТ. А когда перестает ЛАГАТЬ, начинает страшно ГЛЮЧИТЬ"
карма: 1

0
Ответов: 2059
Рейтинг: 132
#80: 2016-01-10 12:21:47 ЛС | профиль | цитата
SkyPrinceRus,
Add(MainForm,387580,196,196)
{
}
Add(Memo,14560805,469,273)
{
Left=20
Top=95
Width=350
Height=155
ScrollBars=2
}
Add(Edit,13322556,343,161)
{
Left=25
Top=10
Width=350
Text="Edit<>?.,+енкегегшн"
}
Add(Button,3703179,231,273)
{
Left=25
Top=45
link(onClick,5938971:doExec,[])
}
Add(RE_Search,5938971,343,273)
{
Expression="([^А-яё]+)"
ModifierS=1
link(onMatch,14560805:doAdd,[])
link(SourceStr,13322556:Text,[])
}

Не очень понятно
только на латиницу, точки и цифры

Только точки?
На всякий случай можно так в RegExp ([A-Za-z0-9.]+) и подставить что нужно.
[flood]((?=.*\d)(?=.*[a-z])(?=.*[A-Z]).{8,15})
От 8 до 15 символов с минимум одной цифрой, одной
заглавной и одной строчной буквой (полезно для
паролей). [/flood]
карма: 6

0
файлы: 1code_36774.txt [531B] [667]
Ответов: 198
Рейтинг: 2
#81: 2016-01-10 13:57:16 ЛС | профиль | цитата
flint2, прошу прощение, это первый компонент который выше моего понимания...
Можно на пальцах, что он делает?

Мне нужна проверка на допустимые символы, лучше указанных вручную, например "A-z0-9"
карма: 0

0
Ответов: 2059
Рейтинг: 132
#82: 2016-01-10 14:45:38 ЛС | профиль | цитата
SkyPrinceRus,
Можно на пальцах, что он делает?

Это Регулярные выражения.
http://habrahabr.ru/post/115825/ и много, много в гугле.
Соответственно ищет/заменяет/проверяет вхождение выражения в строку(строки). Это круче, чем строка в строке.
http://scanlibs.com/regulyarnyie-vyirazheniya-sbornik-retseptov-2-e-izdanie/
Мне нужна проверка на допустимые символы,

Тогда так RE_Check:

Add(MainForm,387580,336,112)
{
}
Add(Memo,14560805,609,189)
{
Left=20
Top=95
Width=350
Height=155
ScrollBars=2
link(Str,14564402:Var3,[(615,145)])
}
Add(Edit,13322556,483,77)
{
Left=25
Top=10
Width=350
Text="Edit<>?.,+енкегегшн"
}
Add(Button,3703179,364,259)
{
Left=25
Top=45
link(onClick,9117218:doCheck,[])
}
Add(RE_Check,9117218,483,259)
{
Expression="([^А-яё]+)"
link(onMatch,14560805:doAdd,[(562,265)(562,195)])
link(Str,14564402:Var2,[])
}
Add(GetDataEx,14564402,483,140)
{
link(Data,13322556:Text,[])
}

лучше указанных вручную, например "A-z0-9

Пишешь в поле Expression компонента, либо на верхнюю точку точку Expression из Memory(строка)
Add(MainForm,2953706,21,105)
{
}
Add(Edit,13322556,147,70)
{
Left=25
Top=10
Width=350
Text="Edit<>?.,+"
}
Add(Button,3703179,56,182)
{
Left=25
Top=45
link(onClick,5938971:doExec,[])
}
Add(Memory,15982831,196,70)
{
Default=String(([^А-яё]+))
}
Add(RE_Search,5938971,168,182)
{
ModifierS=1
link(onMatch,14560805:doAdd,[])
link(SourceStr,13322556:Text,[(174,142)(153,142)])
link(Expression,15982831:Value,[(181,142)(202,142)])
}
Add(Memo,14560805,294,182)
{
Left=20
Top=95
Width=350
Height=155
ScrollBars=2
}


карма: 6

1
файлы: 2code_36775.txt [545B] [627], code_36776.txt [531B] [681]
Голосовали:SkyPrinceRus
Ответов: 198
Рейтинг: 2
#83: 2016-01-10 15:38:12 ЛС | профиль | цитата
flint2 писал(а):
На всякий случай можно так в RegExp ([A-Za-z0-9.]+) и подставить что нужно.

Все разобрался, спасибо!!!
карма: 0

0
Ответов: 106
Рейтинг: 0
#84: 2016-01-10 22:01:03 ЛС | профиль | цитата

sashaoli писал(а):
Gitarist, и что не так?





ааа..)) Вы наверно прикалываетесь просто .
карма: 0

0
Ответов: 824
Рейтинг: 138
#85: 2016-01-10 22:03:53 ЛС | профиль | цитата
Gitarist, и что не так?
карма: 1

0
Ответов: 106
Рейтинг: 0
#86: 2016-01-10 22:39:27 ЛС | профиль | цитата
Блин, что с этим форумом происходит??
Пост - тот что с фэйспалмом должен быть после сообщения от sashaoli ибо это ответ... а он почему то сверху..Печатаю сообщение -через полчаса пропадает. Обновляю страницу - в начало выкидывает. Схемы отображаются с крокозябрами если русские символы были в коде..
карма: 0

0
Ответов: 824
Рейтинг: 138
#87: 2016-01-10 23:03:40 ЛС | профиль | цитата
Gitarist писал(а):
Вы наверно прикалываетесь просто
Нет, не "прикалываюсь", не люблю пирсинг.
Спрашиваю вполне серьезно - что не так со схемой, что не работает (не мониторит)?
Если Вам нужно что-то другое - изменяйте схему и добейтесь чего хотите.

карма: 1

0
Ответов: 198
Рейтинг: 2
#88: 2016-01-11 13:07:58 ЛС | профиль | цитата
Подскажите, сложно ли вывести форум в клиент, без "WebBrother"? Вернее насколько сложно, не считая скриптов для связи с БД?
С текстом все просто, а как можно вывести картинки и видео на динамичную форму?
------------ Дoбавленo в 12.32:
Км... вопрос попроще, через что можно вывести на форму текст к кликабельными ссылками?
карма: 0

0
Ответов: 1926
Рейтинг: 172
#89: 2016-01-11 14:16:16 ЛС | профиль | цитата
SkyPrinceRus писал(а):
через что можно вывести на форму текст к кликабельными ссылками?

Add(RichEdit,1229800,273,259)
{
Left=270
Top=255
}
карма: 9
0
Ответов: 106
Рейтинг: 0
#90: 2016-01-11 23:48:08 ЛС | профиль | цитата
Сам короче сделал )))

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,154,112)
{
Width=837
Height=400
link(onCreate,16508781:doTimer,[])
}
Add(Edit,12626278,392,126)
{
Left=20
Top=20
Width=435
Height=25
Visible=1
Text=""
link(onChange,11885630:doLoad,[])
link(Str,8657745:Text,[])
}
Add(Timer,16508781,273,126)
{
link(onTimer,12626278:doText,[])
}
Add(Edit,8657745,392,28)
{
Left=640
Top=25
Width=120
Visible=1
Text="D:\\report_by_tools.rpt"
}
Add(StringTableMT,11885630,553,105)
{
Left=5
Top=55
Width=810
Height=260
Color=-16777194
Font=[Lucida Console,8,0,0,204]
ColumnWidth=800
TabGrid=0
TabGridFrame=0
SingleString=0
Grid=0
Grid3D=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
}


Вот и вся любовь, что требовалась. Правда так и не получилось у меня убрать лишних 5 строк, но это не так уж и важно. Первая моя прога
карма: 0

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