проблема с TEdit
На форме есть Edit1, Edit2 один использется в процедуре Button1Click(Sender: TObject) а другой в Button2Click(Sender: TObject). в одной процедуре Edit1.Text работает, а в другой Edit2.Text выдает ошибку.. в чём проблема?подскажите пожалуйста
- Какую ошибку-то выдаёт? от mfender, 09 мая 2013 года
Код в студию...
Ошибка в 17 строке.
Цитата: ellor!
Ошибка в 17 строке.
НЕ ВЕРЮ!!!
Если проект по умолчанию и разместить на форме два едита то 17-я строка содержит вот это:
Код:
end;
Но например:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
begin
str := Edit1.Text;
delete(str, 3, 5);
Edit1.Text := str; // - все работает.
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
delete(Edit2.Text, 3, 5); //- ошибка
end;
var
str: string;
begin
str := Edit1.Text;
delete(str, 3, 5);
Edit1.Text := str; // - все работает.
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
delete(Edit2.Text, 3, 5); //- ошибка
end;
Цитата: GNDragonfly
Бредовый вопрос - бредовые ответы.
Но например:
Напишите лучше код программы, а лучше заплатите головастику, чтобы за вас сделали программу и забудьте такое слово "программирование" ;)
Но например:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
begin
str := Edit1.Text;
delete(str, 3, 5);
Edit1.Text := str; // - все работает.
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
delete(Edit2.Text, 3, 5); //- ошибка
end;
var
str: string;
begin
str := Edit1.Text;
delete(str, 3, 5);
Edit1.Text := str; // - все работает.
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
delete(Edit2.Text, 3, 5); //- ошибка
end;
Тут бесполезно гадать. Если бы был код, или хотябы выложен текст ошибки то человеку скорее всего помогли.