Проблема с записью в файл.

← →
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 это вообще перл...

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