كيف توليد نص عشوائى من سلسلة نصية ثابتة
و لكن بشرط الا يتكرر اى محرف من السلسلة النصية
بمعنى
السلسلة النصية = 'abcdefghijklmnopqrstuvwxyz'
النص العشوائى المطلوب توليده مكون من عشرون محرف بشرط الا يتكرر اى محرف من السلسلة النصية
و شكرا لكم .
قطرة الماء تثقب الحجر ...لا بالعنف و لكن بتكرار المحاولة
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);
إقتباس :قطرة الماء تثقب الحجر ...لا بالعنف و لكن بتكرار المحاولة
24-09-2010, 01:56 PM (آخر تعديل لهذه المشاركة: 24-09-2010, 01:59 PM بواسطة TF6M.)
شكرا اخى , جارى المحاولة و إن شاء الله تنفع
هذه هى االمحاولة اخى :
كود :
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;
قطرة الماء تثقب الحجر ...لا بالعنف و لكن بتكرار المحاولة
السلام عليكم و رحمة الله
قام احد اخوانى بعمل الكود اللازم
فاردت ان ارفعه هنا حتى تعم الفائدة و لكى يكتمل الموضوع
تحياتى للجميع .
و شكرا على حسن التعاون
قطرة الماء تثقب الحجر ...لا بالعنف و لكن بتكرار المحاولة
