такого небывает

← →
barakuda © (2007-07-03 12:32) [0]

Поверьте, очень стыдно задавать такой вопрос... но что делать..

Почему неработает этот код?

procedure TWebModule1.WebModule1WebActionItem5Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled:Boolean); begin AssignFile(F, "D:\data.txt"); // rewrite(f); // 100% создаётся файл на диске find:=datetostr(date) + "|" + Request.RemoteAddr; // 100% переменная не пустая - проверял writeln(f, find); // Но записывать в файл нехочет, вчера 3 часа бился как рыба об лёд end;
Заранее благодарен

← →
ЮЮ © (2007-07-03 12:36) [1]

наверное в буфере лежит. Файл закрыть не мешало бы, прежде чем искать в нем что-то.

← →
barakuda © (2007-07-03 12:38) [2]

искать, я потом буду, пусть хотябы что нить запишет туда

кстати неработает даже

writeln(f, "bla-bla-bla");

← →
homm_ro (2007-07-03 12:40) [3]

CloseFile ?

← →
homm_ro (2007-07-03 12:41) [4]

> кстати неработает даже
>
> writeln(f, "bla-bla-bla");

Все работет. И пишет куда надо. А надо в буфер, туда и пишет. А что-бы буферп записать на файл нужно этот файл закрыть.

← →
Anatoly Podgoretsky © (2007-07-03 13:09) [5]

> искать, я потом буду, пусть хотябы что нить запишет туда

Ищите Шура

← →
Gydvin © (2007-07-03 13:15) [6]

var f: textfile; x: integer; begin assignfile(f, "D:\test.txt"); rewrite(f); for x := 0 to 5 do writeln(f, inttostr(x)); closefile(f); end;

работает?

← →
Anatoly Podgoretsky © (2007-07-03 13:27) [7]

> Gydvin (03.07.2007 13:15:06) [6]

А что тут делает inttostr?

← →
Gydvin © (2007-07-03 13:28) [8]

а что не так?

← →
Anatoly Podgoretsky © (2007-07-03 13:29) [9]

Ты вопросом на вопрос не отвечай.

← →
Johnmen © (2007-07-03 13:30) [10]

> Gydvin © (03.07.07 13:15) [6]
> ... работает?

Нет.

← →
Gydvin © (2007-07-03 13:34) [11]

Я думал это очевидно, возвращает указатель на строковое представление числа находящееся в x

← →
Gydvin © (2007-07-03 13:36) [12]

> Johnmen © (03.07.07 13:30) [10]
> > Gydvin © (03.07.07 13:15) [6]> ... работает?Нет.

:-0 поясните пожалуйста

← →
Anatoly Podgoretsky © (2007-07-03 13:37) [13]

Вопрос не про то что делает inttostr, а про то что ТУТ делает inttostr

← →
Johnmen © (2007-07-03 13:38) [14]

> Gydvin © (03.07.07 13:36) [12]
> :-0 поясните пожалуйста

Ошибку выдаёт "Invalid filename"
:)))

← →
Gydvin © (2007-07-03 13:40) [15]

for x := 0 to 5 do begin s := inttostr(x); writeln(f, s); end;

Так лучше?

← →
Gydvin © (2007-07-03 13:42) [16]

> Ошибку выдаёт "Invalid filename":)))

Из-за отсутсвия у вас диска "D:\"

> for x := 0 to 5 do
> begin
> s := inttostr(x);
> writeln(f, s);
> end;
>
> Так лучше?

Еще хуже... writeln по барабану что писать в файл, так что inttostr тут лишний. Все делается 1 строкой for x := 0 to 5 do writeln(f, x);

2 barakuda: Добавь после writeln(f, find) строку closefile(f) и будет тебе щастье...

> Dimaxx © (03.07.07 14:29) [19]

Ах вот оно в чем дело. Последний раз юзал эту функцию, когда еще совсем начинал, а потому и незнал. Спсб.

← →
homm_ro (2007-07-03 15:49) [22]

> Последний раз юзал эту функцию, когда еще совсем начинал,
> а потому и незнал. Спсб.

И в чем прикол? Ты же сам ее заюзал в [6].

Дык я ее юзал прям в браузере, а не в реальном проекте

такого небывает Найти похожие ветки