edit bileşeni
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
edit bileşeni
formda bulunan 50 adet edit bileşenlerinin text içeriğni otomatik olarak nasıl boşaltırım.
Kod: Tümünü seç
procedure edittemizle;
var
i:integer;
begin
for i:=0 to componentcount-1 do
begin
if components[i] is Tedit then
begin
tedit(components[i]).clear;
end;
end;
end;
***********************************
Kamil odur ki; koya dünyada bir eser,
Eseri olmayanın, yerinde yeller eser.
***********************************
Kamil odur ki; koya dünyada bir eser,
Eseri olmayanın, yerinde yeller eser.
***********************************