function CharCount(in_str, in_char : string) : integer;
var i : integer;
begin
for i:=1 to Length(in_str) do begin
if copy(in_str,i,1) = in_char then result := result + 1;
end;
end;
걍 이런식으로 함수 만들어서 쓰시면 되겠네요..^^;;
위에 예라면 in_str = 'abcdefabecdabdfabfhdkdbcsaahf'
in_char = 'a'
function CharCount(in_str, in_char : string) : integer;
var i : integer;
begin
for i:=1 to Length(in_str) do begin
if copy(in_str,i,1) = in_char then result := result + 1;
end;
end;
걍 이런식으로 함수 만들어서 쓰시면 되겠네요..^^;;
위에 예라면 in_str = 'abcdefabecdabdfabfhdkdbcsaahf'
in_char = 'a'