Как очистить edit в delphi
Перейти к содержимому

Как очистить edit в delphi

  • автор:

DELPHI ОЧИСТИТЬ EDIT

В Delphi-приложениях Edit используется для ввода текстовой информации. Но иногда возникают ситуации, когда необходимо очистить содержимое Edit:

Этот код очистит Edit1 и удалит все находящиеся в ней символы.

Советы дизелисту Common Rail Delphi

Delphi 7 Tutorial : Simple Trick How to Clear All Edit’s Text and Memo’s Text in the One Form

add new,delete ,edit records interbase delphi part1

Delphi — SQL Update Delete Insert

My Delphi Tips (add+delete+edit) part3

Editing Databases in Delphi — Deleting a record

Delphi — Copy and Delete

Editing Databases in Delphi — Inserting a new record

Delphi — ListBox — (Add — Delete — Clear)

Очистить несколько edit полей по нажатию кнопки

В общем есть форма(From1) на ней лежит PageControl,на самой первой странице лежит GroupBox1,а на самом GroupBox1 лежат 9 полей Edit.Нужно чтобы по нажатию на кнопку(которая тоже лежит в GroupBox1) очищались все Edit поля лежащие в GroupBox1.

_SERGEYX_

var i: Integer; 
begin
For i:= 0 to GroupBox1.ControlCount - 1 do
if GroupBox1.Controls is TEdit then
( GroupBox1.Controls as TEdit).Text := '';
end;

Похожие статьи

  • Очистить все edit’ы на форме
  • Прозрачный Edit (Делфи)
  • Добавить строку с верха вниз StringGrid
  • Скопировать данные из Edit в Word
  • Среднеарифметическое значение из Edit
  • Как сделать что бы в Edit был прозрачный текст который при введение в Editисчез
  • Если ввести значение в edit, и нажать Enter, то система воспроизводит звук, как от него избавиться?
  • Получить числовое значение из edit
  • Соединить 2 edit линией
  • Как при нажатии на button создавать новый edit

Купить рекламу на сайте за 1000 руб

пишите сюда — alarforum@yandex.ru


