Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Массив EDITов [D6, WinXP]

Lord de Mon © (2004-10-06 12:54:00)
Мастера!!! Как создать массив EDITов? Кто знает, подскажите, или скажите где можно почитать.
Мне просто надо в цыкле проверить не равняется ли содержимое эдита ''. Думаю, что надо создать массив. Есть варианты, пишите.
Благодарю.

Lord de Mon (2004-10-06 13:42:00) [1]
да я только что это увидел
самому смешно. Но со всяким бывает ;-)))

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

begin...end (2004-10-06 13:39:00) [3]
Почему ты думаешь, что количество элементов в твоём массиве равно количеству компонентов на форме?

Lord de Mon (2004-10-06 13:36:00) [4]
Здесь была ошибка:
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:34:00) [5]

> for i := 1 to 14 do

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

Lord de Mon (2004-10-06 13:33:00) [6]
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:32:00) [7]
Куда и как ты вставил код из [1]? Покажи.

Lord de Mon (2004-10-06 13:31:00) [8]

> Тогда [1]

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

begin...end (2004-10-06 13:25:00) [9]
Тогда [1]

Lord de Mon (2004-10-06 13:24:00) [10]

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

Да

begin...end (2004-10-06 13:14:00) [11]

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

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

Lord de Mon (2004-10-06 13:07:00) [12]
Кусок программы:
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 12:59:00) [13]
В каком цикле? Поподробнее, пожалуйста. Может быть, и без массива обойдёмся.

Sergey_Masloff (2004-10-06 12:58:00) [14]
for i := 0 to Pred(ComponentCount) do if (Components[i] is TEdit) then if TEdit(Components[i]).Text = '' then DoSomething();

Наверх

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