Zliczanie znakow w pliku

Trzybobry!

Jest juz 2:05 w nocy, a ja mam pusta glowe. Zapewne jest to prosty problem, ale ja juz nie mam sily...

Otoz:

Otwieram sobie plik, do procedury przekazuje parametr FName (z OpenDialog.FileName) z innego unita.

procedure OpenFile(FName: String);
var
  F: TextFile;
  R: String; //zaraz wyjasnie po co to ;)
begin
  AssignFile(F, FName);
  Reset(F)
  Close(F)
end;

Ok. Probowalem czytac plik (while not EOF(F) do, Readln(F,R)), ale grzyb... Jak policzyc ile jest w tym pliku znkow. I NIE CHODZI mi o "daj ukryte memo, wczytaj tam plik i Memo1.Items.Count"...

HELP!!!

Jeśli nie przeszkadza ci liczenie RC, LF, tabulatorów i ew. innych "półwizualnych" bzdetów, to wystarczy FileSize(F). Jeśli to ma być dokładne (np. licznie ilości znaków alfanumerycznych, ilości linii itp.) to proponuję zwykłe F: file (albo TFileStream) i odczytywanie bądź bajt po bajcie (powolne ale nieskomplikowane) albo w porcjach (najlepiej szesnastobajtowych - jedna z potęg dwójki, więc pamięć się nie marnuje, a przyspieszenie będzie wystarczające) od razu wrzucanych do bufora array[0..15] of Char i po sprawie.

Zajrzyj na stronę http://strony.wp.pl/wp/jack_1024/studia/index.html.
Jedno z zadań na tej stronie jest bardzo zbliżone do tego co potrzebujesz. (Zadania z Programowania, zestaw 1, zadanie 11)