نمایش نتایج 1 تا 6 از 6

نام تاپیک: تبدیل حروف کوچک انگلیسی به حروف بزرگ

  1. #1

    Arrow تبدیل حروف کوچک انگلیسی به حروف بزرگ

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


  2. #2

    نقل قول: تبدیل حروف کوچک انگلیسی به حروف بزرگ

    UpperCase('SaMpLe StRiNg');

  3. #3

    Arrow نقل قول: تبدیل حروف کوچک انگلیسی به حروف بزرگ

    نقل قول نوشته شده توسط SilverSoft مشاهده تاپیک
    UpperCase('SaMpLe StRiNg');
    ممنون آقا مجتبی
    همه زحمتامون سر شماست.
    من متوجه نشدم این کد چیه و به چه کار میاد
    نشستم یه 60 خطی نوشتم تا شد.
    اما فکر نمی کنم اصولی باشه.
    لطفا روش اصولیش رو بگشید.
    unit Unit1;
    interface
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;
    type
    TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    var
    Form1: TForm1;
    implementation
    {$R *.dfm}
    procedure TForm1.Button1Click(Sender: TObject);
    var tedad,i,j:integer;
    begin
    tedad:=Edit1.GetTextLen;
    i:=0;
    Edit2.Text:=Edit1.Text[i];
    for j:=0 to tedad do begin
    if (Edit1.Text[i]='a') or (Edit1.Text[i]='A') then begin
    Edit2.Text:=Edit2.Text+'A';
    end else begin
    if (Edit1.Text[i]='b') or (Edit1.Text[i]='B') then begin
    Edit2.Text:=Edit2.Text+'B';
    end else begin
    if (Edit1.Text[i]='c')or (Edit1.Text[i]='C') then begin
    Edit2.Text:=Edit2.Text+'C';
    end else begin
    if (Edit1.Text[i]='d') or (Edit1.Text[i]='D') then begin
    Edit2.Text:=Edit2.Text+'D';
    end else begin
    if (Edit1.Text[i]='e') or (Edit1.Text[i]='E')then begin
    Edit2.Text:=Edit2.Text+'E';
    end else begin
    if (Edit1.Text[i]='f') or (Edit1.Text[i]='F') then begin
    Edit2.Text:=Edit2.Text+'F';
    end else begin
    if (Edit1.Text[i]='g') or (Edit1.Text[i]='G') then begin
    Edit2.Text:=Edit2.Text+'G';
    end else begin
    if (Edit1.Text[i]='h') or (Edit1.Text[i]='H')then begin
    Edit2.Text:=Edit2.Text+'H';
    end else begin
    if (Edit1.Text[i]='i') or (Edit1.Text[i]='I')then begin
    Edit2.Text:=Edit2.Text+'I';
    end else begin
    if (Edit1.Text[i]='j') or (Edit1.Text[i]='J') then begin
    Edit2.Text:=Edit2.Text+'J';
    end else begin
    if (Edit1.Text[i]='k') or (Edit1.Text[i]='K') then begin
    Edit2.Text:=Edit2.Text+'K';
    end else begin
    if (Edit1.Text[i]='l') or (Edit1.Text[i]='L') then begin
    Edit2.Text:=Edit2.Text+'L';
    end else begin
    if (Edit1.Text[i]='m') or (Edit1.Text[i]='M') then begin
    Edit2.Text:=Edit2.Text+'M';
    end else begin
    if (Edit1.Text[i]='n') or (Edit1.Text[i]='N') then begin
    Edit2.Text:=Edit2.Text+'N';
    end else begin
    if (Edit1.Text[i]='o') or (Edit1.Text[i]='O') then begin
    Edit2.Text:=Edit2.Text+'O';
    end else begin
    if (Edit1.Text[i]='p') or (Edit1.Text[i]='P') then begin
    Edit2.Text:=Edit2.Text+'P';
    end else begin
    if (Edit1.Text[i]='q') or (Edit1.Text[i]='Q') then begin
    Edit2.Text:=Edit2.Text+'Q';
    end else begin
    if (Edit1.Text[i]='r') or (Edit1.Text[i]='R') then begin
    Edit2.Text:=Edit2.Text+'R';
    end else begin
    if (Edit1.Text[i]='s') or (Edit1.Text[i]='S') then begin
    Edit2.Text:=Edit2.Text+'S';
    end else begin
    if (Edit1.Text[i]='t') or (Edit1.Text[i]='T')then begin
    Edit2.Text:=Edit2.Text+'T';
    end else begin
    if (Edit1.Text[i]='u')or (Edit1.Text[i]='U') then begin
    Edit2.Text:=Edit2.Text+'U';
    end else begin
    if (Edit1.Text[i]='v')or (Edit1.Text[i]='V') then begin
    Edit2.Text:=Edit2.Text+'V';
    end else begin
    if (Edit1.Text[i]='w')or (Edit1.Text[i]='W') then begin
    Edit2.Text:=Edit2.Text+'W';
    end else begin
    if (Edit1.Text[i]='x')or (Edit1.Text[i]='X') then begin
    Edit2.Text:=Edit2.Text+'X';
    end else begin
    if (Edit1.Text[i]='y') or (Edit1.Text[i]='Y')then begin
    Edit2.Text:=Edit2.Text+'Y';
    end else begin
    if (Edit1.Text[i]='z')or (Edit1.Text[i]='Z') then begin
    Edit2.Text:=Edit2.Text+'Z';
    end;end;end;end;end;end;end;end;end;end;end;end;en d;end;
    end;end;end;end;end;end;end;end;end;end;end;end;
    i:=i+1;
    end;
    end;
    end.


  4. #4
    کاربر دائمی
    تاریخ عضویت
    خرداد 1385
    محل زندگی
    ایرانشهر
    پست
    103

    نقل قول: تبدیل حروف کوچک انگلیسی به حروف بزرگ

    همون طور كه دوستمون اشاره كردن كل كد همون بود
    edit1.text:=uppercase(edit1.text)1

  5. #5
    کاربر دائمی
    تاریخ عضویت
    شهریور 1387
    محل زندگی
    کاشان
    پست
    809

    نقل قول: تبدیل حروف کوچک انگلیسی به حروف بزرگ

    اگه خودتون خواستید بنویسد (البته تابع خود دلفی خیلی بهتره)


    procedure TForm1.Button1Click(Sender: TObject);
    var
    i:Integer;
    Character:Char;
    begin
    Edit2.Text:='';
    for i := 1 to Length(Edit1.Text) do
    begin
    Character:=Edit1.Text[i];
    if (Character in ['a'..'z']) then
    Dec(Character,32);
    Edit2.Text:=Edit2.Text+Character;
    end;
    end;

  6. #6

    نقل قول: تبدیل حروف کوچک انگلیسی به حروف بزرگ

    procedure TForm1.Edit1Change(Sender: TObject);
    begin
    Edit1.text:=uppercase(Edit1.text);
    keybd_event(35,0,0,0);
    keybd_event(35,0,2,0);
    end;
    آخرین ویرایش به وسیله hadiaj168 : شنبه 17 بهمن 1388 در 23:17 عصر

برچسب های این تاپیک

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

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