Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Вниз
Работа с большим количеством TEdit Найти похожие ветки
← →
Chepel (2002-04-10 09:18) [3]Менее эффективная, но более "ленивая" функция.
Использование:
Edit(N).Text := ...
Edit(N).Enabled := ...
и тд...
Недостатки:
1) работает правильно только если имена ( .Name) эдитов следуют в порядке (Edit1, Edit2, ..., EditN)
2) работает тока если Edit"ы лежат на одном папе (в данном случае - это форма)
3) медленная ( при больших N ~1000(???) )
4) может выбивать экзепшин, если использовать как
Edit(N).Text := "Something"; при неправильном N
Достоинства:
1) Не надо присваивать массив
2) Не надо менять код (см. 4) если меняется кол-во Edit"ов
function TForm1.Edit(Index: Integer): TEdit;
var
i, cnt: Integer;
C: TControl;
CtrlName: string;
begin
cnt := ControlCount - 1;
CtrlName := "Edit"+IntToStr(Index);
for i:=0 to cnt do
begin
C := Controls[i];
if CompareText(C.Name, CtrlName) = 0 then
begin
Result := C as TEdit;
Exit;
end;
end;
Result := nil;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
