Edit и ProgressBar

@Bekonai · Регистрация: 15.04.2010

Author24 — интернет-сервис помощи студентам

ЗдравствуйтеПомогите мне пожалуйста. У меня на форме имеется один Edit1 и два ProgressBar-а. Теперь мне нужно проверять слово введеный в Edit1. Если правильно тогда первый ProgressBar должен увеличиваться на 10. А если не правильно тогда уже второй ProgressBar должен увеличиваться на 10. А проверка должна выполнятся в процедуре OnChange. Заранее большое всем спасибо!!!

deathNC · 08.05.2010, 13:12

А где взять правильное слово, с которым будем сравнивать то, что в Edit1 ввели?

@Ztrel · 08.05.2010, 13:18

Ндя. А если ProgressBar до ста дойдет, то что делать?

Ну да ладно, не важно...

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
 
if Edit1.Text = 'Word' then
ProgressBar1.Position:= ProgressBar1.Position + 10
else
ProgressBar2.Position:= ProgressBar2.Position + 10;
 
end;

@Евгений В · 08.05.2010, 15:30

Bekonai,
может тебе такой вариант подойдет?

Delphi

var
  Form1: TForm1;
  Progress1,Progress2: Integer;
  word: String;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 word:='слово' {проверочное слово}
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 if edit1.Text = Word then
 Progress1:=Progress1+10 else Progress2:=Progress2+10 ;
 
 ProgressBar1.OnChange(nil);
 ProgressBar2.OnChange(nil);
end;
 
procedure TForm1.ProgressBar1Change(Sender: TObject);
begin
  if edit1.Text = Word then
      ProgressBar1.Position:=Progress1;
 
end;
 
procedure TForm1.ProgressBar2Change(Sender: TObject);
begin
   if edit1.Text <> Word then
       ProgressBar2.Position:=Progress2;
end;

@Bekonai · 08.05.2010, 15:57 **[ТС]**

Сообщение от Ztrel

Ндя. А если ProgressBar до ста дойдет, то что делать?

Ну да ладно, не важно...

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
 
if Edit1.Text = 'Word' then
ProgressBar1.Position:= ProgressBar1.Position + 10
else
ProgressBar2.Position:= ProgressBar2.Position + 10;
 
end;

Спасибо за ответ. Но тогда оба ProgressBar-а будет двигаться одновремеено. А мне нужно сделать так первый ProgressBar двигался тогда, когда введеные слово в Edit будет правильным.

Добавлено через 7 минут

Сообщение от Евгений В

Bekonai,
может тебе такой вариант подойдет?

Delphi

var
  Form1: TForm1;
  Progress1,Progress2: Integer;
  word: String;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 word:='слово' {проверочное слово}
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 if edit1.Text = Word then
 Progress1:=Progress1+10 else Progress2:=Progress2+10 ;
 
 ProgressBar1.OnChange(nil);
 ProgressBar2.OnChange(nil);
end;
 
procedure TForm1.ProgressBar1Change(Sender: TObject);
begin
  if edit1.Text = Word then
      ProgressBar1.Position:=Progress1;
 
end;
 
procedure TForm1.ProgressBar2Change(Sender: TObject);
begin
   if edit1.Text <> Word then
       ProgressBar2.Position:=Progress2;
end;

Здравствуйте. Спасибо БОЛЬШОЕ за ответ. В принципе и так можно. Но у меня к ВАМ с Вашего разрешение еще один вопрос. Если у меня на форме будет больше чем одного Edit-а тогда как можно проверить все Edit-ы? Заранее болшьое ВАМ спасибо!

@Евгений В · 08.05.2010, 16:43

Bekonai,
Так можно

Delphi

var
  Form1: TForm1;
  Progress1,Progress2,CountEdit: Integer;
  word: String;
   Ok: Boolean;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 word:='слово'; {проверочное слово}
 CountEdit:=3; {количество Edito-в}
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
 
Ok:=False;
   For i:=1 to CountEdit do
    if TEdit(FindComponent('Edit'+IntToStr(i))).Text = Word then Ok:=True;
 
    if Ok then Progress1:=Progress1+10
    else Progress2:=Progress2+10 ;
 
    ProgressBar1.OnChange(nil);
    ProgressBar2.OnChange(nil);
 
end;
 
procedure TForm1.ProgressBar1Change(Sender: TObject);
begin
   if  Ok  then
      ProgressBar1.Position:=Progress1;
 
end;
 
procedure TForm1.ProgressBar2Change(Sender: TObject);
begin
   if not Ok then
       ProgressBar2.Position:=Progress2;
end;
 
end.

@Bekonai 1 / 1 / 0 Регистрация: 15.04.2010 Сообщений: 19
		1
	Edit и ProgressBar 08.05.2010, 12:58. Показов 1774. Ответов 5 Метки нет (Все метки) ЗдравствуйтеПомогите мне пожалуйста. У меня на форме имеется один Edit1 и два ProgressBar-а. Теперь мне нужно проверять слово введеный в Edit1. Если правильно тогда первый ProgressBar должен увеличиваться на 10. А если не правильно тогда уже второй ProgressBar должен увеличиваться на 10. А проверка должна выполнятся в процедуре OnChange. Заранее большое всем спасибо!!! 0

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	08.05.2010, 13:12	2
	А где взять правильное слово, с которым будем сравнивать то, что в Edit1 ввели? 0

	08.05.2010, 16:43