delphi4arab منتديات دلفي للعرب

ابحث عن طريقة انشاء procedure أو fuction
لتجنب تكرار الكود في الأزرار
الكود التالي :

كود :
procedure TForm1.Button1Click(Sender: TObject);
var canal:string;
    op : Array of String;
begin
setlength(op,2);
op[0]:=':aspect-ratio=4:3';
op[1]:='--rtsp-tcp';
VLCPlugin21.show;
VLCPlugin21.playlist.stop;
VLCPlugin21.playlist.clear;
VLCPlugin21.playlist.add(canal,op[1],op[0]);
VLCPlugin21.playlist.play;
Edit1.Text:=canal-name;
end;

الذي يتغير هو فقط canal
شكرا مسبقا

السلام عليكم
هل هكذا..

PHP كود :
type
  TForm1 = class(TForm)
  private
    procedure MyProc(const canal: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyProc(const canal: string);
var
  op : Array of String;
begin
setlength(op,2);
op[0]:=':aspect-ratio=4:3';
op[1]:='--rtsp-tcp';
VLCPlugin21.show;
VLCPlugin21.playlist.stop;
VLCPlugin21.playlist.clear;
VLCPlugin21.playlist.add(canal,op[1],op[0]);
VLCPlugin21.playlist.play;
Edit1.Text:=canal-name;
end; 

لك مني ألف تحية أخي الكريم

حذاري فلربما لن تتمكن من الولوج لهذه الدالة من خارج اليونيت
لو تدرجها في Public تكون متاحة بصفة كاملة لكافة البرنامج

يمكنك كتابة Unit ووضع فيها كافة الاكواد الضرورية واستدعائها وذلك بتعريفها في منطقة Uses
قمت بكتابة Unit تحوي عدد كبيرا من الدوال الضرورية تعالج قواعد البيانات والرسائل وحركات الفورمز وكل ما احتاج اليه وبخاصة اوامر الاستعلام
استعملها منذ سنوات واقوم دوريا بتطويرها.

samir28

Agmcz

samir28

kerbadou