جدا كردن اعداد و حروف

[M-B-M]

سلام
يه textbox دارم كه كاربر هر چي بخواد توش وارد مي كنه
ميخوام بعد اينكه كاربر كارش تموم شد و روي دكمه كليك كرد اعداد و حروف رو از هم جدا كنم و هر كدوم رو تو يه جاي ديگه نشون بدم
چطور اين كارو انجام بدم؟

[عــــلی]

سلام.
این تابع برای جدا کردن عدد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اینم برای جدا کردن حروف:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

موفق باشید.

[eAmin]

چرا از عبارات باقائده استفاده نمی کنید؟

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[ebi_shah]

اينم تست كن

var i : Integer;
begin
for i:=1 to Length(Edit1.Text) do
try
StrToInt(Copy(Edit1.Text, i, 1));
Edit2.Text := Edit2.Text + Copy(Edit1.Text, i, 1)
except
Edit3.Text := Edit3.Text + Copy(Edit1.Text, i, 1)
end

[_H2_]

سلام

اينم تست كن

ضمن تبریک عضویتان ...
بنظر میرسد کدهای شما مربوط به زبان دلفی است، به محل سوال در انجمن ها دقت کنید.