Как очистить все окошки редактирования на форме Для этого можно воспользоваться следующим кодом: procedure ClearEdits; var i: Integer; begin for i := 0 to ComponentCount - 1 do if (Components[i] is TEdit) then (Components[i] as TEdit).Text := ''; end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
Для этого можно воспользоваться следующим кодом:
procedure ClearEdits; var i: Integer; begin for i := 0 to ComponentCount - 1 do if (Components[i] is TEdit) then (Components[i] as TEdit).Text := ''; end;