Да и по любым другим вопросам пишите на почту

  • Форум Web программирование (веб)
    • Форум Python (питон)
    • Форум PHP (пхп)
    • Форум Perl (перл)
    • Форум Ruby (руби)
    • Форум JavaScript (яваскрипт)
    • Форум Ajax (аякс)
    • Форум SQL (эскюэл)
    • Форум HTML (хтмл)
    • Форум CSS (сиэсэс)
    • Форум XML (иксмл)
    • Форум JSON (джсон)
    • Форум Pascal (паскаль)
    • Форум Delphi (делфи)
    • Форум C++ (си плюс плюс)
      • Форум C++ Builder (си билдер)
      • Форум Visual C++ (визуал си)
      • Форум .NET (точка нет)
      • Форум ASP.NET (асп нет)
      • Форум Windows Forms (виндовс формс)
      • Форум базы данных ADO.NET (адо нет)
      • Форум .NET Framework WPF, UWP, WinRT, XAML ()
      • Форум Java Android (джава андроид)
      • Форум Java web (джава веб)
      • Форум Kotlin (котлин)
      • Форум Assembler (ассемблер)
      • Форум WinApi (вин апи)
      • Форум Excel (эксель)
      • Форум Word (ворд)
      • Форум Access (аксесс)
      • Форум по администрированию ОС
      • Форум по администрированию серверов и VDS
      • Форум Windows
      • Форум Ubuntu
      • Форум Android

      Очистить все edit’ы на форме

      Мне нужно, чтобы если я закрыл форму на крестик, форма подгружалась чистой. Всё дело в том что на второй форме куча элементов, поработав с ними, пользователь закрывает форму, но если он её опять откроет, то форма должна быть полностью первоначальной.

      Алексей_2012

      var i:integer 
      begin
      for i := 0 to ComponentCount - 1 do
      begin
      if (Components is TEdit) then
      begin
      (Components as TEdit).Clear;end;
      end;
      end;

      Похожие статьи

      • На форме есть 10 Edit’ов и необходимо сравнить их значения
      • Очистить несколько edit полей по нажатию кнопки
      • Массив чекбоксов, как в PHP узнать, какой из чекбоксов выбран?
      • Прозрачный Edit (Делфи)
      • Как передать значение из в action формы
      • Добавить строку с верха вниз StringGrid
      • Скопировать данные из Edit в Word
      • Запретить выход курсора за API форму
      • Среднеарифметическое значение из Edit
      • Как создать дочернее окно при нажатии на кнопку?

      Купить рекламу на сайте за 1000 руб

      пишите сюда — alarforum@yandex.ru


      Да и по любым другим вопросам пишите на почту

      • Форум Web программирование (веб)
        • Форум Python (питон)
        • Форум PHP (пхп)
        • Форум Perl (перл)
        • Форум Ruby (руби)
        • Форум JavaScript (яваскрипт)
        • Форум Ajax (аякс)
        • Форум SQL (эскюэл)
        • Форум HTML (хтмл)
        • Форум CSS (сиэсэс)
        • Форум XML (иксмл)
        • Форум JSON (джсон)
        • Форум Pascal (паскаль)
        • Форум Delphi (делфи)
        • Форум C++ (си плюс плюс)
          • Форум C++ Builder (си билдер)
          • Форум Visual C++ (визуал си)
          • Форум .NET (точка нет)
          • Форум ASP.NET (асп нет)
          • Форум Windows Forms (виндовс формс)
          • Форум базы данных ADO.NET (адо нет)
          • Форум .NET Framework WPF, UWP, WinRT, XAML ()
          • Форум Java Android (джава андроид)
          • Форум Java web (джава веб)
          • Форум Kotlin (котлин)
          • Форум Assembler (ассемблер)
          • Форум WinApi (вин апи)
          • Форум Excel (эксель)
          • Форум Word (ворд)
          • Форум Access (аксесс)
          • Форум по администрированию ОС
          • Форум по администрированию серверов и VDS
          • Форум Windows
          • Форум Ubuntu
          • Форум Android

          Как очистить edit в delphi


          Zhenka ( 2003-02-16 11:53 ) [0]

          Или Присвоить хинтам всех Кнопок их Кэпшены.
          Спасибо.


          Cr@sh ( 2003-02-16 11:56 ) [1]

          если у всех эдитов имена типа edit1, edit2 и тд.
          Тогда
          for i:=1 to 10 do
          (form1.findcomponent(«edit»+inttostr(i)) as TEdit).text:=»»;


          Cr@sh ( 2003-02-16 11:58 ) [2]

          2)

          for i:=1 to 10 do
          (form1.findcomponent(«button»+inttostr(i)) as TButton).hint:=(form1.findcomponent(«button»+inttostr(i)) as TButton).caption;


          Zhenka ( 2003-02-16 12:00 ) [3]

          Спасибл за совет


          Anatoly Podgoretsky ( 2003-02-16 12:07 ) [4]

          Оформить отдельным методом, потребуется два
          ClearAllEdits
          SetAllButtonsHints

          var
          i: integer;
          begin
          for i:=0 to Form1.ComponentCount-1 do
          if Form1.Components[i].ClassType=TEdit then (Form1.Components[i] as TEdit).Text:=»»;

          А так не легче .


          Shadow ( 2003-02-16 12:09 ) [6]

          И соответственно:
          var
          i: integer;
          begin
          for i:=0 to Form1.ComponentCount-1 do
          if Form1.Components[i].ClassType=TButton then (Form1.Components[i] as TButton).Hint:=(Form1.Components[i] as TButton).Caption;


          Zhenka ( 2003-02-16 12:10 ) [7]

          `Спасибо всем за всё. :ъ)


          drpass ( 2003-02-16 12:11 ) [8]

          Если у всех эдитов имена любые, то
          for i:=0 to ComponentCount-1 do
          if Components[i] is TEdit then TEdit(Components[i]).Text:=»»;


          Юрий Зотов ( 2003-02-16 12:11 ) [9]

          for i := 0 to ComponentCount — 1 do
          if Сomponents[i] is TEdit then
          TEdit(Сomponents[i]).Text := «»
          else
          if Сomponents[i] is TButton then
          with TButton(Сomponents[i]) do Hint := Caption;

          Это вариант намного быстрее и не зависит от имен компонентов и их количества.


          Shadow ( 2003-02-16 12:11 ) [10]

          2Zhenka
          Не за что


          drpass ( 2003-02-16 12:12 ) [11]

          Ну, кто еще чего посоветует 🙂


          Zhenka ( 2003-02-16 12:18 ) [12]

          2drPass
          Ага не думал, что так много способов реализации


          Shadow ( 2003-02-16 12:22 ) [13]

          2Юрий Зотов
          Почти тоже, что и я предложил


          Anatoly Podgoretsky ( 2003-02-16 12:29 ) [14]

          Эффективнее использовать метод Clear для TEdit и эстетичнее.

          Юрий Зотов © (16.02.03 12:11)
          Очистка может использоваться многократно и независимо от установки хинта, с этой точки зрения лучше разделить эти операции по отдельным методам.
          Может еще потребоваться очистка и других компонент, тогда будет легко создать обобщенный метод из которого удобно вызывать специализированные.
          В моей практике это часто встречается. По самому коду конечно нет возражений.


          Anatoly Podgoretsky ( 2003-02-16 12:31 ) [15]

          Разве что еще в некоторых случаях лучше использовать Controls


          Shadow ( 2003-02-16 12:31 ) [16]

          2Anatoly Podgoretsky
          Мы ж не телепаты. На конкретный вопрос — конкретный ответ.


          Юрий Зотов ( 2003-02-16 12:36 ) [17]

          > Shadow © (16.02.03 12:22)

          Замечание относилось к двум первым ответам — когда я писал, других еще не было.

          По Вашему варианту тоже есть 2 замечания.

          1. Он сработает только для TButton и не сработает для потомков. Нужно использовать IS или InheritsFrom, а не прямое сравнение.

          2. Если класс уже проверен, то зачем еще AS (к тому же, в двух местах)? Надо использовать прямое приведение типа, такой код будет быстрее и компактнее.


          Zhenka ( 2003-02-16 12:38 ) [18]

          дА сКОЛЬКО МНОГО НЬЮАНСОВ


          Shadow ( 2003-02-16 12:42 ) [19]

          2Юрий Зотов
          Вы эстет. Вы правы. Ну писал на скорую руку даже без проверки. Но в вопросе четко указано: Кнопок. Мы ж не телепаты.


          Anatoly Podgoretsky ( 2003-02-16 12:44 ) [20]

          А насчет нюансос, вот два примера

          with TButton.Create(Form1) do begin
          Parent := Form1;
          .
          end;

          with TButton.Create(Application) do begin
          Parent := Form1;
          .
          end;

          На досуге разобраться, что даст правильный результат Components или Controls


          Юрий Зотов ( 2003-02-16 12:45 ) [21]

          > Shadow © (16.02.03 12:42)

          TBitBtn — тоже кнопка.


          Shadow ( 2003-02-16 13:45 ) [22]

          2Юрий Зотов
          Нет. Она называется — кнопка с картинкой(may be).


          MsGuns ( 2003-02-16 14:35 ) [23]

          ИМХО, для достаточно «нагруженной» формы или для MDI-форм метод «повальной» модификации свойств однотипных контролов неудобен. Рекомендую использовать спец.процы типа SetStatusControls(opt: boolean), в которых просто перечисляются операторы присвоения ссотв.свойств нужным контролам, например, кнопкам, экшинам, и т.д. Лучше потому что:

          1. Все делается «зряче»
          2. Вполне читабелен алгоритм, что позволяет без особого труда контролировать отладку и вности изменения.
          3. Просто правильнее с точки зрения семантики программы.


          Юрий Зотов ( 2003-02-16 14:47 ) [24]

          > Shadow © (16.02.03 13:45)

          Как она называется — неважно. Важно вот что:
          TBitBtn = class(TButton).

          И этим все сказано.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *