Нужна помощь!!!

[Волк]

пишу:

procedure TForm1.N5Click(Sender: TObject);
begin
if form1.N2Click then
fName := savedialog1.FileName
else
fName := form1.OpenDialog1.FileName;
AssignFile(f, fName);
Rewrite(f);
for i:=0 to Memo1.Lines.Count do
writeln(f, Memo1.Lines[i]);
CloseFile(f);
MessageBox(0,'Данные записаны в файл ','Сохранено',MB_ICONINFORMATION+MB _OK);
end;

Это означает если была нажата n2 то имя файла при сохранении должно быть равно savedialog1.FileName(обычное сохранение до этого файл был сохранен через savedialog) но программа не запускается строчка
form1.N2Click подчеркивается красным что делать??

[UnChanter]

Создай глобальную переменную flag = false;
и при нажатии на n2 делай flag:=true;
а при нажатии на n5 делай
if flag=true then .....
else
....

[Волк]

Сообщение от UnChanter

Создай глобальную переменную flag = false;
и при нажатии на n2 делай flag:=true;
а при нажатии на n5 делай
if flag=true then .....
else
....

у меня есть пара вопросов:
1.Какого типа переменная?
2.Выдает ошибку при объявлении переменной!!!
что делать???

[UnChanter]

Сообщение от Волк

1.Какого типа переменная?

flag : boolean;

и присвой ей изначально false на всякий случай!

[Волк]

Ошибка там где я вместо form1.N2Click написал flag всеравно осталась!!!!

[UnChanter]

Сообщение от Волк

Ошибка там где я вместо form1.N2Click написал flag всеравно осталась!!!!

покажите пожалуйста код, или прикрепите к сообщению

[Волк]

Сообщение от UnChanter

покажите пожалуйста код, или прикрепите к сообщению

procedure TForm1.N5Click(Sender: TObject);
begin
if flag:=true then
fName := savedialog1.FileName
else
fName := form1.OpenDialog1.FileName;
AssignFile(f, fName);
Rewrite(f);
for i:=0 to Memo1.Lines.Count do
writeln(f, Memo1.Lines[i]);
CloseFile(f);
MessageBox(0,'Данные записаны в файл ','Сохранено',MB_ICONINFORMATION+MB _OK);
end;

[UnChanter]

if flag = true then ...

:= - оператор присвоения, а здесь надо использовать =

[Волк]

Большое спасибо!

В следующий раз, перед созданием темы, прочтите правила форума.
Чтобы не создавать тем с запрещенными названиями.