mike_p

To midi to jakiś shit, ale początek brzmi na "Dobry, zły i brzydki" z muzyką Ennio Morricone. Czyli utwór "The good, the bad and the ugly".

Miejmy nadzieję, że nie będzie takich lagów jak przy pierwszych testach :boxed:

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

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

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

@UP Ja nie słyszałem :o

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

Jak to bez procedury? :P

Jaki identyfikator? Oo

Lol, google ukradli? Coś takiego znalazłem #include <iostream> #include <stdlib.h> #include <time.h> using namespace std; int main() { int i; srand( (unsigned)time( NULL ) ); // "wymieszaj" i = rand() % 20; // losuj liczbe z przedzialu od 0 do 19 cout << i << endl; //wypisz na ekran return 0; }

Tak samo, tylko wczytujesz plik do stringa :P

U mnie 30 fps bez blooma i 20 z. Ogólnie robi wrażenie, w każdym razie graficznie.

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;

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?

Lol co masz do Kubusia? @DOWN Sam masz mały rozumek :P

@UP

Wiedziałem, że ten pies kogoś mi przypomina :F

No właśnie, nie to co Family Guy.

Bo wyglądasz na 15. A konkretnie jak mój kumpel z byłej klasy :F

Kurde, zacząłem to zrobić, ale dzisiaj nie skończę. Akurat najgorszy czas wybrałeś na turę :F

Fajny. Ale zdjęcie żałosne :P

Family Guy

GML if(obiekt1.x>x) sprite_index=sprite_right; if(obiekt1.x<x) sprite_index=sprite_left; W jakiegoś stepa obiekt1 czy cuś.

A mi po śmietnikach łażą te z Zadola.

Fajne są jeszcze labladory i golden retrievery :F