TEdit не видит введённый текст. - Компоненты Delphi

Andrej_K · 28.12.2013, 23:33

TEdit не видит введённый текст.
Пока ввожу что-то, добавляются записи в БД. Если один раз пробую добавить пустую строку, то что-то «заклинивает» и потом всё введённое уже всегда воспринимается как пустая строка.

Код:

procedure TForm_GlavnoeOkno.Button_DobavitSlovoClick(Sender: TObject);
begin
  DataModule_DM1.ADOTable_KluchevyeSlova.Insert;
  DataModule_DM1.ADOTable_KluchevyeSlova.FieldByName('Slovo').AsString :=
    Form_GlavnoeOkno.Edit_VvodSlova.Text;
  DataModule_DM1.ADOTable_KluchevyeSlova.Post;
  Form_GlavnoeOkno.CheckListBox_SpisokSlov.Items.Add
    (DataModule_DM1.ADOTable_KluchevyeSlova.FieldByName('Slovo').AsString);
  Form_Dobavleno.Label_Dobavleno.Caption := 'Слово «' +
    Form_GlavnoeOkno.Edit_VvodSlova.Text + '» добавлено.';
  Form_GlavnoeOkno.Edit_VvodSlova.Text:='';
  Form_Dobavleno.ShowModal;
end;

Подскажите, что не так?

…все молчат…

Andrej_K · 30.12.2013, 05:02

Почему все молчат?

Serge_Bliznykov · 30.12.2013, 08:53

где и как оно " «заклинивает» и потом всё введённое уже всегда воспринимается как пустая строка." ?!
в таблицу данные добавляются нормально, только отображение "заклинивает" ?
ну и TEdit здесь вообще не при чём, разбирайтесь, с вашим ADOTable.
На крайний случай, поставьте в начале процедуры добавления, проверку, если Form_GlavnoeOkno.Edit_VvodSlova.Tex t имеет пустое значение, то ругайтесь/выходите из процедуры добавления...

28.12.2013, 23:33	#1
Andrej_K Форумчанин Регистрация: 27.07.2013 Сообщений: 256	TEdit не видит введённый текст. TEdit не видит введённый текст. Пока ввожу что-то, добавляются записи в БД. Если один раз пробую добавить пустую строку, то что-то «заклинивает» и потом всё введённое уже всегда воспринимается как пустая строка. Код: procedure TForm_GlavnoeOkno.Button_DobavitSlovoClick(Sender: TObject); begin DataModule_DM1.ADOTable_KluchevyeSlova.Insert; DataModule_DM1.ADOTable_KluchevyeSlova.FieldByName('Slovo').AsString := Form_GlavnoeOkno.Edit_VvodSlova.Text; DataModule_DM1.ADOTable_KluchevyeSlova.Post; Form_GlavnoeOkno.CheckListBox_SpisokSlov.Items.Add (DataModule_DM1.ADOTable_KluchevyeSlova.FieldByName('Slovo').AsString); Form_Dobavleno.Label_Dobavleno.Caption := 'Слово «' + Form_GlavnoeOkno.Edit_VvodSlova.Text + '» добавлено.'; Form_GlavnoeOkno.Edit_VvodSlova.Text:=''; Form_Dobavleno.ShowModal; end; Подскажите, что не так? …все молчат… Последний раз редактировалось Andrej_K; 29.12.2013 в 21:19.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Sendinput отправить текст из tEdit?	Retynkol	Общие вопросы Delphi	0	15.10.2011 03:34
введённый текст вывести пять раз	ziganurov2011	Паскаль, Turbo Pascal, PascalABC.NET	11	22.07.2011 17:41
Как проверить, является ли введённый текст действительным числом, на паскале?	Раздва	Помощь студентам	7	06.06.2010 17:11
Как в TEdit поместить текст из файла?	DimOn4Ik	Общие вопросы Delphi	6	23.01.2010 22:27
Как разделить текст в Tedit на 2 переменные.	Ната	Общие вопросы Delphi	2	23.04.2007 12:48

30.12.2013, 05:02	#2
Andrej_K Форумчанин Регистрация: 27.07.2013 Сообщений: 256	Почему все молчат?

30.12.2013, 08:53	#3
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	где и как оно " «заклинивает» и потом всё введённое уже всегда воспринимается как пустая строка." ?! в таблицу данные добавляются нормально, только отображение "заклинивает" ? ну и TEdit здесь вообще не при чём, разбирайтесь, с вашим ADOTable. На крайний случай, поставьте в начале процедуры добавления, проверку, если Form_GlavnoeOkno.Edit_VvodSlova.Tex t имеет пустое значение, то ругайтесь/выходите из процедуры добавления...