Ошибка доступа к созданному файлу

[Siluet]

Здрасьте.. у меня тут проблема.. вылазиет ошибка..


вот код..

procedure TForm2.Button2Click(Sender: TObject);
begin
st:=edit1.Text+'.txt';
AssignFile(f,st);
Rewrite(f);
memo11.Lines.Text:=edit1.Text+memo2.Lines.Text+memo3.Lines.Text;
memo11.Lines.SaveToFile(st);
end;

Подсткажите пожалуйста в чем дело..

[anGeee]

Может стоит в Едит1 записать имя файла ? ..

[Siluet]

в Едит1 я записываю фамилию.. потом программа добавляет в конец".txt"
и затем фал создается..

[Пепел Феникса]

стоп.
а зачем вы открываете файл то?

AssignFile(f,st);
Rewrite(f);

убрать.

ОДИНОЧЕСТВО В СЕТИ, я считаю что там файлы вообще не нужны, мемо итак перезапишет файл.

[ОДИНОЧЕСТВО В СЕТИ]

procedure TForm2.Button2Click(Sender: TObject);
begin
st:=edit1.Text+'.txt';
AssignFile(f,st);
Rewrite(f);
memo11.Lines.Text:=edit1.Text+memo2.Lines.Text+memo3.Lines.Text;
closefile(f);
memo11.Lines.SaveToFile(st);
end;

Пепел Феникса я тоже так считаю! но ТС видимо считает по другому может он их еще где использует!

[Siluet]

ОДИНОЧЕСТВО В СЕТИ
Спасибо большое.. Неподумал даж об этом ))) СПАСИБО )

[Kn793]

Пепел Феникса прав. Лучше думаю так будет

procedure TForm2.Button2Click(Sender: TObject);
begin
st:=edit1.Text+'.txt';
memo11.Lines.Text:=edit1.Text+memo2.Lines.Text+memo3.Lines.Text;
memo11.Lines.SaveToFile(st);
end;

[mihali4]

То Siluet
82 поста !
Вы когда правила прочитаете?
Где смысл вашего вопроса в названии "Мемо"???
Переименовываю.
Ставлю на заметку. В следующий раз удалю тему с подобным названием, еще и штраф влуплю...

[Siluet]

Пепел Феникса
Assign и Rewrite мне нужны т.к. мне надо создать програмно файл..
mihali4
Я дико извиняюсь, что так получилось.. прост торопился..

[anGeee]

Assign и Rewrite мне нужны т.к. мне надо создать програмно файл..

Как бы операция

memo11.Lines.SaveToFile(st);

спокойно создаст файл с именем st, если его нет, без всяких там AssignFile и ReWrite )