位运算 课中 提到的 字母转换例子

凉点水

谢谢

甲鱼老师课程    位运算  中提到的小例子   字母转换    怎么做呢 ，求解！

我的思路：
一个窗口   窗口中一个 Label 标签显示转换的结果；

一个Edit1输入栏中 显示输入的要转换的 字母；

Edit 中要输入字母，字母是属于字符串吧，那就是用到string 吗？  
——————————————————————————————就知道以上的，一下的呢？

就这两个控件，   想想  大部分算法都是 在    Edit 控件中完成的 对吧。 可是 具体的代码编写是怎样的？没想出来，求助，感激不尽 ！！！



不按照我的也行只要实现：


在Edit 控件 中输入一个 大写 或小写 的字母 如：A,   能再Label 或 另一个Edit 控件中显示对应的小写或大写就好

11年__那些事儿

帮你顶一下、

11年__那些事儿

再顶一下。

11年__那些事儿

再顶一下！

凉点水

11年__那些事儿 发表于 2013-8-17 16:51

                               
登录/注册后可看大图

再顶一下！

谢谢哥们。。。  你也学Delphi  吗？

11年__那些事儿

凉点水 发表于 2013-8-17 16:52

                               
登录/注册后可看大图

谢谢哥们。。。  你也学Delphi  吗？

是的，哥们
我也在学delphi

凉点水

11年__那些事儿 发表于 2013-8-17 16:55

                               
登录/注册后可看大图

是的，哥们
我也在学delphi

加油，，，以后互相探讨学习。。。。。

11年__那些事儿

你可以把你的问题描述清楚点，看看我能不能帮助你
视屏我都忘记了。

11年__那些事儿

凉点水 发表于 2013-8-17 16:55

                               
登录/注册后可看大图

加油，，，以后互相探讨学习。。。。。

No problem

凉点水

11年__那些事儿 发表于 2013-8-17 16:55

                               
登录/注册后可看大图

你可以把你的问题描述清楚点，看看我能不能帮助你
视屏我都忘记了。

输入小写字母能显示出大写字母的一个功能程序，好像跟ASCII码有关

11年__那些事儿

凉点水 发表于 2013-8-17 16:58

                               
登录/注册后可看大图

输入小写字母能显示出大写字母的一个功能程序，好像跟ASCII码有关

直接有个函数嘛，
等下我做个demo！

11年__那些事儿

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = '' then
    Abort;
  Edit1.Text := UpperCase(Edit1.Text);
end;

凉点水

11年__那些事儿 发表于 2013-8-17 17:00

                               
登录/注册后可看大图

直接有个函数嘛，
等下我做个demo！

嗯   这是在位运算  课 也就是 第五课视频中 提到的一个 就是鱼 老 没演示。随口说了一下

comeheres

嗯？大小写转换？

comeheres

是这种么？刚写的，创建程序，在Form上放2个Edit和1个按钮，代码如下：

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. var
   
3.   i:Integer;
   
4.   temp:string;
   
5. begin
   
6. temp:=Edit1.Text;
   
7. for i:=1 to Length(temp) do
   
8. begin
   
9. if ((ord(temp[i]))>=65) and ((ord(temp[i]))<=90) then
   
10. begin
    
11.    temp[i]:=Char(ord(temp[i])+32);
    
12. end
    
13. else if ((ord(temp[i]))>=97) and ((ord(temp[i]))<=122) then
    
14. begin
    
15.    temp[i]:=Char(ord(temp[i])-32);
    
16. end;
    
17. end;
    
18. Edit2.text:=temp;
    
19. end;

复制代码

凉点水

comeheres 发表于 2013-8-17 18:01

                               
登录/注册后可看大图

是这种么？刚写的，创建程序，在Form上放2个Edit和1个按钮，代码如下：

哈哈  谢谢老大。。。。。。三克油     非常感谢

凉点水

comeheres 发表于 2013-8-17 18:01

                               
登录/注册后可看大图

是这种么？刚写的，创建程序，在Form上放2个Edit和1个按钮，代码如下：

爱屎你了。。。。

凉点水

comeheres 发表于 2013-8-17 18:01

                               
登录/注册后可看大图

是这种么？刚写的，创建程序，在Form上放2个Edit和1个按钮，代码如下：

不过觉得 有点 复杂，  才学看这个有点吃力。。。

comeheres

凉点水 发表于 2013-8-17 18:18

                               
登录/注册后可看大图

不过觉得 有点 复杂，  才学看这个有点吃力。。。

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. var
   
3. i:Integer;
   
4. temp:string;
   
5. begin
   
6. temp:=Edit1.Text;   //把Edit1的内容放到临时字符串temp中
   
7. for i:=1 to Length(temp) do //Length(temp)是取temp的字符个数，也就是长度。temp[i]表示temp的第i个字符
   
8. begin
   
9. if ((ord(temp[i]))>=65) and ((ord(temp[i]))<=90) then // ord()是取字符的ASCII码，A和Z的ASCII码分别是65和90

复制代码

凉点水

comeheres 发表于 2013-8-17 18:32

                               
登录/注册后可看大图

   谢谢 说明   哈哈、、、