كيف يمكننا بعثرة حروف Edit - نسخة قابلة للطباعة

كيف يمكننا بعثرة حروف Edit - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكننا بعثرة حروف Edit (/showthread.php?tid=4742)

كيف يمكننا بعثرة حروف Edit - M_Mori2010 - 23-11-2012

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

ماهي طريقة بعثرة حروف الكلمات الموجودة في Edit ووضع مسافة بين كل حرف

شكراً لكم

كيف يمكننا بعثرة حروف Edit - Najy Ibraheem - 23-11-2012

السلام عليكم...

* أضف الوحدة StrUtils إلى جملة uses.

كود :
procedure TForm1.Button1Click(Sender: TObject);
var
    Idx: Integer;
    AText: string;
begin
    AText := Edit1.Text;
    for Idx := Length(AText) downto 2 do
        AText := StuffString(AText, Idx, 0, ' ');

    Edit1.Text := AText;
end;

نرجو الاستفادة و السلام

كيف يمكننا بعثرة حروف Edit - M_Mori2010 - 24-11-2012

مشكور اخي هكذا يتم تفرق الاحرف ولكن لاتم بعثرتها

الذي ارغب به هو بعثرة الاحرف بشكل اخر خربطة الاحرف أو تخليط الاحرف لكي تصعب الكلمة

شكراً لك

كيف يمكننا بعثرة حروف Edit - kachwahed - 24-11-2012

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

قدم مثال + محاولة
تلميح Random

كود :
Randomize;
  Edit1.Text := IntToStr(Random(9)+1);