+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أجعل كل حرف فى مفكرة الاولى يساوى الحرف المساوية فى المفكرة الثانية (/showthread.php?tid=6627)
كيف أجعل كل حرف فى مفكرة الاولى يساوى الحرف المساوية فى المفكرة الثانية - karika2 - 12-12-2014
بسم الله الرحمن الرحيم
عندى الان 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 - 12-12-2014
تفظل اخي
على حسب ما فهمتة هذا مثال
كود :
www.up-00.com/?K4oUكيف أجعل كل حرف فى مفكرة الاولى يساوى الحرف المساوية فى المفكرة الثانية - karika2 - 05-02-2015
شكراّ أخى فعلاّ مثالك صحيح لكن فى هذا الكود
كود :
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;