Çeviri: Ramazan Gülbahar.
Bu uygulama formun üzerindeki bütün Edit kontrollerinin içeriğini temizler.
Kod: Tümünü seç
procedure ClearEdits;
var j : Integer;
begin
for j := 0 to ComponentCount-1 do
if (Components[j] is TEdit) then
(Components[j] as TEdit).Text := '';
end;