/stat@combot

Total messages: 123729

циклом по списку или массиву проходи. если свой список не хочешь составлять, то если они на форме, то можешь поискать их в массиве Form1.Components

Вообще не понял, вот у меня на форме 5 edit: edit1..edit5 как у каждого узнать текст?

for i := 0 to ComponentCount - 1 do
 if Components[i] is TEdit then
  with TEdit(Components[i]) do
   s := Text

есть ещё FindComponent

5 штук можно и без цикла

Я думал, после принятия современных стандартов там все хорошо, может даже свалить, ан нет походу:
https://habr.com/ru/post/497114
в каментах, как водится упоминается наше, родное :)

Господа вопрос, как TBcd сравнить с нулём? if TBcd = 0 - так правильно?

всегда хорошо там, где нас нет )

if BcdCompare(Value, IntegerToBcd(0)) = 0 then  - выглядит как жопенька

Сделал на коленке поиск на основе древовидной мап структуры. при поиске только одного шаблона работает примерно в 30 раз медленнее реализации влоб. скорости сравниваются примерно начиная с 55 шаблонов

на 130 шаблонах в 1.5 раза  быстрее

'парсенье' 8мегабайтного исходника полученого склейкой всех pas исходников компилятора fpc вышло в 2 раза медленнее чем брутфорс((

с регэкспами сравнивал? с заранее скомпилированными паттернами, где шаблоны твои через | заданы

нет сравнивал с брутфорсным поиском

{$IFDEF BRUTEFORCE}
 sumpos:=0;count:=0;
 myTime:=now;
 for i:=low(needles) to high(needles) do begin
   currpos:=pos(needles[i],haystack,1);
   if currpos>0 then
     repeat
       inc(count);
       sumpos:=sumpos+currpos;
       currpos:=pos(needles[i],haystack,currpos+1);
     until currpos<=0;
 end;
 writeln(format('BRUTEFORCE. Contains %d entries. summ of pos %d. %.4fsec',[count,sumpos,(now-myTime)*10e4]));
 {$ENDIF}

needles - массив слов которые ищем, haystack - гиганский стринг где ищем

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

понятно что результаты поиска такого брутфорса особо не применимы, но это минимальное время для поиска одного шаблона (если конечно rtl с умом написана)