txt dosya ve memory sorunu ....

[mcsa06]

Selam arkadaşlar..
txt dosya içindeki satır sayısını öğrenebileceğim bir kod arıyorum.
memory'i şişmesini asıl engelleye biliriz.
kolay gelsin;

[ulu coder]

a.s.

BlockRead komutuyla parça parça okuyup baytlardan 13 olanların sayısını bulursanız, satır sayısının bir eksiğini bulmuş olrusunuz. Hafizayı ne kadar zorlar bilmiyorum...

[ikut]

Selam arkadaşlar..
txt dosya içindeki satır sayısını öğrenebileceğim bir kod arıyorum.
memory'i şişmesini asıl engelleye biliriz.
kolay gelsin;

Kod: Tümünü seç

var
afile:textfile;
satsay:integer;
sat:string;
begin
  assgnfile(afile,'dosaadi');
  Reset(Afile);
  satsay:=0;
  while not eof(afile) do 
    begin
       readln(afile,sat);
       ınc(satsay);
  end;

yada memoya yükleyip saydırabilirsin memo1.lines.count sana satır sayısını verir