Form1.Components[k] не видит TEdit

@hiddenRaum · Регистрация: 02.12.2009

Студворк — интернет-сервис помощи студентам

Хотел очистить все Edit на форме от Text. Но по какой-то причине то, что работает с TLabel не работает с TEdit
Bcgjkmpe. ShowMessage('1'); для проверки условия и ничего не выдает.
Почему такое может быть? На машине есть установленный ememcadero starter он может такое сделать(заменить библиотеки и т.п.)?
Вот код который использую

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
  k:integer;
begin
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('Select * from tink');
SQLQuery1.Open;
SQLQuery1.First;
k:=1;
For i:=0 to  SQLQuery1.RecordCount do begin
      if k<9 then begin
       if Form1.Components[k] is TLabel then (Form1.Components[k] as TLabel).Caption := SQLQuery1.Fields[0].AsString;
       if Form1.Components[k] is Tlabel then ShowMessage('1');
         //(Form1.Components[k] as TEdit).Clear;
        SQLQuery1.Next;
        k:=k+1;
        ShowMessage(IntToStr(k));
        end;
       end;
SQLQuery1.Close;
end;

@hiddenRaum · 18.10.2017, 00:19 **[ТС]**

В каком виде лучше Вам базу кинуть? Я не работал еще толком в MySQL не могу выбрать, что лучше.
Там всего 1 таблица. Я только-только начал заниматься lazarus. Вот скриншот это таблицы.

@Joey · 18.10.2017, 00:38

Сообщение от hiddenRaum

Хотел этим кодом очистить Edit.Text (удобно когда программируешь и видишь названия элементов, а когда программ работает, то они уже мешают). Но этот код не работает. Для Label вроде работает (с некоторыми оговорками)

Когда обрабатываешь OnCreate, надо быть очень осторожным, потому что в этот момент у компонентов формы некоторые качества отличаются от того, когда программа работает. Например, визуальную их сторону нельзя трогать (грубо говоря).

То, что Вы хотите сделать сработает только на OnShow

Добавлено через 3 минуты

Сообщение от hiddenRaum

В каком виде лучше Вам базу кинуть?

как файл. Как он у Вас называется tinkoff

@hiddenRaum · 18.10.2017, 00:52 **[ТС]**

Ответ про OnShow не обрадовал, но хотя бы понятен.

Вот файлы базы и таблиц. Скопировать не вышло, так как сервер не дает доступа к файлам. ругнулось и не дало сделать архив для отправки. Там лежат несколько файлов и я не знаю сможете ли вы их потом использовать. чтоб они заработали.
Прикладываю выгрузки из phpmyadmin у него есть средства выгрузки и загрузки. Мне кажется так точно выйдет импортировать базу.

@hiddenRaum · 18.10.2017, 00:54 **[ТС]**

Не пиркрепились видимо формат не тот. Вторая попытка

@hiddenRaum · 18.10.2017, 01:01 **[ТС]**

Перенес код на OnShow - все равно не работает

Добавлено через 3 минуты
Использую кнопку для выполнения кода на уже созданной и загруженной форме. Все равно не срабатывает.
Так что дело как минимум не только в том, что форма еще не до создалась.

@Joey · 18.10.2017, 01:17

Сообщение от hiddenRaum

Использую кнопку для выполнения кода на уже созданной и загруженной форме. Все равно не срабатывает.

Я открыл Ваш проект, перенес код в OnShow - у меня работает. Что-то Вы делаете не так

@hiddenRaum · 18.10.2017, 11:26 **[ТС]**

А что я могу делать не так?

Добавлено через 7 минут
У меня 64-bit windows и все остальное установлено 64 бита.
Виндовс русскоязычная, но интерфейс я выбрал на английском языке
Может lazarus-у есть разница, где запускаться на Вашей машине или на моей, но код ведь одинаковый.

Добавлено через 2 часа 36 минут
Создал новый проект. накидал элементы и запустил на компиляцию. Выдает ошибку:
External:SIGS EGV

Хоть Вы и пытаетесь меня уговорить, что Lazarus это хорошо, но я все больше начинаю думать, что это не так.

Добавлено через 1 час 10 минут
Удалил Rad studio, переустановли Lazarus. Лучше не стало. Теперь еще добавились "странности" с SQl компонентами. Ругаются на то что запрещены циклические запросы.
Components так и не заработал. Пойду посмотрю в сторону С#

@volvo · 18.10.2017, 11:37

