位运算 课中 提到的 字母转换例子
本帖最后由 凉点水 于 2013-8-17 17:09 编辑谢谢
甲鱼老师课程 位运算中提到的小例子 字母转换 怎么做呢 ，求解！{:5_100:}
我的思路：
一个窗口 窗口中一个 Label 标签显示转换的结果；
一个Edit1输入栏中 显示输入的要转换的 字母；
Edit 中要输入字母，字母是属于字符串吧，那就是用到string 吗？
——————————————————————————————就知道以上的，一下的呢？
就这两个控件， 想想大部分算法都是 在 Edit 控件中完成的 对吧。 可是 具体的代码编写是怎样的？没想出来{:5_104:}，求助，感激不尽 ！！！
不按照我的也行只要实现：
在Edit 控件 中输入一个 大写 或小写 的字母 如：A, 能再Label 或 另一个Edit 控件中显示对应的小写或大写就好
帮你顶一下、 再顶一下。 再顶一下！ 11年__那些事儿 发表于 2013-8-17 16:51 static/image/common/back.gif
再顶一下！
谢谢哥们。。。{:5_100:}你也学Delphi吗？ 凉点水 发表于 2013-8-17 16:52 static/image/common/back.gif
谢谢哥们。。。你也学Delphi吗？
是的，哥们
我也在学delphi 11年__那些事儿 发表于 2013-8-17 16:55 static/image/common/back.gif
是的，哥们
我也在学delphi
加油，，，以后互相探讨学习。。。。。 你可以把你的问题描述清楚点，看看我能不能帮助你
视屏我都忘记了。 凉点水 发表于 2013-8-17 16:55 static/image/common/back.gif
加油，，，以后互相探讨学习。。。。。
No problem 11年__那些事儿 发表于 2013-8-17 16:55 static/image/common/back.gif
你可以把你的问题描述清楚点，看看我能不能帮助你
视屏我都忘记了。
输入小写字母能显示出大写字母的一个功能程序，好像跟ASCII码有关 凉点水 发表于 2013-8-17 16:58 static/image/common/back.gif
输入小写字母能显示出大写字母的一个功能程序，好像跟ASCII码有关
直接有个函数嘛，
等下我做个demo！ procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '' then
Abort;
Edit1.Text := UpperCase(Edit1.Text);
end; 11年__那些事儿 发表于 2013-8-17 17:00 static/image/common/back.gif
直接有个函数嘛，
等下我做个demo！
嗯 这是在位运算课 也就是 第五课视频中 提到的一个 就是鱼 老 没演示。随口说了一下 嗯？大小写转换？
是这种么？刚写的，创建程序，在Form上放2个Edit和1个按钮，代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
temp:string;
begin
temp:=Edit1.Text;
for i:=1 to Length(temp) do
begin
if ((ord(temp))>=65) and ((ord(temp))<=90) then
begin
temp:=Char(ord(temp)+32);
end
else if ((ord(temp))>=97) and ((ord(temp))<=122) then
begin
temp:=Char(ord(temp)-32);
end;
end;
Edit2.text:=temp;
end;
comeheres 发表于 2013-8-17 18:01 static/image/common/back.gif
是这种么？刚写的，创建程序，在Form上放2个Edit和1个按钮，代码如下：
哈哈谢谢老大。。。。。。三克油 非常感谢 comeheres 发表于 2013-8-17 18:01 static/image/common/back.gif
是这种么？刚写的，创建程序，在Form上放2个Edit和1个按钮，代码如下：
{:5_102:}{:5_102:}{:5_102:}{:5_102:} 爱屎你了。。。。 comeheres 发表于 2013-8-17 18:01 static/image/common/back.gif
是这种么？刚写的，创建程序，在Form上放2个Edit和1个按钮，代码如下：
不过觉得 有点 复杂，才学看这个有点吃力。。。 本帖最后由 comeheres 于 2013-8-17 19:38 编辑
凉点水 发表于 2013-8-17 18:18 static/image/common/back.gif
不过觉得 有点 复杂，才学看这个有点吃力。。。
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
temp:string;
begin
temp:=Edit1.Text; //把Edit1的内容放到临时字符串temp中
for i:=1 to Length(temp) do //Length(temp)是取temp的字符个数，也就是长度。temp表示temp的第i个字符
begin
if ((ord(temp))>=65) and ((ord(temp))<=90) then // ord()是取字符的ASCII码，A和Z的ASCII码分别是65和90
comeheres 发表于 2013-8-17 18:32 static/image/common/back.gif
{:5_92:} 谢谢 说明 哈哈、、、
页:
[1]
2