检查字符是否为换行符 [英] Checking if character is newline
本文介绍了检查字符是否为换行符的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
你好,我有一个简单的程序,可以计算给定文本中的字符,直到行只有新行为空行为止
Hello i'v got simple program which is couting characters in given text until line is empty line only with new line
var
znaki: array['a'..'z'] of integer = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
napis: String;
maly: String;
dlugosc: Integer;
znak: char;
begin
napis := 'a';
while napis[1] <> '#13#10'do
begin
readln(napis);
maly:=LowerCase(napis);
for dlugosc:=(length(maly)) downto 1 do
begin
znaki[maly[dlugosc]]:=znaki[maly[dlugosc]]+1;
end;
for znak:='a' to 'z' do
writeln(znak, ' ', znaki[znak]);
end;
end.
在处理条件时失败,我也不知道为什么。
请给我提示
it fails on while condtion and i dont know why. Pleas give me clue
推荐答案
一个字符,napis [ 1 ];不能为2个字符#13 & #10 ...
One char, napis[1]; can't be 2 chars #13 & #10...
因此,我将例如:
var
znaki: array['a'..'z'] of integer = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
napis: String;
maly: String;
dlugosc: Integer;
znak: char;
begin
napis := 'a';
while ((Length(napis) > 0)) do
begin
readln(napis);
// napis := StringReplace(napis, #13#10, #10, [rfReplaceAll]); //useless for a console readln
maly:=LowerCase(napis);
for dlugosc:=(length(maly)) downto 1 do
begin
znaki[maly[dlugosc]]:=znaki[maly[dlugosc]]+1;
end;
for znak:='a' to 'z' do
writeln(znak, ' ', znaki[znak]);
end;
end.
这篇关于检查字符是否为换行符的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文