+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كود لعمل نص عشوائى (/showthread.php?tid=2440)
كود لعمل نص عشوائى - saiedcracker - 23-09-2010
السلام عليكم اخوانى
كيف توليد نص عشوائى من سلسلة نصية ثابتة
و لكن بشرط الا يتكرر اى محرف من السلسلة النصية
بمعنى
السلسلة النصية = 'abcdefghijklmnopqrstuvwxyz'
النص العشوائى المطلوب توليده مكون من عشرون محرف بشرط الا يتكرر اى محرف من السلسلة النصية
و شكرا لكم .
كود لعمل نص عشوائى - kachwahed - 23-09-2010
وعليكم السلام ورحمة الله
PHP كود :
var
C: Char;
S: string;
begin
Randomize;
repeat
C := Chr(Ord('a') + Random(26));
if Pos(C, S) <= 0 then
S := S + C;
until
Length(S) = 20;
ShowMessage(s);
إقتباس :قطرة الماء تثقب الحجر ...لا بالعنف و لكن بتكرار المحاولةلكن أين المحاولة
كود لعمل نص عشوائى - saiedcracker - 24-09-2010
شكرا اخى , جارى المحاولة و إن شاء الله تنفع
هذه هى االمحاولة اخى :
كود :
var
A, K: String;
i: Integer;
begin
K:='abcdefghijklmnopqrstuvwxyz';
A:='xxxxxxxxxxxxxxxxxxxxxxxxxx';
for i:=1 to length(A) do
A[i]:=K[Random(length(k))+1];
Edit1.Text := A;
Edit1.SelectAll ;
Edit1.CopyToClipboard ;
end;كود لعمل نص عشوائى - saiedcracker - 24-09-2010
عفوا اخى لم يفلح الامر
الكود بطىء جدا حتى بعد ما عملت طول النص المطلوب 3 محارف فقط
Length(S) = 20;
الى
Length(S) = 3;
كود لعمل نص عشوائى - TF6M - 24-09-2010
السلام عليكم
راجع هدا الموضوع : هنا
يمكنك الإستفادة .. بالتوفيق,,
كود لعمل نص عشوائى - saiedcracker - 24-09-2010
شكرا اخى جارى تحميل الدرس
كود لعمل نص عشوائى - saiedcracker - 25-09-2010
السلام عليكم و رحمة الله
قام احد اخوانى بعمل الكود اللازم
فاردت ان ارفعه هنا حتى تعم الفائدة و لكى يكتمل الموضوع
تحياتى للجميع .
و شكرا على حسن التعاون
قام احد اخوانى بعمل الكود اللازم
فاردت ان ارفعه هنا حتى تعم الفائدة و لكى يكتمل الموضوع
تحياتى للجميع .
و شكرا على حسن التعاون