Сообщение от hiddenRaum

Пойду посмотрю в сторону С#

Жду вопросов в ветке по Шарпу: "Ааааа!!!!111... Ничего не работает, переустановил Windows - стало еще хуже"

"Нечего на зеркало пенять..." (С)

@hiddenRaum · 18.10.2017, 11:41 **[ТС]**

ок...

@edukra · 18.10.2017, 12:07

Если вместо этого куска кода

Pascal
1
2
3
4
5
6
7
8
9
10
k:=1;
while not SQLQuery1.EOF do begin
       if Components[k] is TLabel then (Components[k] as TLabel).Caption := SQLQuery1.FieldByName('Que').AsString;
       //if Components[k] is TEdit then ShowMessage('1');
       if Components[k] is Tedit then ShowMessage('1');
         //(Form1.Components[k] as TEdit).Clear;
        SQLQuery1.Next;
        k:=k+1;
        //ShowMessage(IntToStr(k));
        end;

вставить этот

Pascal
1
2
3
4
5
6
7
for k:=0 to componentcount-1 do begin
  if (Components[k] is TLabel) and not SQLQuery1.EOF  then begin
    (Components[k] as TLabel).Caption := SQLQuery1.FieldByName('Que').AsString;
    SQLQuery1.Next;
  end;
  if Components[k] is Tedit then (Components[k] as TEdit).text:='';
end;

то должно хоть как-то заработать

@hiddenRaum · 18.10.2017, 12:38 **[ТС]**

Да, этот код сработал
Но почему надо писать так не понятно .. мне такие финты не нравятся

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

@hiddenRaum 1 / 1 / 1 Регистрация: 02.12.2009 Сообщений: 167
	18.10.2017, 00:19 [ТС]
	В каком виде лучше Вам базу кинуть? Я не работал еще толком в MySQL не могу выбрать, что лучше. Там всего 1 таблица. Я только-только начал заниматься lazarus. Вот скриншот это таблицы. Миниатюры 0

@hiddenRaum 1 / 1 / 1 Регистрация: 02.12.2009 Сообщений: 167
	18.10.2017, 00:52 [ТС]
	Ответ про OnShow не обрадовал, но хотя бы понятен. Вот файлы базы и таблиц. Скопировать не вышло, так как сервер не дает доступа к файлам. ругнулось и не дало сделать архив для отправки. Там лежат несколько файлов и я не знаю сможете ли вы их потом использовать. чтоб они заработали. Прикладываю выгрузки из phpmyadmin у него есть средства выгрузки и загрузки. Мне кажется так точно выйдет импортировать базу. 0

@hiddenRaum 1 / 1 / 1 Регистрация: 02.12.2009 Сообщений: 167
	18.10.2017, 01:01 [ТС]
	Перенес код на OnShow - все равно не работает Добавлено через 3 минуты Использую кнопку для выполнения кода на уже созданной и загруженной форме. Все равно не срабатывает. Так что дело как минимум не только в том, что форма еще не до создалась. 0

@hiddenRaum 1 / 1 / 1 Регистрация: 02.12.2009 Сообщений: 167
	18.10.2017, 11:26 [ТС]
	А что я могу делать не так? Добавлено через 7 минут У меня 64-bit windows и все остальное установлено 64 бита. Виндовс русскоязычная, но интерфейс я выбрал на английском языке Может lazarus-у есть разница, где запускаться на Вашей машине или на моей, но код ведь одинаковый. Добавлено через 2 часа 36 минут Создал новый проект. накидал элементы и запустил на компиляцию. Выдает ошибку: External:SIGS EGV Хоть Вы и пытаетесь меня уговорить, что Lazarus это хорошо, но я все больше начинаю думать, что это не так. Добавлено через 1 час 10 минут Удалил Rad studio, переустановли Lazarus. Лучше не стало. Теперь еще добавились "странности" с SQl компонентами. Ругаются на то что запрещены циклические запросы. Components так и не заработал. Пойду посмотрю в сторону С# 0

@hiddenRaum 1 / 1 / 1 Регистрация: 02.12.2009 Сообщений: 167
	18.10.2017, 11:41 [ТС]
	ок... 0

@hiddenRaum 1 / 1 / 1 Регистрация: 02.12.2009 Сообщений: 167
	18.10.2017, 12:38 [ТС]
	Да, этот код сработал Но почему надо писать так не понятно .. мне такие финты не нравятся 0