Adott karaktert hogyan lehet egy stringben (AnsiString) a legátláthatóbb módon megszámolni Pascalban (Lazarusban)?

Mi ez?

"ord(blist[0])"

Ezt nézted?

[link]

Banyek.

Az ANSI stringnél nem az első bájt tárolja a hosszot.

A shortStringeknél az első bájton tárolódik a string hossza. Ezért is lehet csak 255 karakter hosszú, mert a nulladik bájt a hossz.

De ansistring esetében ez nem játszik. Ott használd ezt: length(ansistring)

Minden más ugyanaz, mint shortString esetén.

var

s: ansistring;

i, cnt: word;

ch: char;

begin

s:= 'hat darab vakablak marad csak';

ch := 'a';

cnt:= 0;

for i:= 1 to length(s) do if s[i]=ch then inc(cnt);

writeln(cnt);

end.