| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/10/17 11:31:13 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | procedure TForm1.Button1Click(Sender: TObject); var i : integer; //循環用 s : shortstring; //輸出字符串，可不用 begin i=length(edit1.text); //原来i :=1 while i <= length(edit1.text) do begin //循環到edit1.text的末尾 if ord(edit1.text[i]) > 127 then begin //ASC值大於127，認爲是漢 s := edit1.text[i] + edit1.text[i - 1]; //拼起這個漢字 i := i - 1; //跳一位 end else s := edit1.text[i]; //是字符 memo1.Lines.Append(s); //添加到Momo i := i - 1; //循環 end //While i< ... end; 这样能不能实现把输入进去的倒着输出 ---------------------------------------------- love delphi |
|||||
| 作者： |
|
2003/10/18 0:26:34 | ||||
| 1楼： | 呵呵。不行。 因爲有些漢字的第二位同字母的ASC碼是相同的。 而且這樣會把漢字的左右兩邊反過來。就是不是字了。 其實反過來輸出相當簡單。只改一句： procedure TForm1.Button1Click(Sender: TObject); var i : integer; //循環用 s : shortstring; //輸出字符串，可不用 begin i := 1; //將i至爲1 while i <= length(edit1.text) do begin //循環到edit1.text的末尾 if ord(edit1.text[i]) > 127 then begin //ASC值大於127，認爲是漢字 s := edit1.text[i] + edit1.text[i + 1]; //拼起這個漢字 i := i + 1; //跳一位 end else s := edit1.text[i]; //是字符 memo1.lines.Insert(0, s); //原來是memo1.Lines.Append(s); i := i + 1; //循環 end //While i< ... end; ---------------------------------------------- ——混世生 |
|||||
| 作者： |
|
2003/11/23 20:24:49 | ||||
| 2楼： | insert的作用是插在最前面吧，就像是一个队一样 老兄，我想这样也不是很行的 如果要输出的有好多的，用堆栈会不会效果好一点 呵呵，想听听老兄的见解 ---------------------------------------------- love delphi |
|||||
| 作者： |
|
2003/11/23 20:38:25 | ||||
| 3楼： | 不管什么算法 你能调试出结果就好！ ----------------------------------------------  
|
|||||
| 作者： |
|
2003/11/23 20:46:00 | ||||
| 4楼： | 这位老哥说的也对 不过有时候做简单的可能两者都行 可是一复杂了就会有区别了 ---------------------------------------------- love delphi |
|||||
| 作者： |
|
2003/11/23 20:54:34 | ||||
| 5楼： | 代码太复杂了 要付出辛勤劳动！加油 偶相信你会成功的！ ----------------------------------------------
|
|||||
| 作者： |
|
2003/11/23 21:11:55 | ||||
| 6楼： | to 舞鶴： 什麽叫做用堆棧？？那個不是CPU直接操作的嗎？ 解釋一下嗎？或是哪位知道的說一下，，學習！！ ---------------------------------------------- ——混世生 |
|||||
| 作者： |
|
2003/11/23 21:48:11 | ||||
| 7楼： | 堆栈 // 先进后出 后进的先出 就像将一堆数据一个一个垒起来，每次只能将最上面的数据取出 // 表达的不好 见谅/ ---------------------------------------------- --_-- 
|
|||||
| 作者： |
|
2003/11/23 23:26:42 | ||||
| 8楼： | 這個我知道哈，我看過彙編的書，我是說，用堆站寫這個程序怎麽做？ ---------------------------------------------- ——混世生 |
|||||
| 信息 |
| 登陆以后才能回复 |
