چطور در تکست باکس رقم ها را تک تک بخوانم؟

[hex161]

با سلام.
چطور میشه توتکست باکس که متنی وارد شده تک تک حروف رو به تکست باکس دیگه بدیم؟
مثلا : سعید ----> س ع ی د
ممنون.

[mzjahromi]

For i:1 To Length(Edit1.Text) do
Edit2.Text:=Edit2.Text+Edit1.Text[i]

[حرفه ای]

For i:1 To Length(Edit1.Text) do
Edit2.Text:=Edit2.Text+Edit1.Text[i]


از حلقه For استفاده کن اما Edit1.Text[i] مقدار مقطع حروف رو نشون می ده و نیازی نیست دوباره توی یک Edit مجزا بریزی
می تونی از آرایه هم استفاده کنی




var
arry : Array of String[1];
begin
For i:=1 To Length(Edit1.Text) do
begin
SetLength(arry,i));
arry[i]:=Edit1.Text[i]
end;
end;

استفاده از آرایه داینامیک البته می تونی از آرایه ثابت نیز استفاده کنی

[mzjahromi]

ز حلقه For استفاده کن اما Edit1.Text[i] مقدار مقطع حروف رو نشون می ده و نیازی نیست دوباره توی یک Edit مجزا بریزی
می تونی از آرایه هم استفاده کنی


چطور میشه توتکست باکس که متنی وارد شده تک تک حروف رو به تکست باکس دیگه بدیم؟
.............................................

[vahid64]

آقای مدیر شما این کد رو تست کردید
برادر من اینجا دلفی هستا به این راحتی هم نیست


.............................................
آقای مدیر به این راحتی هم نیست اینجا دلفی هستش ها؟!؟!؟!
یه بار تست کن ببین کد جواب میده یا نه ؟ ؟ ؟

[mzjahromi]

بهتره بجای اینکه کد رو کپی پیست کنید منطقش رو برداشت کنید یا لا اقل یه بررسی بکنید ببینید مشکلش کجاست(ضمن اینکه بد نیست مناسب تر صحبت کنید)

آقای مدیر شما این کد رو تست کردید
یه بار تست کن ببین کد جواب میده یا نه ؟ ؟ ؟

اوامر شما انجام شد. هیچ مشکلی نداره فقط یه = کم داره

[حرفه ای]

وحید عزیز دوست عزیزم آقای جهرمی بسیار مناسب شما را راهنمایی کرد اما تصور من اینه که شما تازه برنامه نویسی رو شروع کردی
چون باگذاشتن دو عدد Edit و یک Button و دابل کلیک کردم بر روی Button و Past کردن دستور زیر



For i:1 To Length(Edit1.Text) do
Edit2.Text:=Edit2.Text+Edit1.Text[i]

به راحتی کار می کنه

من به تو پیشنهاد می کنم یک کتاب حداقل راجع به پاسکال و یا دلفی بخونی:تشویق:

[arshia_]

با اجازه اساتید شاید ابن دوست ما طبق مثالی که زده دوست داره تمام متن به صورت کلمات از م جدا نمایش داده بشه
برای این کار نیاز به یه کاراکتر فاصله در حلقه for مربوط به مثال آقای جهرمی است


For i:1 To Length(Edit1.Text) do
Edit2.Text:=Edit2.Text+' '+Edit1.Text[i]