شمارش کاراکترها (نیاز فوری)

[delphi_stu]

سلام
چطوری تعداد کاراکترها را بدون احتساب فاصله ها و تعداد کلمات بشماریم.
مثلا در این برنامه همراه با فاصله ها می خواند.
Example

[delphi_stu]

example مورد نظر در زیر آورده شده است

[bahman_asham]

یه حلقه تا زمانی که به کاراکتر 0\ نرسیده،اگر کد اسکی اش مابین 61 تا ..(َa...z یا A...Z) باشد به count یکی اضافه کنه.در اخر سر ان را return کنه.
باز اگه مشکلی داری بگو.

[delphi_stu]

اگه میشه یک نمونه برنامه قرار بده ممنونم میشم
در این مورد هم میشه کمک کنی؟
http://www.barnamenevis.org/forum/showthread.php?p=212383#post212383

[Mahdi_Delphi]

سوالت کامل نیست دوست من!
کاربر یک متن رو وارد میکنه ؟
وقتی enter رو زد یعنی خاتمه وارد کردن رشته ؟
اون فایلی رو هم که ضمیمه کردین اگه exe باشه کسی اجراش نمیکنه.

[delphi_stu]

سلام.
بله دوست عزیز یعنی با زدن enter برنامه خاتمه می یابه.
فایل ضمیمه هم exe نیستش . zip هستش که داخلش سورس برنامه نمونه هستش

[delphi_stu]

من در برنامه نمونه بعد از if اینو اضافه کردن فکر کنم درست شد.
charcount=charcount-1
سوال دیگه ای هم داشتم ؟ می خوام در برنامه از goto استفاده کنم چکار کنم؟

[Amir Oveisi]

یه توصیه ایمنی : سعی کن از goto استفاده نکنی !!!