مقایسه 2 کاراکتر در دلفی یا پاسکال [بایگانی]

alaveh

دوشنبه 03 دی 1386, 00:08 صبح

سلام
ببخشید سوال آسون و مبتدی می پرسم
می خوام 2 تا کاراکتر رو با هم مقایسه کنم توی دلفی
در واقع من می خوام بدونم کاراکتری که وارد میشه از حروف الفبای فارسی و انگلیسی هست یا هر چیزی غیر از اینا .

SYNDROME

دوشنبه 03 دی 1386, 04:59 صبح

سلام
ببخشید سوال آسون و مبتدی می پرسم
می خوام 2 تا کاراکتر رو با هم مقایسه کنم توی دلفی
در واقع من می خوام بدونم کاراکتری که وارد میشه از حروف الفبای فارسی و انگلیسی هست یا هر چیزی غیر از اینا .
می توانید در زمان ورود اطلاات مثلا در KeyPress یک Edit این مقایسه را انجام دهید.
من در مثال پایین فقط اجازه ورود اطلاعات در Edit را به کاربر می دهم.

IF Not (Key in [#48..#57]) Then
Key := #0;

موفق باشید

rasool_brn

دوشنبه 03 دی 1386, 09:53 صبح

در رویداد OnKeyPress یه جزء مثلا edit این کد رو بنویس:
begin
if (key in [#194..#237]) then
ShowMessage('farsi')
else
if (key in ['A'..'Z','a'..'z']) then
ShowMessage('english')
else
if (Key in [#48..#57]) then
ShowMessage('number')
else
Key := #0;
end;

alaveh

دوشنبه 03 دی 1386, 11:30 صبح

در رویداد OnKeyPress یه جزء مثلا edit این کد رو بنویس:
begin
if (key in [#194..#237]) then
ShowMessage('farsi')
else
if (key in ['A'..'Z','a'..'z']) then
ShowMessage('english')
else
if (Key in [#48..#57]) then
ShowMessage('number')
else
Key := #0;
end;
چک نکردم هنوز ولی به نظر درست می رسه
من با C کار می کنم . اونجا مقایسه خیلی راحته ولی توی پاسکال بلد نبودم . خیلی ممنون

arshia_

سه شنبه 04 دی 1386, 07:59 صبح

اگر برای پاسکال می خوای از کدها استفاده کنی از مثالهای دوستان استفاده کن اما توابع showmessage‌ را به writeln();‌تغییر بده تا برنامه خطا نده