编写一个字符统计器，用来统计用户输入的各类数据字符各为多少！

TK_admin 发布于 2013-10-15 00:08， 2243 次点击

这个问题我纠结了一天了！希望大虾赐教啊！

4 回复

TK_admin2013-10-15 00:09

procedure TForm1.Button1Click(Sender: TObject);
VAR
str1,str2:string;

a:integer;
begin
str1:=memo1.Lines.GetText();
str2:=copy(str1,1,1);

end;

end.

这是我写的代码！只要求有memo控件！

TK_admin2013-10-15 00:13

回复 2楼 TK_admin

  将用户输入的字符全部统计  比如说   gfdsafsd3124324     、、‘【】
  这里有8个  字母7个数字 7个其他字符！  我想把它们字符一个一个拿出来  算出ascii 码  比较
  像  c语言  里面一样    可是  无法取出  memo 里面的字符（可以取出字符串）；怎么把字符串里面字符一个个取出来变成字符啊！
  delphi 有这样的方法吗！  求解啊！

veketdelphi2013-10-15 09:06

memo.text 就是个字符串呀

TK_admin2013-10-15 11:28

回复 4楼 veketdelphi

对啊！可以把里面的字符单独取出来与字符比大小吗！