Delphi - conslole app - Cetnost znaku v txt souboru???

potřebuju zdroj na to jak zjistim cetnost znaku v txt souboru =
kolikrát je tam a, b, c, ...

To je uplne primitivne...
Urobis si pole integerov od a po z (pole:array['a'..'z'] of integer). Potom citas zo suboru, pripadne velke pismena premenis na male a urobis inc(pole[znak])...

nemohl bys napsat trochu víc???

něco podobnýho už jsem měl (jen jsem použil : pole:array[0..255] of word)
ale nějak se nemůžo dostat přes cyklus kterej to bude
furt opakovat až do konce souboru (zkoušel jsem while, ale pokaždý to hodí nějakou error) a vypíše to na monitor.

Kód:

---

 
var text:string;
      i:integer;
      pismeno:string;
begin
  text := 'Ukázkovej přííklad';
  for i:=0 to Length(text)-1 do
  Begin
    pismeno := copy(text,i,1);
  //tady dosadíš to písmeno do toho pole (nejak prevedes na char)
  end;
end;

---

Napsal bych ti to i s tím dosazením do pole.. Ale nejak se mi vykourilo z hlavy jak prevest string na char ...... Nevim programuju teď poslední dobou v C++ a tam bych to jednoduše přetipoval .. ale tady .......

Staci ???

Kód:

---

var F:Text;
    S:String;
    A:array['A'..'Z'] of Integer;
    X:Byte;
begin
  Assign(F,ParamStr(1));
  Reset(F);
  while not Eof(F) do
  begin
    ReadLn(F,S);
    for X:=1 to Length(S) do if (S[X] in ['A'..'Z']) or (S[X] in ['a'..'z']) then Inc(A[UpCase(S[X])]);
  end;
  Close(F);
  for X:=Ord('A') to Ord('Z') do WriteLn(Chr(X),': ',A[Chr(X)]);
end.

---

[b]Díky moc<b/> , snad to dam nějak dohromady. Je to domácí úkol a po prázdninách mi to nějak nemyslí. :lol: