Открытие и сохранение файлов в Delphi

[darth Mark]

1.Откройте приложение задачи 2.2.2. N+1, полученное в результате выполнения лабораторной работы №5. Добавьте в пункт Файл главного меню приложения подпункты Ввод из файла и Вывод в файл.
2.Поставьте на форму приложения компоненты OpenDialog и SaveDialog, чтобы обеспечить возможность использования стандартных диалоговых окон открытия и сохранения файлов. Настройте объекты OpenDialog и SaveDialog в Инспекторе объектов. В свойство Filter запишите два фильтра: для всех файлов и для текстовых файлов. Свойству InitialDir присвойте значение имени папки, в которой хранится проект приложения рассматриваемой задачи. В свойство DefaultExt компоненты SaveDialog запишите значение .txt.
3.Запишите обработчики ввода из файла и сохранения в файл, используя пособие и приведенный ниже пример; измените приведенные там коды в соответствии с индивидуальной задачей.

Собственно, задача:

Дана матрица NxM, найти номера строк матрицы, сумма элементов которых меньше 0.

Даны примеры обработчиков:

procedure TForm1.N2Click(Sender: TObject);
Var f:TextFile; s:string;
i,j,n,m:integer;
a: array of array of real;

begin
if OpenDialog1.Execute then
begin
s:= OpenDialog1.FileName;
AssignFile(f,s);
Reset(f);
Readln(f, n,m);
Edit1.Text:=IntToStr(n);
Edit2.Text:=IntToStr(m);
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=m+1;
for i:=1 to n do
StringGrid1.Cells[0,i]:=IntToStr(i);
for j:=1 to m do
StringGrid1.Cells[j,0]:=IntToStr(j);
SetLength(a,n,m);
for i:=1 to n do
for j:=1 to m do
begin
Read(f,a[i-1,j-1]);
StringGrid1.Cells[j,i]:=FloatToStr(a[i-1,j-1]);
end;
CloseFile(f);
end
end;

procedure TForm1.N3Click(Sender: TObject);

Var f:TextFile; s:string;
i,j,n,m:integer;
begin
if SaveDialog1.Execute then
begin
s:=SaveDialog1.FileName;
AssignFile(f,s);
Rewrite(f);
writeln(f,'n=', Edit1.Text, ' m=', Edit2.Text);

writeln(f);
writeln(f,' Матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(f,StringGrid1.Cells[j,i], ' ');
writeln(f)
end;
CloseFile(f);
end
end;

Вроде, все дано, но:

TForm1.N2Click(Sender: TObject);

Ошибка: Tform1 does not contain a member named N2Click at line ****
то же самое пишет про N3Click - где эти параметры объявить?

[RUSt88]

ты просто это скопипастил

procedure TForm1.N3Click(Sender: TObject);

в редакторе форма 2 раза кликни по кнопе и ты попадешь в обработчик нажатия клавиши, вот туда внутрь скопируй сам код (учти что begin уже написан)

Var f:TextFile; s:string;
i,j,n,m:integer;
begin
if SaveDialog1.Execute then
begin
s:=SaveDialog1.FileName;
AssignFile(f,s);
Rewrite(f);
writeln(f,'n=', Edit1.Text, ' m=', Edit2.Text);

writeln(f);
writeln(f,' Матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(f,StringGrid1.Cells[j,i], ' ');
writeln(f)
end;
CloseFile(f);
end

[darth Mark]

Вот спасибо! Сейчас попробуем...

[darth Mark]

UPD
Блин. При попытке редактирования кнопки сохранения она(кнопка) предлагает сохранение. Чего предлагается сохранять - не знаю.

[darth Mark]

Апаю тему, поскольку проблема так и осталась. Блин.

[DoDge_VipeR]

вы бы проектик свой приложили, легче б было понять!

[RUSt88]

кинь проект свой, исправим

[darth Mark]

Глюк с кнопками таки исправил, зато появились новые.
В архиве собственно прожект, .doc - это текст лабы, задание дано в первом посте.

[darth Mark]

снова ап.
Суть глюка:

Exception class EClassNotFound with message 'Class TMainMenu Not Found'