| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание компанентов. [D6, Win2k]

jen_bond ©   (2003-01-03 15:09:00) 

У меня есть ini файл в котором храниться информация о компанентах, и я хочу при нажатии на кнопку что бы все эти компаненты были созданы.

procedure TForm1.Button1Click(Sender: TObject);
var
IniFile: TiniFile;
work: string;
x:TLabel;
i,c:integer;
begin
IniFile := TiniFile.Create("c:\monitor.ini");
c:=StrToInt(IniFile.ReadString("MonitoringCreate","Labelcount",""));
for i:=0 to c do begin
work:="";
work:=IniFile.ReadString("MonitoringCreate","Label"+IntToStr(i)+"","");
x:=TLabel.create(self);
x.Caption:=""+IntToStr(i)+"";
x.Top:=x.Top+20;
x.Name:=work;
x.parent:=Form1;
end;
IniFile.Free;
end;

Но создается только один. Где я допустил ошибку

---

Igorek   (2003-01-03 18:56:00) [1]

А что такое компАнент? ;-)))

---

jen_bond   (2003-01-03 15:59:00) [2]

Спасибо!

---

Anatoly Podgoretsky   (2003-01-03 15:28:00) [3]

А ты чего ожидал, если ты его размещаешь по одним и тем же координатам

---

jen_bond   (2003-01-03 15:24:00) [4]

На форме отоброжается только один компанент.

---

Anatoly Podgoretsky   (2003-01-03 15:18:00) [5]

Song © (03.01.03 15:14)
Вообще то она совсекм не нужна

---

Anatoly Podgoretsky   (2003-01-03 15:16:00) [6]

Как определил, что создан только один, ты проверял ComponentCount до и после.

---

Song   (2003-01-03 15:14:00) [7]

Переменная одна.

---

Наверх