با سلام
فرض کنید یه function به شکل زیر داریم :
Function GetData(Rmo:RichEdit; PT:Pointer;): String;
Begin
End;
و یه پراکسیجر به شکل زیر :
procedure TForm2.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Var S:String;
begin
S:=GetData(Sender as TRichEdit, pt);
End;
و اما سوال ، من دو تا سوال مهم دارم : 1 – چطور می تونم یه پارامتر از نوع integer به فانکشن اضافه کنم به نحوی که در پراکسیجر بتونم به صورت جدا ، مقدارش رو داخل یه متغیر قرار بدم (بهتراگه بخوام توضیح بدم باید بگم من می خوام دا خل پراکسیجر ، اون متغیر S رو ، تمام پارامتر هاش رو تفکیک کنم و هر کدومش رو داخل یه متغیر بریزم ، یعنی pt به تنهایی داخل یه متغیر و اگه فانکشن هر چند تا پارامتر داره همه اونا رو تو پراکسیجر به طور جدا داخل متغیر های متعدد بریزم)
2- دومین سوال : آیا از داخل فانکشن نمیشه به richEdit1 یا Label1 و یا هر چیز دیگه ای دسترسی داشت برای مثال یه مقداری که تو فانکشن به دست اومده ، داخل همون فانکشن تو RichEdit1.Text نشون داد؟
پاسخ با نقل قول
