كيف يمكننا بعثرة حروف Edit
|
كيف يمكننا بعثرة حروف Edit
|
23-11-2012, 06:42 PM
السلام عليكم ورحمة الله وبركاته ,,,
ماهي طريقة بعثرة حروف الكلمات الموجودة في Edit ووضع مسافة بين كل حرف شكراً لكم اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم 
23-11-2012, 11:18 PM
السلام عليكم...
* أضف الوحدة 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;نرجو الاستفادة و السلام
24-11-2012, 01:56 AM
مشكور اخي هكذا يتم تفرق الاحرف ولكن لاتم بعثرتها
الذي ارغب به هو بعثرة الاحرف بشكل اخر خربطة الاحرف أو تخليط الاحرف لكي تصعب الكلمة شكراً لك اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
24-11-2012, 04:46 PM
وعليكم السلام ورحمة الله وبركاته
قدم مثال + محاولة تلميح Random كود : Randomize;
Edit1.Text := IntToStr(Random(9)+1);http://www.delphi4arab.net/forum/showthr...p?tid=8201 http://www.delphi4arab.net/forum/showthr...p?tid=7442
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
|
|
|
