кол-во строк в delphi

Del

_____________

 

если ЯП имелся в виду - delphi (а сразу и не скажешь):

Code:

function linescount(filename:string):integer;
var TempList:TStringlist;
begin
  TempList:=Tstringlist.create;
  try
     If fileexists(filename) then Templist.loadFromFile(filename);
     Result:=TempList.count;
  finally
    TempList.Free;
  end;
end;

вот так, а можно еще прочитав файл в строку посчитать количество #13#10 в ней.
Удачи

 

Если в Memo1 то будет так:
line:integer;
line:=Memo1.Lines.Count;

 

лучше файл не грузить в память, так как при больших объемах могут быть проблемы. делай так:

Code:

---------------
var f:TextFile; count:longint;
begin
count:=0;
AssignFile(f, 'имя_файла');  //в твоем случае имя_файла=Edit1.Text;
Reset(f);
while not eof(f) do begin
readln(f);
inc(count);
end;
CloseFile(f);
Label1.Caption:=IntToStr(count);

 

Блин, перед тем как прочитать твой пост самого такая идея посетила, хотя на самом деле 1-й должна была прийти в голову. Ленюсь, все на компоненты рассчитываю(