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

[sinilotomasz]

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

[Tymon]

A jaki delphi?

[sinilotomasz]

A jaki delphi?

 

 

delphi7

[Tymon]

I interesują Cię tylko litery z alfabetu... znaczy może dokładniej, polskie litery też? I czy liczby też?

[mike_p]

Proste.

1) Wczytaj plik do jakiegoś Memo.

2) 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?

[sinilotomasz]

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

[mike_p]

var
  counts: array[65..90] of integer;

Procedura na naciśnięciu przycisku. Memo to pole z tekstem, Memo1 to pole z wynikami szukania.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:integer;
begin
  for i:=0 to length(Memo.Text)-1 do begin
    s:=Ord(Memo.Text[i]);
    if((s>96)and(s<123)) then s:=s-32;
    if((s>64)and(s<91)) then counts[s]:=counts[s]+1;
  end;
  for i:=65 to 90 do
    if(counts[i]>0) then begin
      Memo1.Text:=Memo1.Text+Chr(i)+' : '+IntToStr(counts[i]);
      Memo1.Lines.Add('');
    end;
end;

FormCreate:

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=65 to 90 do counts[i]:=0;
end;

[sinilotomasz]

a jak to będzię konsolowo

[mike_p]

Tak samo, tylko wczytujesz plik do stringa :P

[sinilotomasz]

a jak to napisać bez procedury;

[mike_p]

Jak to bez procedury? :P

[sinilotomasz]

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

[mike_p]

Może bez osobnej procedury albo konsolowo, bo nie wiem jak inaczej :o

[sinilotomasz]

chyba to miało byc konsolowo

[mike_p]

Kurde, poszperaj w necie jak wygląda aplikacja konsolowa w Delphi i poszukaj jak wczytywać pliki. Nie mam teraz czasu tego pisać.

[sinilotomasz]

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.

[mike_p]

Coś takiego:

program licz;
{$APPTYPE CONSOLE}
uses
SysUtils;

var
Litery:array [65..90] of integer;
i,s:integer;
plik:Text;
nazwa_pliku,text:String;

Znak:Char;
linia : string;
licznik:integer;

begin
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);
text:=text+linia;
end;
close(plik);
  for i:=0 to length(text)-1 do begin
    s:=Ord(text[i]);
    if((s>96)and(s<123)) then s:=s-32;
    if((s>64)and(s<91)) then litery[s]:=litery[s]+1;
  end;
  for i:=65 to 90 do
    if(litery[i]>0) then begin
      WriteLn(Chr(i),' : ',counts[i]);
    end;
end.

?

Nie sprawdzałem czy działa :P

[sinilotomasz]

wyskakuje błąd przy counts

[mike_p]

Bo zapomniałem zmienić counts na litery :P Weź przeczytałbyś chociaż a nie chamsko przekopiował...