صفحه 2 از 2 اولاول 12
نمایش نتایج 41 تا 63 از 63

نام تاپیک: اصلاح کارکترهای "ک"درزمان ورود.

  1. #41
    کاربر دائمی آواتار SYNDROME
    تاریخ عضویت
    فروردین 1386
    محل زندگی
    تهران
    پست
    2,814
    با سلام
    نقل قول نوشته شده توسط Arman_1367 مشاهده تاپیک
    دوستان امید وارم حال همگی شما خوب باشد.
    به نظر من روش آقای ارژنگ بهتر است و با منطق برنامه نویسی شئی گرا بیشتر همخوانی دارد چون یک فیلتر برای اصلاح کارکترهای ورودی هم کار یک برنامه نویس را راحت تر می کند و هم حجم برنامه را کاهش می دهد یک مثال ساده این است که با استفاده از کمپاننت DelphiAssistant شما برای هر فرم باید یک کمپاننت قرار دهید اما با در دست گرفتن پیامهای ارسالی برای برنامه شما فقط یک کمپاننت و فقط یک بار کد نویسی نیاز دارید.در ضمن فرض کنید شما بخواهید از یک فرم که در کمپاننت خاصی طراحی شده و به صورت مستقیم امکان دسترسی به آن را ندارید در برنامه استفاده کنید و باز هم نیاز به اصلاح کارکتر ورودی داشته باشید پس این راه بهتر است.
    در هر صورت این یک کمپاننت ساده هست که امکان فیلتر کردن رویدادهای موشواره و کی بورد ارسالی برای پروژه را به شما می دهد.
    لینک دانلود
    آقا آرمان دستت درد نکنه.
    کامپونت را نگاه کردم.خیلی جالب بود.

  2. #42
    کاربر دائمی آواتار SYNDROME
    تاریخ عضویت
    فروردین 1386
    محل زندگی
    تهران
    پست
    2,814
    با سلام
    با اجازه کاربر DelphiAssistant من کامژونت ایشان را کمی تغییر دادم(در حالت قبل کار نمی کرد)

    unit Unit_FarsiFixer;
    interface
    uses
    Forms,
    Controls,
    SysUtils,
    Dialogs,
    Classes;
    type
    TFarsiKeyboardHook = class(TComponent)
    private
    parentKeyPress: TKeyPressEvent;
    procedure myKeyPress(Sender: TObject; var Key: Char);
    protected
    { Protected declarations }
    public
    constructor Create(AOwner: TComponent); override;
    published
    { Published declarations }
    end;
    procedure Register;
    implementation
    procedure Register;
    begin
    RegisterComponents('Barnamenevis.org', [TFarsiKeyboardHook]);
    end;
    { TFarsiKeyboardHook }
    constructor TFarsiKeyboardHook.Create(AOwner: TComponent);
    begin
    inherited;
    IF AOwner is TForm then
    begin
    parentKeyPress := TForm(Owner).OnKeyPress;
    TForm(Owner).OnKeyPress := myKeyPress;
    TForm(Owner).KeyPreview := true;
    end;
    end;
    procedure TFarsiKeyboardHook.myKeyPress(Sender: TObject; var Key: Char);
    begin
    if Key = #223 then Key := #152;
    if Key = #236 then Key := #237;
    if Assigned(parentKeyPress) then
    parentKeyPress(Sender, Key);
    end;
    end.

    امیدوارم از کار بنده ناراحت نشده باشید.
    این کامپونت را تست کردم درست جواب داد.
    با تشکر فراوان.

  3. #43
    نقل قول نوشته شده توسط اَرژنگ مشاهده تاپیک
    Object Oriented به تنهایی هیچ فایده‌ای نداره، استفاده از طراحی‌هایه درست پله بعد است.
    در ضمن یک بالانسی باید بین مشکلاتی که یک روش حل میکند و مشکلات دیگری که بوجود میاره باشد. در این بحث ما حتی دلیل اینکار را نپرسیده نمیتونیم نظر بدیم.
    نوشتن برنامه هایی که از اسپاگتی کد استفاده میکنند و کاملا هم Object Oriented هستند خیلی آسان است.
    مثال:
    در باتن کلیکها کد نوشتن، همینطوری ساختن رشته‌هایه اس‌کیو‌ال با استفاده از تکستهایه ادیت‌باکسها و ...
    Object Oriented مثل یک چاقو میماند، میشه باهاش هم جراحی کرد و هم قصابی ، روش استفاده هم مهمه، چونکه بعضا قصابی هم لازمه.
    با اینکه سعی کردی از جملات قشنگی استفاده کنی ولی چیزایی که گفتی درست نیست ، البته نیمخوام د مورد اینکه OOP خوبه یا بده بحث فلسفی بکنم چون متاسفانه اکثر بحثهای اینجا بجای اینکه به نتیجه گیری علمی ختم بشه به قفل و کلید و کلون ختم میشه ولی نه از زبان خودم که از زبان افراد صاحب نظر بهت میگم که OOP و حفظ قواعدش رو بصورت کامل و دقیق و بدون تنبلی اولین اصل برنامه نویسیت قرار بده ، اگر میخوای روزی بجای کدنویس برنامه نویس و طراح سیستم بشی .
    منظورم هم از سیستم یک سیستم به معنی واقعی هست.

    جدای از این مباحث اگر روزی برنامه نویسی OOP رو کامل فهمیدی اون روز بهت قول میدم که لذت برنامه نویسی برات چندین برابر میشه و دیگه امکان نداره حاضر بشی بزاریش کنار و تبلیغ اسپاگتی بکنی.

  4. #44
    کاربر دائمی آواتار اَرژنگ
    تاریخ عضویت
    آبان 1384
    محل زندگی
    arjang8000@gmail.com
    پست
    2,736
    نقل قول نوشته شده توسط ghabil مشاهده تاپیک
    با اینکه سعی کردی از جملات قشنگی استفاده کنی ولی چیزایی که گفتی درست نیست ، البته نیمخوام د مورد اینکه OOP خوبه یا بده بحث فلسفی بکنم چون متاسفانه اکثر بحثهای اینجا بجای اینکه به نتیجه گیری علمی ختم بشه به قفل و کلید و کلون ختم میشه ولی نه از زبان خودم که از زبان افراد صاحب نظر بهت میگم که OOP و حفظ قواعدش رو بصورت کامل و دقیق و بدون تنبلی اولین اصل برنامه نویسیت قرار بده ، اگر میخوای روزی بجای کدنویس برنامه نویس و طراح سیستم بشی .
    منظورم هم از سیستم یک سیستم به معنی واقعی هست.

    جدای از این مباحث اگر روزی برنامه نویسی OOP رو کامل فهمیدی اون روز بهت قول میدم که لذت برنامه نویسی برات چندین برابر میشه و دیگه امکان نداره حاضر بشی بزاریش کنار و تبلیغ اسپاگتی بکنی.
    کسی تبلیغ اسپاگتی نمیکنه، خواستم بگم که اگر یک روشی آسان است دلیل بر درستی‌اش نیست.
    در ضمن همانطوری که گفتم OOP اولین پله است، اگر یکمقداری Object Oriented Design Patterns را مطالعه کنید متوجه میشید.
    یکی از کتابهایه پترن با این جمله شروع شده بود:" با اینکه تمام اصول OOP را رعایت میکردم بازهم یک چیزی کم بود".
    مثالهایی که زدم برایه این بود که حتی با رعایت قوائد OOP بازهم کافی نیست، نه اینکه شکستنش خوبه.
    در طراحی سیستم یکسال بعد از اینکه برنامه نویسی را شروع کردم از ۳ لایه کمتر کار نکردم،فکر میکنید سیستمهایی که ساختم به اندازه کافی واقعی هستند؟
    روشی را که شما گفتید از همه روشهایه دیگر بهتر است و تنها به دلیل OOP بودنش.
    از لحاظ ابتدائی به نظر OOP میاد ولی زیادی استفاده کردن از inehritence یکی از مشکلات طراحی سیستمها با OOP است.
    در این مشکل استفاده کردن از وراثت برایه حل این مسئله هیچ دلیلی نداشت.
    اگر واقعا میخواهید از کد نویسی به طراحی سیستمها (چه واقعی و چه تفریحى) برسید، OOP را را اولین پله در این راه بدانید و به مطالعه Object Oriented Design Patterns بپردازید.
    برایه شروع من کتاب Design Patterns Explained را توصیه میکنم.
    http://www.amazon.com/Design-Pattern.../dp/0201715945

  5. #45
    [QUOTE=اَرژنگ;359202]در طراحی سیستم یکسال بعد از اینکه برنامه نویسی را شروع کردم از ۳ لایه کمتر کار نکردم،فکر میکنید سیستمهایی که ساختم به اندازه کافی واقعی هستند؟
    [/Qoute]
    من در حدی نیستم که بخوام نظر بدم و با این اطلاعات م نمیشه نظر داد ،اما اگر خودت میدونی که بودن خوب حتما بودند.

    [QUOTE=اَرژنگ;359202]
    روشی را که شما گفتید از همه روشهایه دیگر بهتر است و تنها به دلیل OOP بودنش.
    از لحاظ ابتدائی به نظر OOP میاد ولی زیادی استفاده کردن از inehritence یکی از مشکلات طراحی سیستمها با OOP است.
    در این مشکل استفاده کردن از وراثت برایه حل این مسئله هیچ دلیلی نداشت.
    [/Qoute]
    میگم فقط میخواهید اینجا بحث کنید ، Abstraction بنظر من مهمترین امکان OOP هست و هیچ وقت هیچ مشکلی نداشته !! شاید بهتر باشه بیشتر از این هم در این زمینه توضیح ندی!
    ضمنا میتونستی بجای اینکه بگی هیچ دلیل نداره بپرسی دلیلش چیه ; برای نمونه فرض کن به دلیلی نمی خواستیم در بعضی از فرمها تغییرات رو اعمال کنیم یا در بعضی میخواستیم مثلا یک تغییر دیگه هم بدهیم ، مقایسه کن ببین تو هرکدوم از روشها بجز این روش چقدر کار می برد و در این روش چقدر کار ساده هست .

    نقل قول نوشته شده توسط اَرژنگ مشاهده تاپیک
    اگر واقعا میخواهید از کد نویسی به طراحی سیستمها (چه واقعی و چه تفریحى) برسید، OOP را را اولین پله در این راه بدانید و به مطالعه Object Oriented Design Patterns بپردازید.
    برایه شروع من کتاب Design Patterns Explained را توصیه میکنم.
    http://www.amazon.com/Design-Pattern.../dp/0201715945
    این حرف شما مثل این میمونه که بگویید : دلفی بدون فلان کامپننت جانبی یک چیزی کم داره !
    بنظر من OOP اول و آخر برنامه نویسی در نسل فعلی هست که روز به روز هم بیشتر مهم میشه و به همین خاطر هم هست که براش Extensionهایی مثل همین Design Patterns ساخته میشند تا کار باهاش رو بهتر بکنند. برای همین هم به همه دوستانی که در اوایل مسیر یادگیری هستند همیشه توصیه کردم و میکنم که از اصولی یاد گرفتن OOP غافل نشید . شما و سایر اساتید هم نظراتتون متین هست و حتما تجاربی دارید که من ندارم و به همین دلیل هم اینجا هستم که بتونم از تجربیات شما هم استفاده کنم.

  6. #46
    کاربر دائمی آواتار اَرژنگ
    تاریخ عضویت
    آبان 1384
    محل زندگی
    arjang8000@gmail.com
    پست
    2,736
    نقل قول نوشته شده توسط ghabil مشاهده تاپیک
    میگم فقط میخواهید اینجا بحث کنید ، Abstraction بنظر من مهمترین امکان OOP هست و هیچ وقت هیچ مشکلی نداشته !! شاید بهتر باشه بیشتر از این هم در این زمینه توضیح ندی!
    ضمنا میتونستی بجای اینکه بگی هیچ دلیل نداره بپرسی دلیلش چیه ; برای نمونه فرض کن به دلیلی نمی خواستیم در بعضی از فرمها تغییرات رو اعمال کنیم یا در بعضی میخواستیم مثلا یک تغییر دیگه هم بدهیم ، مقایسه کن ببین تو هرکدوم از روشها بجز این روش چقدر کار می برد و در این روش چقدر کار ساده هست .
    این راحتی نیست، این دیسیپلین نداشتن و با تنبلی این مشکل را حل کردن است. همانطور که گفتم این روش Business Logic را به GUI برنامه گره میزنه. در سطح پائینی مشکل را حل میکند ولی مشکلات دیگری که بوجود میاره به راحت بودن اینکار (از لحاظ تنبلی ) نمیارزه.
    در ضمن این Abstraction نیست که ایراد داره بلکه روشی که ازش داره استفاده میشه. نمیشه همه چیز را میخ ‌تلقی کرد و فقط با یک چکش کوبیدش.


    نقل قول نوشته شده توسط ghabil مشاهده تاپیک
    این حرف شما مثل این میمونه که بگویید : دلفی بدون فلان کامپننت جانبی یک چیزی کم داره !
    بنظر من OOP اول و آخر برنامه نویسی در نسل فعلی هست که روز به روز هم بیشتر مهم میشه و به همین خاطر هم هست که براش Extensionهایی مثل همین Design Patterns ساخته میشند تا کار باهاش رو بهتر بکنند. برای همین هم به همه دوستانی که در اوایل مسیر یادگیری هستند همیشه توصیه کردم و میکنم که از اصولی یاد گرفتن OOP غافل نشید . شما و سایر اساتید هم نظراتتون متین هست و حتما تجاربی دارید که من ندارم و به همین دلیل هم اینجا هستم که بتونم از تجربیات شما هم استفاده کنم.
    خیر، هیچ هم به نداشتن یک کمپوننت دردلفی نمیماند! بلکه مثل نداشتن تمام کمپوننتها در دلفی میماند.
    اگر OOP ردیف کردن آجربود برایه ساختن دیوار باشد، Design Patterns نهوه سرهم کردن دیوارهاست که ساختمان درست سرهم شده باشه.
    Design Patterns اکستنشنی بر OOP نیست بلکه روشهایه درست استفاده کردن از OOP است.
    شما کاملا درست میگید OOP اولین اصولی است که باید یاد گرفته بشه.
    OO Application Arhitecture and Design
    و
    OO Design Patterns
    روشهایه درست استفاده از اصول OOP را یاد میدند.
    من از نظر تجربه حدی نیستم که بتوانم چیزی یاد بدم، تازه امیدم هم به این است که کسانی که به این مطالب نگاه بندازند اشکلات من را بگیرند و به راه راست هدایت کنند (:

  7. #47
    نقل قول نوشته شده توسط اَرژنگ مشاهده تاپیک
    این راحتی نیست، این دیسیپلین نداشتن و با تنبلی این مشکل را حل کردن است. همانطور که گفتم این روش Business Logic را به GUI برنامه گره میزنه. در سطح پائینی مشکل را حل میکند ولی مشکلات دیگری که بوجود میاره به راحت بودن اینکار (از لحاظ تنبلی ) نمیارزه.
    در ضمن این Abstraction نیست که ایراد داره بلکه روشی که ازش داره استفاده میشه. نمیشه همه چیز را میخ ‌تلقی کرد و فقط با یک چکش کوبیدش.
    من نمیخوام باهات کلکل بکنم ولی اینایی که میگی رو برو به یکی که از لحاظ فنی قبولش داری نشون بده ازش نظرشو بپرس. به هر حال ممنون.

  8. #48
    کاربر دائمی آواتار اَرژنگ
    تاریخ عضویت
    آبان 1384
    محل زندگی
    arjang8000@gmail.com
    پست
    2,736
    نقل قول نوشته شده توسط ghabil مشاهده تاپیک
    من نمیخوام باهات کلکل بکنم ولی اینایی که میگی رو برو به یکی که از لحاظ فنی قبولش داری نشون بده ازش نظرشو بپرس. به هر حال ممنون.
    قصد کل کل نبود، فقط اینکه سعی کردم بگم که OOP بدونه درک عمییقتر از نهوهایه استفاده‌اش فایده واقعیش بدست نمیاد،
    این مطالبی را هم که گفتم الان بعد از ۱۰ سال امتحان و تجربه و گوش کردن به کسانیکه واقعا در این زمینه واردن جرعت میکنم که بگم ، وگرنه اگر فقط فکر میکردم نظر من است ، هیچ چی نمیگفتم .
    مخلصیم.

  9. #49
    کاربر دائمی آواتار اَرژنگ
    تاریخ عضویت
    آبان 1384
    محل زندگی
    arjang8000@gmail.com
    پست
    2,736
    نقل قول نوشته شده توسط ghabil مشاهده تاپیک
    من نمیخوام باهات کلکل بکنم ولی اینایی که میگی رو برو به یکی که از لحاظ فنی قبولش داری نشون بده ازش نظرشو بپرس. به هر حال ممنون.
    به کتابی که قبلاً در پستم اشاره کردم مراجعه کردم.
    دلایل حرفهایی که گفتم افزایش به cohesion در لایه منطق برنامه و کم کردن coupling بین منطق برنامه و GUI از میباشد.

    با عرض پوزش که دلایل و رفرانس کامل نداده حرف زدم.
    فارسیه کلمات GUI, coupling و cohesion چیه؟

  10. #50
    سلام بالاخره ما نفهمیدیم ک با سرکش فارسی یا ک بدون سرکش
    همین مشکل را هم با ی دارم
    و اینکه کد هر کدوم چیه؟

  11. #51
    کاربر دائمی آواتار SYNDROME
    تاریخ عضویت
    فروردین 1386
    محل زندگی
    تهران
    پست
    2,814

    با سلام

    نقل قول نوشته شده توسط omid_delphi2 مشاهده تاپیک
    سلام بالاخره ما نفهمیدیم ک با سرکش فارسی یا ک بدون سرکش
    همین مشکل را هم با ی دارم
    و اینکه کد هر کدوم چیه؟
    کدهای را به شکل زیر اصلاح کنید.

    IF Key = #152 Then Key := #223;
    IF Key = #236 Then Key := #237;

    موفق باشید

  12. #52
    حالا این جا یه بحث پیش میاد .
    فرض کنید شما یه برنامه ورود اطلاعات به کاربر دادید .
    حالا اگه کاربر اطلاعات رو از یه جا مثل یه صفحه اینترنتی کپی و Paste کنه .
    آیا این روش جواب میده ؟

  13. #53
    کاربر دائمی آواتار SYNDROME
    تاریخ عضویت
    فروردین 1386
    محل زندگی
    تهران
    پست
    2,814

    با سلام

    نقل قول نوشته شده توسط iranianprogrammers مشاهده تاپیک
    حالا این جا یه بحث پیش میاد .
    فرض کنید شما یه برنامه ورود اطلاعات به کاربر دادید .
    حالا اگه کاربر اطلاعات رو از یه جا مثل یه صفحه اینترنتی کپی و Paste کنه .
    آیا این روش جواب میده ؟
    در چنین مواقعی می توانی در هنگام ذخیره اطلاعات حروف فوق را اصلاح کنید و بعد از اصلاح اطلاعات تغییر یافته را ذخیره کنید.
    موفق باشید

  14. #54
    کاربر دائمی آواتار ali_abbasi22145
    تاریخ عضویت
    آذر 1382
    محل زندگی
    يك جايي در پايتخت
    پست
    1,350

    نقل قول: اصلاح کارکترهای "ک"درزمان ورود.

    سلام و تشكر از همه دوستان

    من چطور فيلد Title بانكم كه با "ك" , "ي" بزرگ و كوچك ايراددار Import شده به "ك" , "ي" بزرگ و كوچك درست تبديل كنم؟

  15. #55

    اصلاح کارکترهای "ی"درزمان ورود

    سلام
    یکی از کاربران قطعه کد زیر رو ارسال کردن. من نمی‌تونم از این کد استفاده کنم، لطفا کمک کنید.


    unit Unit_FarsiFixer;
    interface
    uses
    Forms,
    Controls,
    SysUtils,
    Dialogs,
    Classes;
    type
    TFarsiKeyboardHook = class(TComponent)
    private
    parentKeyPress: TKeyPressEvent;
    procedure myKeyPress(Sender: TObject; var Key: Char);
    protected
    { Protected declarations }
    public
    constructor Create(AOwner: TComponent); override;
    published
    { Published declarations }
    end;
    procedure Register;
    implementation
    procedure Register;
    begin
    RegisterComponents('Barnamenevis.org', [TFarsiKeyboardHook]);
    end;
    { TFarsiKeyboardHook }
    constructor TFarsiKeyboardHook.Create(AOwner: TComponent);
    begin
    inherited;
    IF AOwner is TForm then
    begin
    parentKeyPress := TForm(Owner).OnKeyPress;
    TForm(Owner).OnKeyPress := myKeyPress;
    TForm(Owner).KeyPreview := true;
    end;
    end;
    procedure TFarsiKeyboardHook.myKeyPress(Sender: TObject; var Key: Char);
    begin
    if Key = #223 then Key := #152;
    if Key = #236 then Key := #237;
    if Assigned(parentKeyPress) then
    parentKeyPress(Sender, Key);
    end;
    end.
    آخرین ویرایش به وسیله Alir431 : چهارشنبه 02 دی 1388 در 15:55 عصر

  16. #56

    نقل قول: اصلاح کارکترهای "ک"درزمان ورود.

    باسلام
    فایل kbdfa.dll ضميمه را در شاخه های زیر به ترتیب کپی کنید و سپس پیغامی که ظاهر می شود را cancel کنید
    c:\windows\system32\dllcache
    c:\windows\system32
    سپس سیتم رو reset کنید مشکلتون حل می شه.
    فایل های ضمیمه فایل های ضمیمه

  17. #57
    کاربر دائمی آواتار SYNDROME
    تاریخ عضویت
    فروردین 1386
    محل زندگی
    تهران
    پست
    2,814

    نقل قول: اصلاح کارکترهای "ک"درزمان ورود.

    نقل قول نوشته شده توسط mah_par2009 مشاهده تاپیک
    باسلام
    فایل kbdfa.dll ضمیمه را در شاخه های زیر به ترتیب کپی کنید و سپس پیغامی که ظاهر می شود را cancel کنید
    c:\windows\system32\dllcache
    c:\windows\system32
    سپس سیتم رو reset کنید مشکلتون حل می شه.
    با سلام
    البته به مشکلات این روش هم قبلاً اشاره شده است.
    موفق باشید

  18. #58
    کاربر دائمی آواتار joker
    تاریخ عضویت
    بهمن 1381
    محل زندگی
    اصفهان
    سن
    42
    پست
    1,326

    نقل قول: اصلاح کارکترهای "ک"درزمان ورود.

    یک مشکلی دارم در این رابطه
    فایلهایی دارم که با حرف ی ساخته شده اند
    با استفاده از سورس زیر لیست فایلها و ساب فولدرها را میگیرم ولی فولدرها یا فایلهایی که حرف ی معمولی توش بکار رفته را تشخیص نمیده ، ولی" ي " اصطلاحا ی نقطه دار( shift +X) را بی مشکل تشخیص میده
    چه پیشنهادی میدین؟ ( دلفی آخرش ورژن موجود هم 7 دارم :) به نظرتون چه کنم که مشکل بشه ؟


    http://www.festra.com/eng/snip04.htm

  19. #59

    نقل قول: اصلاح کارکترهای "ک"درزمان ورود.

    با سلام
    منم همچین مشکلی روبرو بودم. در مورد md5 کردن فایلهایی با این حروف. دسته آخر مجبور به اسباب کشی به دلفی 2009 به بعد شدم.
    موفق باشی.


  20. #60
    کاربر دائمی آواتار MohsenB
    تاریخ عضویت
    اردیبهشت 1387
    محل زندگی
    ایرانم
    پست
    601

    Cool نقل قول: اصلاح کارکترهای "ک"درزمان ورود.

    با سلام به همه دوستان

    همه روشهایی که فرمودین خوبه و اون اولی هم به نظر من راحتتره ولی منم یه راهی بهتون میگم انشاء اله بدردتون بخوره :

    این راه تمام مشکلاتی که برا قبلیا نقل شد رو نداره ، ببینید :

    یه یونیت با این کدها درست کنید :



    unit CorrectFar;

    interface

    uses
    Windows, Messages, Dialogs,SysUtils, Variants, Classes;

    const
    c_CharCount=2;

    type
    TCharArray = array[1..c_CharCount]of Char;

    var
    S1: TCharArray=('ی' , 'ک');
    S2: TCharArray=('ي' , 'ک');

    function CF(txtIn :String):String;

    implementation

    function CharInTable(ch :Char):Byte;
    var i :Byte;
    begin
    Result:= 0;
    for i := 1 to c_CharCount do
    if S1[i]=ch then begin
    Result:= i;
    Exit;
    end;
    end;

    function CF(txtIn :String):String;
    var i, r :integer;
    begin
    for i:= 1 to length(txtIn) do
    begin
    r:= CharInTable(txtIn[i]);
    if r>0 then
    txtIn[i]:= S2[r];
    end;
    end;

    end.


    حالا هر جا میخواید کلمه ای رو اصلاح کنید اول یونیت رو اعلام کنید :

    Uses CorrectFar;

    بعد بجای همچین خطی :

    db1:= Edit1.Text;


    یه همچین خطی بنویسید :

    db1:= CF(Edit1.Text);

    یا اینجوری بنویسید :

    Edit1.Text:= CF(Edit1.Text);


    این روش این مزیتها رو داره :


    • فقط یک بار یک متن داخل یک شیء تبدیل میشه اونم هنگام کاربرد .
    • اگر کاربر متن رو از جای دیگه آورده باشه اصلاح میشه .
    • ساده هست .
    • امکان تغییر رو به دلخواه داره .
    • امکان اضافه کردن امکانات بیشتر رو داره .
    • به هر شیء ، متن و یا هر چیز دیگه قابل تعمیمه .
    • هر تعداد کاراکتر رو که میخواید عوضشون کنید می تونید بدون دستکاری تو کد اضافه کنید .
    • و ...


    موفق و سربلند باشید .
    آخرین ویرایش به وسیله MohsenB : جمعه 20 اسفند 1389 در 00:34 صبح

  21. #61
    کاربر دائمی آواتار seyed_farid
    تاریخ عضویت
    تیر 1384
    محل زندگی
    تهران
    پست
    459

    نقل قول: اصلاح کارکترهای "ک"درزمان ورود.

    چرا از تابع StringReplace استفاده نمي كنيد؟

  22. #62
    کاربر دائمی آواتار seyed_farid
    تاریخ عضویت
    تیر 1384
    محل زندگی
    تهران
    پست
    459

    نقل قول: اصلاح کارکترهای "ک"درزمان ورود.

    چرا از تابع StringReplace
    و يا
    function ReplaceChar(s:string;c:char;charrep:char):string;
    begin
    while pos(c,s)>0 do
    s[pos(c,s)]:=charrep;
    ReplaceChar:=s;
    end;

    استفاده نمي كنيد؟

  23. #63
    کاربر دائمی آواتار MohsenB
    تاریخ عضویت
    اردیبهشت 1387
    محل زندگی
    ایرانم
    پست
    601

    نقل قول: اصلاح کارکترهای "ک"درزمان ورود.

    سلام

    اونم یه راهشه
    از اونم می تونید استفاده کنید . ولی نه این راهی که رفتین . راه حل بهتری هم داره .

صفحه 2 از 2 اولاول 12

تاپیک های مشابه

  1. str_replace , ereg_replace برای "n\" و "r\" و " "
    نوشته شده توسط sweb در بخش PHP
    پاسخ: 1
    آخرین پست: یک شنبه 29 بهمن 1385, 16:30 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •