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

بسم الله الرحمن الرحيم

عندى الان 2 مفكرة
المفكرة الاولى مكتووب فيها مثلاّ

كود :
:= " [color=Red]A[/color],[color=red]b[/color],[color=red]c[/color],[color=red]d[/color],f"

المفكرة الثانية مكتوب فيها مثلاّ حروف مزخرفة

كود :
:="~[color=red]A~[/color]_[color=red]b~[/color]_[color=red]c~[/color]_[color=red]d~[/color]_[color=red]e~[/color][color=red]_f[/color]"

كيف أجعل كل حرف فى مفكرة الاولى يساوى الحرف المساوية فى المفكرة الثانية.
يعنى لو ضغط a
يصبح a~
ولو ضغط علىcf
يصبح
c~F~
فى انتظار الرد لان للأستفسار بقية Smile

تفظل اخي
على حسب ما فهمتة هذا مثال

كود :
www.up-00.com/?K4oU

بتوفيق

شكراّ أخى فعلاّ مثالك صحيح لكن فى هذا الكود

كود :
var
  _s : string;
  _i : Integer;
begin
  _s := edt1.Text;
   for _i := 0 to 10 do
    begin
      if Copy(_testdata[_i],0,1) = _s then
      begin
         edt2.Text := _testdata[_i];
      end;
    end;
end;

حبيت أستخدم while بدالها ولكن معرفتش ...؟ يعنى لو حبيت أكتب أى حرف عشوائى من خلال هذا الكود أو حرفين أوكلمة يتم تغيرها بالمصفوفة التى انت واضعها ...

karika2

Anew

karika2