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

السلام عليكــم ورحمـة الله وبركاتــه

كيف اقوم باستدعاء هذه الخوارزمية في edit

PHP كود :
Function Genrate_Leading(pVal:String; pMax_Size:Byte;
                                 pJust:String;pFill:String):String;
Var
  I, vLead_Size:Integer;
  vFill : String;
Begin
  vLead_Size := (pMax_Size-1)-(Length(pVal));
  IF vLead_Size < 0 Then vLead_Size := 0;
  pVal := Copy(pVal,1,pMax_Size-1);
  vFill := '2';
  For I:=0 to (vLead_Size-1) Do
   vFill := vFill + pFill;
  IF UpperCase(pJust) = 'L' Then Result := pVal+vFill Else
  IF UpperCase(pJust) = 'R' Then Result := vFill+pVal;
End;
 //==========================================================



Function Barcode_Gen13(New_Seq : Double):String;
Var
   I, vOdd_Num, vEven_Num, vChk_Digit : Integer;
   vArr_New : Array[1..12] of Integer;
   vNew : String;
Begin
  vNew := Genrate_Leading(FloatToStr(New_Seq),12,'R','0'); // Generating the
                                                                                                          //  Leading zeros

  For I:=1 to 12 do                                        // Fill the Digits in an Array to type cast from string to Integer
  Begin
    vArr_New[I]:= StrToInt(Copy(vNew,I,1));
  End;
  vEven_Num :=0; vOdd_Num := 0;

  For I:=2 to 12 do                       // Get The Total of the even Numbers
  Begin
    IF (I Mod 2)<>0 Then Continue;
    vEven_Num := vEven_Num + vArr_New[I];
  End;

  For I:=1 to 11 do                       // Get The Total of the Odd Numbers
  Begin
    IF (I Mod 2)=0 Then Continue;
    vOdd_Num := vOdd_Num + vArr_New[I];
  End;
  vChk_Digit := (vEven_Num*3)+vOdd_Num; // The Equetion to calculate the Check Digit
  vChk_Digit := StrToInt(RightStr(IntToStr(vChk_Digit),1));
  vChk_Digit := 10-(vChk_Digit);
  IF vChk_Digit = 10 Then vChk_Digit := 0;
                                        // ENd OF Equition.
  Result := vNew+IntToStr(vChk_Digit);


End;
 //========================================================== 

السلام عليكم

PHP كود :
Edit1.Text := Genrate_Leading(AStr,AByte,AStr,AStr); 

PHP كود :
Edit1.Text := Barcode_Gen13(ADouble); 

السلام عليكم

للاسف هذه لاتصلح

إضافة الوحدة StrUtils
الدالة الآساسية Barcode_Gen13
الإستخدام هكذا

PHP كود :
Edit1.text := Barcode_Gen13(123456); 

PHP كود :
uses
  StrUtils;

//==========================================================

Function Genrate_Leading(pVal:String; pMax_Size:Byte;
                                 pJust:String;pFill:String):String;
Var
  I, vLead_Size:Integer;
  vFill : String;
Begin
  vLead_Size := (pMax_Size-1)-(Length(pVal));
  IF vLead_Size < 0 Then vLead_Size := 0;
  pVal := Copy(pVal,1,pMax_Size-1);
  vFill := '2';
  For I:=0 to (vLead_Size-1) Do
   vFill := vFill + pFill;
  IF UpperCase(pJust) = 'L' Then Result := pVal+vFill Else
  IF UpperCase(pJust) = 'R' Then Result := vFill+pVal;
End;
 //==========================================================
Function Barcode_Gen13(New_Seq : Double):String;
Var
   I, vOdd_Num, vEven_Num, vChk_Digit : Integer;
   vArr_New : Array[1..12] of Integer;
   vNew : String;
Begin
  vNew := Genrate_Leading(FloatToStr(New_Seq),12,'R','0'); // Generating the
                                                                                                          //  Leading zeros

  For I:=1 to 12 do                                        // Fill the Digits in an Array to type cast from string to Integer
  Begin
    vArr_New[I]:= StrToInt(Copy(vNew,I,1));
  End;
  vEven_Num :=0; vOdd_Num := 0;

  For I:=2 to 12 do                       // Get The Total of the even Numbers
  Begin
    IF (I Mod 2)<>0 Then Continue;
    vEven_Num := vEven_Num + vArr_New[I];
  End;

  For I:=1 to 11 do                       // Get The Total of the Odd Numbers
  Begin
    IF (I Mod 2)=0 Then Continue;
    vOdd_Num := vOdd_Num + vArr_New[I];
  End;
  vChk_Digit := (vEven_Num*3)+vOdd_Num; // The Equetion to calculate the Check Digit
  vChk_Digit := StrToInt(RightStr(IntToStr(vChk_Digit),1));
  vChk_Digit := 10-(vChk_Digit);
  IF vChk_Digit = 10 Then vChk_Digit := 0;
                                        // ENd OF Equition.
  Result := vNew+IntToStr(vChk_Digit);
End;
 //==========================================================

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.text := Barcode_Gen13(123456);
end; 

السلام عليكم
يعني كل مرة اريد تغير ذالك (123456)برمجيا بحيث كل مرة يشكل رقم مغاير لارقم الاول من فضلك اذا امكن

PHP كود :
السلام عليكم

procedure TForm1.Button1Click(Sender: TObject);
var  int   : Integer;
      i     : Integer;
begin
for     i:= 1 to 5 do
  begin
    int := 1 + Random(1000000);
    Edit1.text := Barcode_Gen13(int);
end;
end;

end. 

anter2016

AX302

anter2016

Agmcz

anter2016