Массив 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] не было.

Здесь была ошибка:
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 (" ничего не добавляется

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

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

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

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

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