Не знаю как!!!

Форумы Помощь по пакетуНе знаю как!!! ← Ctrl12 3Ctrl →

Этот топик читают: Гость

Ответов: 223

Рейтинг: 24

#1: 2009-05-18 12:41:04 ЛС | профиль | цитата

Не знаю как отфильтровать все знаки кроме 1-12. Вот что я начал делать.Может у кого-то есть готовий пример такого фильтра.Зарание благодарен.

code_13333.txt

карма: 0

файлы: 1

code_13333.txt [6.5KB] [112]

Разработчик

Ответов: 26170

Рейтинг: 2127

#2: 2009-05-18 12:48:40 ЛС | профиль | цитата

wasya писал(а):

Не знаю как отфильтровать все знаки кроме 1-12

Имеется в виду числа, так что ли

Нужно пропустить только 1 и 12, правильно или что-то другое

Или имеется в виду числа, попадающие в позиции 1 и 12

карма: 22

Ответов: 223

Рейтинг: 24

#3: 2009-05-18 12:49:57 ЛС | профиль | цитата

Схема должна вычислять среднее арифметическое строки

карма: 0

Разработчик

Ответов: 26170

Рейтинг: 2127

#4: 2009-05-18 12:51:11 ЛС | профиль | цитата

wasya писал(а):

Схема должна вычислять среднее арифметическое строки

А причем тут 1 и 12

карма: 22

Ответов: 223

Рейтинг: 24

#5: 2009-05-18 12:53:04 ЛС | профиль | цитата

нужно чтоб остались в строке цифры от 1 до 12 другие символы были отфильтрованы

------------ Дoбавленo в 12.56:
Например строка состоит из 1;2;22;33;rrrr;12;10;8;10 -и других символов надо чтоб осталось 1;2;12;10;8;10
------------ Дoбавленo в 13.00:
Надо пропустить цифры от 1 до 12

карма: 0

Администрация

Ответов: 15295

Рейтинг: 1519

#6: 2009-05-18 13:40:55 ЛС | профиль | цитата

wasya, тебя nesco, совершенно верно поправил

nesco писал(а):

Имеется в виду числа, так что ли

1 и 12 это не знаки и не цифры - это либо числа, либо строки. Число 12 состоит из знаков 1 и 2 или цифр 1 и 2.

карма: 27

https://hiasm.com

Ответов: 223

Рейтинг: 24

#7: 2009-05-18 13:44:56 ЛС | профиль | цитата

Dilma, да числа

карма: 0

Разработчик

Ответов: 4698

Рейтинг: 426

#8: 2009-05-18 13:55:10 ЛС | профиль | цитата

Так?

Add(MainForm,2953706,329,161)
{
}
Add(Edit,2373605,364,210)
{
 Left=25
 Top=25
 Width=290
 Text="1;2;22;33;rrrr;12;10;8;10"
 link(onChange,818766:doStr,[])
}
Add(Edit,5073546,616,203)
{
 Left=25
 Top=75
 Width=285
 Text="1"
}
Add(MultiElementEx,818766,406,210)
{
 link(onTrim,190382:doText,[])
}
BEGIN_SDK
  Add(EditMultiEx,15273095,21,21)
  {
   WorkCount=#5:doStr|
   EventCount=#6:onTrim|
   VarCount=#5:Count|
   Width=482
   Height=242
   link(doStr,15035987:doMT,[(31,27)(31,55)])
   link(Count,2287408:Count,[(27,203)(286,203)])
  }
  Add(MT_String,15035987,42,42)
  {
   link(onResult,12277890:doEvent1,[])
  }
  Add(MT_Array,7815714,112,42)
  {
  }
  Add(MT_Enum,10862593,119,98)
  {
   link(onItem,551807:doFor,[])
   link(onEndEnum,891931:doReplace,[(212,111)(212,174)])
   link(MT,7815714:MThread,[])
  }
  Add(Hub,12277890,84,42)
  {
   OutCount=3
   link(onEvent1,7815714:doLoad,[])
   link(onEvent2,2287408:doClear,[(214,55)(214,111)])
   link(onEvent3,10862593:doEnum,[(108,62)(108,104)])
  }
  Add(StrList,2287408,273,98)
  {
   link(Str,3600801:Var2,[(279,86)(199,86)(199,153)])
  }
  Add(GetDataEx,3600801,133,140)
  {
   Angle=3
   link(Data,10862593:Item,[(125,149)])
  }
  Add(Replace,891931,273,168)
  {
   SubStr="
"
   DestStr=" + "
   link(onReplace,213713:doValue,[])
   link(Str,2287408:Text,[])
  }
  Add(For,551807,168,98)
  {
   Start=1
   End=12
   link(onEvent,1037181:doCompare,[])
  }
  Add(If_else,1037181,217,98)
  {
   link(onTrue,2287408:doAdd,[])
   link(Op1,3600801:Var1,[(223,86)(146,86)])
   link(Op2,551807:Position,[(230,86)(202,86)(202,142)(174,142)])
  }
  Add(Length,5896361,357,168)
  {
   link(onLength,1817596:doDelete,[])
  }
  Add(Delete,1817596,399,168)
  {
   Count=3
   link(onDelete,15273095:onTrim,[(456,174)(456,27)])
   link(Str,213713:Value,[(405,156)(349,156)(349,212)(321,212)])
   link(Position,10278864:GetData,[])
  }
  Add(EventFromData,10278864,406,126)
  {
   link(onEvent,2271992:doCalc,[])
  }
  Add(MathParse,2271992,448,126)
  {
   DataCount=1
   MathStr="%1 - 2"
   link(onResult,10278864:doData,[(492,132)(492,120)(394,120)(394,132)])
   link(X1,5896361:Result,[(454,114)(393,114)(393,212)(363,212)])
  }
  Add(Memory,213713,315,168)
  {
   link(onData,5896361:doLength,[])
  }
