delphi4arab منتديات دلفي للعرب

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

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

شكراً لكم

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

* أضف الوحدة 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;

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

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

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

شكراً لك

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

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

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

M_Mori2010

Najy Ibraheem

M_Mori2010

kachwahed