[delphi jak napisać program który będzie liczył występowanie poszczególnych liter w pliku]

wyskakuje błąd przy counts

[delphi jak napisać program który będzie liczył występowanie poszczególnych liter w pliku]

Prubowałem to zrobić tak ale mi coś nie wychodzi

 

program licz;

{$APPTYPE CONSOLE}

uses

SysUtils;

function zliczaj_litery(litera:char):integer;

 

var

Litery:array [65..122] of integer;

i:integer;

plik:Text;

nazwa_pliku:String;

 

Znak:Char;

linia : string;

licznik:integer;

 

begin

linia:=0;

Writeln('Podaj nazwe pliku, ktory chcesz otworzyc (pamietaj o rozszerzeniu!)');

Readln(nazwa_pliku);

Assign(plik,nazwa_pliku);

Reset(plik);

while not EOF(plik) do

begin

read(plik,linia); // kopiowanie każdej linii dokumentu do zmiennej linia

For i:=1 to length(linia) do // badanie każdego znaku w linii

if (litery)=znak then inc(licznik) // jeśli znaleziono licznik zwiększamy

close(plik);

end.

[delphi jak napisać program który będzie liczył występowanie poszczególnych liter w pliku]

chyba to miało byc konsolowo

[delphi jak napisać program który będzie liczył występowanie poszczególnych liter w pliku]

nauczyćiel mi kazał napisać to bez procedury i miały być użyte tablice

[delphi jak napisać program który będzie liczył występowanie poszczególnych liter w pliku]

a jak to napisać bez procedury;

[delphi jak napisać program który będzie liczył występowanie poszczególnych liter w pliku]

a jak to będzię konsolowo

[delphi jak napisać program który będzie liczył występowanie poszczególnych liter w pliku]

tylko litery z alfabetu bez polskich

 

 

Proste.

1) Wczytaj plik do jakiegoś Memo.

2) Daj jakiegoś Edita czy coś, gdzie wpisujesz literę

3) Zrób tablicę Integerów od a do z

3) Zrób procedurę jadącą forem przez wszystkie znaki Memo i podnoszącą o 1 konkretny element tablicy

 

Możesz też np. zrobić tablicę 0..255 i liczyć ew. wszystkie znaki.

 

A tak w ogóle to konsolowo czy okienkowo?

 

 

okienkowo

[delphi jak napisać program który będzie liczył występowanie poszczególnych liter w pliku]

A jaki delphi?

 

 

delphi7

[delphi jak napisać program który będzie liczył występowanie poszczególnych liter w pliku]

Muszę napisać ten program tylko nie wiem jak bo to dopiero mój początek z delphi prosze o pomoc.