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

[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;