السلام عليكم اخوانى
كيف توليد نص عشوائى من سلسلة نصية ثابتة
و لكن بشرط الا يتكرر اى محرف من السلسلة النصية
بمعنى
السلسلة النصية = 'abcdefghijklmnopqrstuvwxyz'
النص العشوائى المطلوب توليده مكون من عشرون محرف بشرط الا يتكرر اى محرف من السلسلة النصية
و شكرا لكم .
وعليكم السلام ورحمة الله
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);
إقتباس :قطرة الماء تثقب الحجر ...لا بالعنف و لكن بتكرار المحاولة
لكن أين المحاولة 
شكرا اخى , جارى المحاولة و إن شاء الله تنفع
هذه هى االمحاولة اخى :
كود :
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;
عفوا اخى لم يفلح الامر
الكود بطىء جدا حتى بعد ما عملت طول النص المطلوب 3 محارف فقط
Length(S) = 20;
الى
Length(S) = 3;
السلام عليكم
راجع هدا الموضوع :
هنا
يمكنك الإستفادة .. بالتوفيق,,
شكرا اخى جارى تحميل الدرس
السلام عليكم و رحمة الله
قام احد اخوانى بعمل الكود اللازم
فاردت ان ارفعه هنا حتى تعم الفائدة و لكى يكتمل الموضوع
تحياتى للجميع .
و شكرا على حسن التعاون