ارسال یک کنترل به عنوان پارامتر به یک تابع

[pooyeshpajooh]

چطوری می توان یک کنترل را بعنوان پارامتر به یک تابع فرستاد وخواص ان را تغییر داد
بطور مثال چند تا کنترل editداریم که هر بار باید یکی از انها به یک تابع ارسال شود و مقدار textان توسط همان تابع تغییر پیدا کند

[Ahmad Chehreghani]

procedure ChangeObjText(obj:TObject);
begin
if (obj is TEdit) then
TEdit(obj).Text:='ahmad';
end;

اگه فقط Edit ارسال ميشه
اين کد


procedure ChangeObjText(obj:TEdit);
begin
TEdit(obj).Text:='ahmad';
end;

شيوه استفاده


ChangeObjText(Edit1)

[اصغر (پآچ)]

سلام دوست من

از کد زیر استفاده کن:


procedure TForm1.OnChangeEdit1(Sender: TObject)
var
Text: String;
begin
Text := (Sender as TEdit).Text;
end;