END_SDK
Add(Edit,190382,455,210)
{
 Left=25
 Top=50
 Width=285
 Text="1"
 link(onChange,13572333:doString,[])
}
Add(MathParse,13360119,567,203)
{
 DataCount=1
 Point(doMathStr)
 link(onResult,5073546:doText,[])
}
Add(FormatStr,13572333,497,210)
{
 Mask="(%1) / %2"
 link(onFString,13039264:doEvent1,[])
 link(Str2,818766:Count,[(510,198)(448,198)(448,254)(412,254)])
}
Add(Hub,13039264,539,210)
{
 link(onEvent1,13360119:doMathStr,[])
 link(onEvent2,13360119:doCalc,[(560,223)(560,209)])
}

карма: 10

Мой сайт, Мои рассказы

Голосовали: wasya

Ответов: 223

Рейтинг: 24

#9: 2009-05-18 14:05:20 ЛС | профиль | цитата

Assasin, спасибо - это подойдет

карма: 0

Разработчик

Ответов: 4698

Рейтинг: 426

#10: 2009-05-18 14:19:12 ЛС | профиль | цитата

wasya, извини, я перезалил код, он был не до конца верен

карма: 10

Мой сайт, Мои рассказы

Ответов: 223

Рейтинг: 24

#11: 2009-05-18 14:25:58 ЛС | профиль | цитата

Assasin, спасибо все нормально,я понял принцип, с меня причетаеться

карма: 0

Разработчик

Ответов: 4698

Рейтинг: 426

#12: 2009-05-18 14:38:57 ЛС | профиль | цитата

Да, кстати, а почему эта тема в разделе "схемы"? Прошу админов переместить ее в Delphi->Help

карма: 10

Мой сайт, Мои рассказы

Разработчик

Ответов: 26170

Рейтинг: 2127

#13: 2009-05-18 16:09:05 ЛС | профиль | цитата

Я так подумал, что схему можно слегка упростить, а то мультик какой-то не шибко понятный


Add(MainForm,2041001,63,77)
{
}
Add(Edit,2373605,63,126)
{
 Left=25
 Top=25
 Width=290
 Text="1;2;22;33;rrrr;12;10;8;10"
 link(onEnter,2751786:doEvent1,[])
}
Add(Edit,5073546,763,238)
{
 Left=25
 Top=75
 Width=285
 Text="1"
}
Add(Edit,190382,714,189)
{
 Left=25
 Top=50
 Width=285
 Text="1"
}
Add(MathParse,13360119,714,238)
{
 MathStr=""
 Point(doMathStr)
 link(onResult,5073546:doText,[])
}
Add(Hub,13039264,672,189)
{
 OutCount=3
 link(onEvent1,190382:doText,[])
 link(onEvent2,13360119:doMathStr,[(700,202)(700,251)])
 link(onEvent3,13360119:doCalc,[(695,209)(695,244)])
}
Add(MT_String,15035987,175,182)
{
 Point(doMTString)
 link(onResult,10862593:doEnum,[])
}
Add(MT_Enum,10862593,224,182)
{
 link(onItem,6376379:doConvert,[])
}
Add(Hub,2751786,112,133)
{
 OutCount=5
 link(onEvent1,1751502:doReset,[])
 link(onEvent2,10770050:doClear,[(504,146)(504,202)])
 link(onEvent3,8675969:doClear,[(451,153)(451,202)])
 link(onEvent4,15035987:doMTString,[(147,160)(147,202)])
 link(onEvent5,2373605:doText2,[(138,167)(138,189)(51,189)(51,139)])
}
Add(If_else,9829234,322,182)
{
 Type=4
 Op2=Integer(1)
 link(onTrue,3475445:doCompare,[])
}
Add(If_else,3475445,371,182)
{
 Type=3
 Op2=Integer(12)
 link(onTrue,12150082:doEvent1,[])
}
Add(Convertor,6376379,273,182)
{
 Mode=1
 link(onResult,9829234:doCompare,[])
}
Add(StrCat,8675969,462,189)
{
 Str2="+"
 Point(doClear)
 link(onStrCat,10770050:doStrCat,[])
}
Add(StrCat,10770050,518,189)
{
 Point(doClear)
 link(onStrCat,5319860:doTrim,[])
 link(Str1,10770050:Result,[(524,177)(512,177)(512,233)(524,233)])
}
Add(Trim,5319860,567,189)
{
 Char="+"
 link(onTrim,10773741:doString,[])
}
Add(Counter,1751502,623,119)
{
}
Add(Hub,12150082,420,182)
{
 link(onEvent1,1751502:doNext,[(442,188)(442,125)])
 link(onEvent2,8675969:doStrCat,[])
}
Add(FormatStr,10773741,616,189)
{
 Mask="(%1)/%2"
 link(onFString,13039264:doEvent1,[])
 link(Str2,1751502:Count,[])
}