كيف أجعل كل حرف فى مفكرة الاولى يساوى الحرف المساوية فى المفكرة الثانية

[karika2]

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

عندى الان 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~
فى انتظار الرد لان للأستفسار بقية

[Anew]

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

كود :

www.up-00.com/?K4oU

بتوفيق

[karika2]

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

كود :

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 بدالها ولكن معرفتش ...؟ يعنى لو حبيت أكتب أى حرف عشوائى من خلال هذا الكود أو حرفين أوكلمة يتم تغيرها بالمصفوفة التى انت واضعها ...