Veresk

*Lazarus *public
Вот есть 7 окошек Memo, от Memo1 до Memo7. А как их циклом перебрать?? типа как:

for i:=1 to 7 do memo[i]:= 'hello'

#1929823
from Psi+, 22 days ago

← All messages

Replies (41)

Post a reply (xmpp)

@murrrf:
FindComponent есть?
#1929823/1
from api, 22 days ago
@Veresk:
@murrrf ищу
#1929823/2
from Psi+, 22 days ago, in reply to /1
@murrrf:
@Veresk Точнее, в Delphi он точно есть, как бы даже не метод TClass — не помню уже на память.
#1929823/3
from api, 22 days ago, in reply to /2
@trminator:
у формы есть коллекция, мнэ... Components со всеми её компонентами. Ну и как-то for i := 1 to Form1.ComponentsCount {вроде и такое есть} do {посмотреть на Form1.Components[i].Name и решить, чего с этим сделать}
#1929823/4
from Miranda, 22 days ago
@hohoho:
for I := 0 to Form.ComponentCount — 1 do
if Form.Components[I] is TMemo then {нашли мемо. работаем так: TMemo(Form.Components[I]).Clear;}
#1929823/5
from ╭╧╮╭╧╮, 22 days ago
@Veresk:
@hohoho "TMemo(Form1.Components[I]):= " не работает :-( Говорит, что хочет строку, а видит TMemo
#1929823/6
from Psi+, 22 days ago, in reply to /5
@hohoho:
@Veresk TMemo(Form1.Components[I]).Text := "
зачем классу присваивать строку то?:)
#1929823/7
from ╭╧╮╭╧╮, 22 days ago, in reply to /6
@Veresk:
@hohoho ой бля..
#1929823/8
from Psi+, 22 days ago, in reply to /7
@Veresk:
@Veresk

Ни ошибок, ни работы:

for i := 0 to Form1.ComponentCount — 1 do
if Form1.Components[i] is TMemo then
begin
TMemo(Form1.Components[I]).Text := IntToStr(i);
end;
#1929823/9
from Psi+, 22 days ago, in reply to /8
@hohoho:
@Veresk ну попробуй просто вызвать метод Clear, тебе же очистить надо? либо оперируй с Lines свойством
#1929823/10
from ╭╧╮╭╧╮, 22 days ago, in reply to /9
@hohoho:
@hohoho + на почитать: delphikingdom.ru
там есть про то, как работать с компонентами в динамике и немного про RTTI
#1929823/11
from ╭╧╮╭╧╮, 22 days ago, in reply to /10
@Veresk:
@hohoho не, мне заполнять надо
#1929823/12
from Psi+, 22 days ago, in reply to /10
@Veresk:
@hohoho clear молчит. Ладно, ща намоем
#1929823/13
from Psi+, 22 days ago, in reply to /11
@murrrf:
@Veresk Попробуй примерно так:
for i:=1 to 8 do
begin
(FindComponent('memo'+IntToStr(i) as TMemo).Lines.Add('Строка текста');
end;
Пишу по памяти, только через час смогу посмотреть, как правильно.
#1929823/14
from JasmineIM, 22 days ago, in reply to /9
@murrrf:
@murrrf Скобку перед as забыл.
#1929823/15
from JasmineIM, 22 days ago, in reply to /14
@hohoho:
@murrrf те же яйца, вид сбоку:) вместо одного цикла по компонентам будет 8:)
#1929823/16
from ╭╧╮╭╧╮, 22 days ago, in reply to /15
@Veresk:
@hohoho один хрен не выдаёт ничего, даже ошибок
#1929823/17
from Psi+, 22 days ago, in reply to /16
@murrrf:
@hohoho Так задача-то не перебрать все компоненты формы, а только 8 компонентов с именами вида 'memo1'..'memo8'. И с чего будет восемь циклов?
#1929823/18
from JasmineIM, 22 days ago, in reply to /16
@hohoho:
@murrrf когда мемо будут переименованы алго сфейлит. 8 циклов потому, что FindComponent внтури — цикл
#1929823/19
from ╭╧╮╭╧╮, 22 days ago, in reply to /18
@murrrf:
@hohoho Сфейлит, ну так никто и не говорил, что будет легко. А внутреннее устройство FindComponent — вопрос отдельный, но я все же сомневаюсь, что он ищет компонент с указанным именем, перебирая всю форму.
#1929823/20
from api, 22 days ago, in reply to /19
@hohoho:
@murrrf
function TComponent.FindComponent(const AName: string): TComponent;
var
I: Integer;
begin
if (AName <> '') and (FComponents <> nil) then
for I := 0 to FComponents.Count — 1 do
begin
Result := FComponents[I];
if SameText(Result.FName, AName) then Exit;
end;
Result := nil;
end;

