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

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

Переход к незаполненному TEdit

Igorntk ©   (2006-04-14 10:47:00) 

Здравствуйте, уважаемые мастера! Нажатием кнопки заполняю Edit1. Если в нем уже находится запись, нужно, чтобы при повторном нажатии кнопки заполнялся Edit2. Пробовал так:
if DBEdit1.Text<> '' then
DBEdit2.Text := 'тест2';
DBEdit1.Text := 'тест';
Нажатием кнопки заполняются сразу два Edit. Подскажите, как правильно сделать последовательность: если заполнен 1, заполняем 2?
Спасибо!

---

AbrosimovA   (2006-04-20 10:36:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
   A,B : TComponent;
   CountEdit: integer;
begin
CountEdit:=5;
for i := 1 to CountEdit do
begin
   B:=FindComponent('Edit' + IntToStr(i));
   A:=FindComponent('Edit' + IntToStr(i-1));
   if A<>nil then begin
     if TEdit(A).Text='' then
      if TEdit(A).Name='Edit1' then
       TEdit(A).Text:='тест'
      else TEdit(A).Text:='тест'+IntToStr(i-1)
     else
      if TEdit(A).Name<>'Edit1' then
       TEdit(A).Text:='тест'+IntToStr(i-1);
     TEdit(B).Text:='тест'+IntToStr(i);
   end //if A
end; //for i
end;

---

Igorntk   (2006-04-20 10:06:00) [2]

> EvS ©   (20.04.06 09:54) [7]

Большое спасибо!
А также всем! Книжки стараюсь читать, но иногда бывают заскоки. Как этот

---

EvS   (2006-04-20 09:54:00) [3]

if DBEdit1.Text<> '' then
if DBEdit2.Text<>'' then
  DBEdit3.Text := 'тест3'
else
  DBEdit2.Text := 'тест2'
else
DBEdit1.Text := 'тест';

---

Sergey13   (2006-04-20 09:39:00) [4]

2[3] Igorntk   (20.04.06 09:37)
Теперь попробуй вставить else в нужное место.

---

Ega23   (2006-04-20 09:39:00) [5]

> if DBEdit1.Text<> '' then
> else
> DBEdit1.Text := 'тест';
> DBEdit2.Text := 'тест2';


Мда....
Может книжку почитаешь? Самую простую? Даже не обязательно по Delphi...
if DBEdit1.Text<> '' then
DBEdit2.Text := 'тест2'
else
DBEdit1.Text := 'тест';

---

balepa   (2006-04-20 09:39:00) [6]

Igorntk   (20.04.06 09:37) [3]

if DBEdit1.Text<> '' then
 DBEdit1.Text := 'тест'
else
 DBEdit2.Text := 'тест2';

---

Igorntk   (2006-04-20 09:37:00) [7]

if DBEdit1.Text<> '' then
else
DBEdit1.Text := 'тест';
DBEdit2.Text := 'тест2';

Не получается с последующими незаполненными Edit. Подскажите, что нужно сделать, чтобы заполнялся Edit3, если заполнен Edit2 и тд? Это должно обрабатываться нажатием одной и той же кнопки. Спасибо заранее!

---

Ega23   (2006-04-14 10:53:00) [8]

> if DBEdit1.Text<> '' then
> DBEdit2.Text := 'тест2';
> DBEdit1.Text := 'тест';


else забыл поставить.

---

Dmitrij_K   (2006-04-14 10:51:00) [9]

if DBEdit1.Text<> '' then
begin
DBEdit2.Text := 'тест2';
end

---

Наверх