Как очистить все окошки редактирования на форме?
Falk0ner, вс, 06/07/2008 - 15:34.
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;
var i : Integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TEdit) then
(Components[i] as TEdit).Text := '';
end;
Взято из http://forum.sources.ru
Гениально и просто
Отправить комментарий