Скачать: CL | DM;

Проблема с записью в файл.   Найти похожие ветки 

← →
Provodnick   (2003-03-09 09:49) [0]

Значит так. Есть две процедуры:
procedure TForm1.FormShow(Sender: TObject);

begin
AssignFile(TF,"settings.tsf");
{$I-}
Reset (TF);
{$I+}
if ioresult<>0 then rewrite (tf);
Readln (TF,s);
Edit1.Text:=s;
CloseFile (TF)
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
s:=OpenDialog1.FileName;
AssignFile(TF,"settings.tsf");
Rewrite (TF);
Writeln (TF,s);
CloseFile (TF);
Close
end;
Первая работает нормально. А вот вторая никак не хочет изменять содержимое файла. Причем строковые константы она пишет, а путь к новому файлу нет. В чем тут дело, помогите пожалуйста.

---

← →
Anatoly Podgoretsky ©   (2003-03-09 10:14) [1]

И ошибок не дает
И где у тебя проверки на ошибки, на нажате кнопки Cancel
И вообще удивительно, что как то работает при таком количестве глобальных переменных.
Но первая тоже точно не рабочяя, какой к черту Readln после rewrite

Мой совет соотри этот код к черту и напиши по новому, правильно.

---

← →
Andrey   (2003-03-09 10:43) [2]

Удалено модератором
Примечание: Личная переписка

---

← →
k2 ©   (2003-03-09 10:47) [3]

Если файл состоит только из текста ,то лично я предпочитаю считывать в StringList и работать с ним

---

← →
Palladin ©   (2003-03-09 12:57) [4]

> Provodnick (09.03.03 09:49)

и еще
IOResult нужно считывать в рамках
{$I-}
{$I+}

ну и чтение после rewrite это вообще перл...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c