Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: 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 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.047 c
14-1095943257
Igorek
2004-09-23 16:40
2004.10.17
Генератор патчей


1-1096949483
Simon
2004-10-05 08:11
2004.10.17
Forms


1-1096479986
xman
2004-09-29 21:46
2004.10.17
TreeView


14-1096088459
Kair()
2004-09-25 09:00
2004.10.17


3-1095046626
vasili
2004-09-13 07:37
2004.10.17
Вход в запароленную базу ADO