Function BarkodOlustur1(Bar12Hane:String):String;
Var
tek_toplam,
cift_toplam,
tum_toplam,
i : Integer;
begin
tek_toplam := 0;
cift_toplam := 0;
tum_toplam := 0;
For i := 1 to Length(Bar12Hane) do begin
If i mod 2 <> 0
then tek_toplam := tek_toplam + (StrToInt(Bar12Hane[i])*1)
else cift_toplam := cift_toplam + (StrToInt(Bar12Hane[i])*3);
end;
tum_toplam := 10 - ((tek_toplam+cift_toplam) mod 10);
If tum_toplam = 10 then tum_toplam := 0;
Result := Format('%d', [tum_toplam]);
end;
 
 
function BarkodOlustur2():String;
var
s : string;
i : integer;
begin
s:='';
for i:=1 to 12 do
begin
s:=s+inttostr(random(10));
end;
Result := S + BarkodOlustur1(s);
end;
 
 
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
Memo1.Text:=BarkodOlustur2;
end;
end.
 

RnVuY3Rpb24gQmFya29kT2x1c3R1cjEoQmFyMTJIYW5lOlN0cmluZyk6U3RyaW5nOwpWYXIKdGVrX3RvcGxhbSwKY2lmdF90b3BsYW0sCnR1bV90b3BsYW0sCmkgOiBJbnRlZ2VyOwpiZWdpbgp0ZWtfdG9wbGFtIDo9IDA7CmNpZnRfdG9wbGFtIDo9IDA7CnR1bV90b3BsYW0gOj0gMDsKRm9yIGkgOj0gMSB0byBMZW5ndGgoQmFyMTJIYW5lKSBkbyBiZWdpbgpJZiBpIG1vZCAyIDw+IDAKdGhlbiB0ZWtfdG9wbGFtIDo9IHRla190b3BsYW0gKyAoU3RyVG9JbnQoQmFyMTJIYW5lW2ldKSoxKQplbHNlIGNpZnRfdG9wbGFtIDo9IGNpZnRfdG9wbGFtICsgKFN0clRvSW50KEJhcjEySGFuZVtpXSkqMyk7CmVuZDsKdHVtX3RvcGxhbSA6PSAxMCAtICgodGVrX3RvcGxhbStjaWZ0X3RvcGxhbSkgbW9kIDEwKTsKSWYgdHVtX3RvcGxhbSA9IDEwIHRoZW4gdHVtX3RvcGxhbSA6PSAwOwpSZXN1bHQgOj0gRm9ybWF0KCclZCcsIFt0dW1fdG9wbGFtXSk7CmVuZDsKCgpmdW5jdGlvbiBCYXJrb2RPbHVzdHVyMigpOlN0cmluZzsKdmFyCnMgOiBzdHJpbmc7CmkgOiBpbnRlZ2VyOwpiZWdpbgpzOj0nJzsKZm9yIGk6PTEgdG8gMTIgZG8KYmVnaW4Kczo9cytpbnR0b3N0cihyYW5kb20oMTApKTsKZW5kOwpSZXN1bHQgOj0gUyArIEJhcmtvZE9sdXN0dXIxKHMpOwplbmQ7CgoKcHJvY2VkdXJlIFRGb3JtMS5CaXRCdG43Q2xpY2soU2VuZGVyOiBUT2JqZWN0KTsKYmVnaW4KTWVtbzEuVGV4dDo9QmFya29kT2x1c3R1cjI7CmVuZDsKZW5kLgo=