Delphi. Определение кол-ва строк в Memo

[PAVEL315]

Как определить кол-во заполненных строк в мемо???

[necky]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=0;


while memo1.Lines[i]<>'' do
i:=i+1;
label1.Caption :=inttostr(i);
end;

[puporev]

Можно короче.
label1.Caption :=inttostr(memo1.Lines.Count);

[PAVEL315]

А!!! Точно!!! Спасибо! Просто малёк подзабыл)))

[PAVEL315]

Эх, решил я это кол-во строк записать в файл...
Что-то не получилось

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
x,n,s:string;
...
try
n:=edit1.Text + '.grkol';
assignfile(f,n);
if not fileexists(n) then
rewrite(f)
else begin
x:=inttostr(memo1.Lines.Count);
reset(f);
writeln(f,x)
end
except showmessage('К сожалению произошла ошибка, попробуйте ещё раз')
end;

Помогите пожалуйста!

[puporev]

Не знал, да забыл, хуже нет.
Если ты совсем плохо разбираешся, то для начала пиши попроще, чтоб самому понятно было.

x:=inttostr(memo1.Lines.Count);

Если x:string; то зачем nttostr?
Что за расширение '.grkol'; Если ты думаешь, что это имя файла, то сурово ошибаешься.
Если открываешь файл для записи (rewrite), то зачам еще и reset?
По моему ты все слова, которые знал, случайным образом занес в код.
Для начала напиши так, и разберись.

procedure TForm1.Button1Click(Sender: TObject);   
var f:textfile;   
x:integer;name:string;
begin
name:=edit1.Text + '.txt';
assignfile(f,name);
rewrite(f);
x:=memo1.Lines.Count;
writeln(f,x);
closefile(f);
end;
end.

[PAVEL315]

то что .grkol не название, а расширение я наверное догадываюсь!
С кодом попробую вечером, спасибо

[puporev]

Ну извини. Тагда уж просвети, что за расширение, ни разу не встречал.

[PAVEL315]

это просто я пиишу прогу, для неё и создал...