собственно, любой поиск будет циклом. даже по классовым ссылкам
#1929823/21
from ╭╧╮╭╧╮, 22 days ago, in reply to /20
@murrrf:
@hohoho Убедительно. Но как минимум от одного цикла все равно никуда не деться, а если TMemo на форме больше, чем нужно перебрать в данный момент, то еще и имена проверять все же придется.
#1929823/22
from api, 22 days ago, in reply to /21
@hohoho:
@murrrf ну за один цикл оно менее накладно. а перебор всех сразу нужен как правило только для выставления начальных значений, либо для очистки
для отделения конкретных контролов от общей массы вообще лучше использовать Tag
#1929823/23
from ╭╧╮╭╧╮, 22 days ago, in reply to /22
@murrrf:
@hohoho Tag — довольно-таки бесполезное свойство.
Вот пример из личной практики. Форма, на форме матрица 10×10 индикаторов, отображающих состояние некоторого набора данных. Данные обновились, нужно переключить пятый индикатор во второй строке и третий — в четвертой. Кроме как перебором всех индикаторов, заранее обозванных как Led0101, Led0102, Led0209, Led0210, задачу не решить. Медленно, а куда деваться?
И даже если перебирать по тэгу, куда засунуты эти же цифры, получится та же скорость.
#1929823/24
from api, 22 days ago, in reply to /23
@hohoho:
@murrrf ну я б не сказал что медленно, этот цикл отщелкивается махом:) вот сравнивать цифры чутка побыстрее, чем сравнивать строки
#1929823/25
from ╭╧╮╭╧╮, 22 days ago, in reply to /24
@trminator:
@murrrf а почему не засунуть эти индикаторы в свою матрицу?
#1929823/26
from Miranda, 22 days ago, in reply to /24
@hohoho:
@trminator незачем. 100 проходов — это некритичный перебор
вот когда речь заходит о прогоне по 10к элементам, да с вложенными циклами — тогда да, нужно переосмыслять алгоритм
#1929823/27
from ╭╧╮╭╧╮, 22 days ago, in reply to /26
@Veresk:
@hohoho а мы это уже поняли, когда меряли скорости алгоритмов ))
#1929823/28
from Psi+, 22 days ago, in reply to /27
@murrrf:
@hohoho Да тот же шарик, только в профиль, падение производительности все равно не на переборе, а на отрисовке контролов — и то решается через BeginUpdate.
#1929823/29
from api, 22 days ago, in reply to /25
@hohoho:
@Veresk на самом деле циклы часто отщелкиваются быстро, ибо есть оптимизации и отсечения итераций с неудовлетворяющими условиями.
медленно всегда выходит, если нужно перевыделить память (строки — привет), либо имеется длительная функция внутри тела цикла
#1929823/30
from ╭╧╮╭╧╮, 22 days ago, in reply to /28
@murrrf:
@trminator В каком смысле засунуть индикаторы в матрицу?
#1929823/31
from api, 22 days ago, in reply to /26
@hohoho:
@murrrf вообще, 100 контролов на форме — уже повод задуматься и переделать на нормальный подход:)
#1929823/32
from ╭╧╮╭╧╮, 22 days ago, in reply to /29
@trminator:
@murrrf array[1..10, 1..10] of TIndicator
#1929823/33
from Miranda, 22 days ago, in reply to /31
@murrrf:
@hohoho Даже если оставить в стороне тот факт, что программа была написана лет пять назад, никуда не деться от того, что она отображает и переключает состояние набора данных некоей железяки, с доступом к каждому отдельному биту, и чтоб кнопочка была покрупнее, а то заказчик близорук.
#1929823/34
from api, 22 days ago, in reply to /32
@hohoho:
@murrrf это понятно. но куда лучше было бы все это сделать одним контролом:)
#1929823/35
from ╭╧╮╭╧╮, 22 days ago, in reply to /34
@murrrf:
@trminator Ну, что-то в этом есть, хотя в начале работы нужно связывать контролы на форме с элементами матрицы/создавать элементы матрицы на форме. Впрочем, дело уже прошлое.
#1929823/36
from api, 22 days ago, in reply to /33
@murrrf:
@hohoho Увы, одним контролом это не делалось. Сложная была программа, хотя и крайне узкоспециализированная, непосредственно под железку написанная.
#1929823/37
from api, 22 days ago, in reply to /35
@hohoho:
@murrrf да ладно, вполне реализуемо. делается PaintBox, разбивается на прямоугольники и рисуется само:)
#1929823/38
from ╭╧╮╭╧╮, 22 days ago, in reply to /37
@trminator:
@murrrf раз прошлое и работает, то и не надо ворошить, конечно. А так всё равно контролы поди создаются при создании формы динамически, заодно там же засунуть их в массив было бы одной лишней строчкой, а потом зато их искать не надо было бы. Хотя мне тут не видно всего, конечно.
#1929823/39
from Miranda, 22 days ago, in reply to /36
@murrrf:
@hohoho Так я делал, когда надо было выводить битовый массив офигенной длины для просмотра. А сотню значений, которые отображаются и регулируются из программы, проще было кликабельными лампочками отобразить.
#1929823/40
from api, 22 days ago, in reply to /38
@murrrf:
@trminator Может, уже и не работает — железку могли и списать, а без железки программа бесполезна.
#1929823/41
from api, 22 days ago, in reply to /39

Subscribe

Replies (41)

Messages