ابحث عن طريقة انشاء procedure أو fuction
لتجنب تكرار الكود في الأزرار
الكود التالي :
الذي يتغير هو فقط canal
شكرا مسبقا
لتجنب تكرار الكود في الأزرار
الكود التالي :
كود :
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
شكرا مسبقا