Скачать: CL | DM;

Массив EDITов   Найти похожие ветки 

← →
Lord de Mon ©   (2004-10-06 12:54) [0]

Мастера!!! Как создать массив EDITов? Кто знает, подскажите, или скажите где можно почитать.
Мне просто надо в цыкле проверить не равняется ли содержимое эдита "". Думаю, что надо создать массив. Есть варианты, пишите.
Благодарю.

---

← →
Sergey_Masloff   (2004-10-06 12:58) [1]


for i := 0 to Pred(ComponentCount) do
 if (Components[i] is TEdit) then
   if TEdit(Components[i]).Text = "" then
      DoSomething();


---

← →
begin...end ©   (2004-10-06 12:59) [2]

В каком цикле? Поподробнее, пожалуйста. Может быть, и без массива обойдёмся.

---

← →
Lord de Mon ©   (2004-10-06 13:07) [3]

Кусок программы:

procedure TForm1.Button1Click(Sender: TObject);
const  a : array[1..14] of string =  ("DATA", "CLIENT", "ZAGOT", "CARNAME", "CARNOMBER", "SKLAD", "CINA", "PORODA", "COPT", "L", "D", "V", "KILKIST", "SUMA");
begin
  s := "INSERT INTO PRYHID2 (";
  {
  в цыкле for проверяется содержимое эдита
  если эдит <> "" тогда
  s := s + a[i]
  }
end;

---

← →
begin...end ©   (2004-10-06 13:14) [4]

> [3] Lord de Mon ©   (06.10.04 13:07)

Ну так а Edit"ы уже созданы и находятся на форме?

---

← →
Lord de Mon ©   (2004-10-06 13:24) [5]

> Ну так а Edit"ы уже созданы и находятся на форме?

Да

---

← →
begin...end ©   (2004-10-06 13:25) [6]

Тогда [1]

---

← →
Lord de Mon ©   (2004-10-06 13:31) [7]

> Тогда [1]

Тут ошибка
Access voiolation ........ Read for address .....

---

← →
begin...end ©   (2004-10-06 13:32) [8]

Куда и как ты вставил код из [1]? Покажи.

---

← →
Lord de Mon ©   (2004-10-06 13:33) [9]

  s := "INSERT INTO PRYHID2 (";
  for i := 1 to 14 do
   if (Components[i] is TEdit) then
    if TEdit(Components[i]).Text = "" then
     s := s + """" + a[i] + """"+ ",";

---

← →
begin...end ©   (2004-10-06 13:34) [10]

> for i := 1 to 14 do

Такого в [1] не было.

---

← →
Lord de Mon ©   (2004-10-06 13:36) [11]

Здесь была ошибка:

for i := 0 to Pred(ComponentCount) do
if (Components[i] is TEdit) then
  if TEdit(Components[i]).Text = "" then
     s := s + """" + a[i] + """"+ ",";



А здесь(,
> Lord de Mon ©   (06.10.04 13:33) [9]
) её нету, но к строке
s := "INSERT INTO PRYHID2 (" ничего не добавляется

---

← →
begin...end ©   (2004-10-06 13:39) [12]

Почему ты думаешь, что количество элементов в твоём массиве равно количеству компонентов на форме?

---

← →
Sergey_Masloff   (2004-10-06 13:40) [13]

begin...end ©   (06.10.04 13:39) [12]
>Почему ты думаешь, что количество элементов в твоём массиве >равно количеству компонентов на форме?
И что они в списке дочерних компонент формы именно с 1 по 14
;-)))

---

← →
Lord de Mon ©   (2004-10-06 13:42) [14]

да я только что это увидел
самому смешно. Но со всяким бывает ;-)))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.98 c