خالی کردن تعداد زیادی Edit

[parhizkar2000]

من روی یکی از فرمهای برنامه چند تا گروپ باکس گذاشتم که توی هر کدومشون هم تعداد زیادی ادیت و ماسک ادیت وتعدادی لیبل نیز هم هست چطوری می توان با یه حلقه و توسط کد نویسی محتویات کلیه Edit ها رو با یه متن ثابت پر کنم

[حمیدرضاصادقیان]

البته اگه اشتباه نکنم برای هرنوع از ادیت باکسها باید یک حلقه بنویسی مثل کد زیر.


for i:=0 to F_Forush.ComponentCount-1 do
begin
if F_Forush.Components[i] is TEdit then
TEdit(F_Forush.Components[i]).Text:='ali';
end;

این فقط برای ادیت باکس ها هست

[V60]

سلام
یک سوال
این روش کاری به اسم edit ها ندارد که ؟

[hr110]

البته این یک کمی کاملتر است :


procedure TForm1.Button1Click(Sender: TObject);
begin
ClearEdits(Self);
end;

procedure TForm1.ClearEdits(G:TWinControl);
var
I : Integer;
begin
for I:=0 to G.ControlCount-1 do
begin
if G.Controls[I] is TWinControl then
ClearEdits(G.Controls[I] as TWinControl);
if G.Controls[I] is TEdit then
(G.Controls[I] as TEdit).Clear;
end;
end;

[parhizkar2000]

ضمن تشکر
1- ولی شما در در کدتون محتویات Edit رو خالی می کنید
2- برای MaskEdit این کد با تغییر اذیت به مسک ادیت کار میکنه؟

[حمیدرضاصادقیان]

دقیقا باید به کلاس Maskedit رجوع کنی.TMask :sunglass:

[parhizkar2000]

procedure TForm1.Button1Click(Sender: TObject);
begin
ClearEdits(Self);
end;

procedure TForm1.ClearEdits(G:TWinControl);
var
I : Integer;
begin
for I:=0 to G.ControlCount-1 do
begin
if G.Controls[I] is TWinControl then
ClearEdits(G.Controls[I] as TWinControl);
if G.Controls[I] is TEdit then
(G.Controls[I] as TEdit).Clear;
end;
end;تو این کد آیا G : TwinContorol همون نام فرم است؟ یا چیز دیگه . و اگه نیست چطور میشه این کد رو طوری تغیر داد که برای تمام فرم ها ازش بشه استفاده کرد. بصورت یک پروسیجر که هر توی هر فرمی که خواستم صداش بزنم

[hr110]

:confy2:

آقای پرهیزکار دوهزار شما باید چیزهای زیادی یاد بگیرید تا بتوانید یک پروژه را به تنهایی انجام بدهید.
:flower:

[parhizkar2000]

آقای پرهیزکار دوهزار شما باید چیزهای زیادی یاد بگیرید تا بتوانید یک پروژه را به تنهایی انجام بدهید.
اقا ما که ادعای در این زمینه نداریم .میایم اینجا تا از علم اساتیدی مثل جنابعالی بهره مند بشیم . اینو جدی می گم . این سایت برنامه نویس به نظر من پربارترین سایت زبان فارسی تو زمینه های برنامه نویسیه . من که خیلی از استفاده کردم . به مسئولین وکلیه فعالان سایت خدا قوت می گم.
حالا اگه ممکنه اشاره کوچیکی بکنید :oops:

[hr110]

سلام
دوست عزیز من در این تاپیک هم به شما ماهی داده ام و هم ماهیگیری، کمی دقت کنید. :flower:

[parhizkar2000]

دوست عزیز من در این تاپیک هم به شما ماهی داده ام و هم ماهیگیری، کمی دقت کنید.
من عین کد شما رو بکار بردم ولی خطا میداد (List Bounds(0 ولی کد اقای صادقیان کار می کرد .اشکالش اینه که نام فرم رو باید بهش بدی . نمیشه نامش رو بصورت متغیر داد؟

[javidtaheri]

از findcomponent استفاده کن
در help دلفی کدش هست