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

← →
Igorntk (2006-04-14 10:47) [0]

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

← →
Dmitrij_K (2006-04-14 10:51) [1]

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

← →
Ega23 © (2006-04-14 10:53) [2]

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

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

← →
Igorntk (2006-04-20 09:37) [3]

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

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

← →
Sergey13 © (2006-04-20 09:39) [4]

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

← →
Ega23 © (2006-04-20 09:39) [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) [6]

Igorntk (20.04.06 09:37) [3]

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

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

← →
Igorntk (2006-04-20 10:06) [8]

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

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

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;

Переход к незаполненному TEdit Найти похожие ветки