Форум: "Начинающим";
Текущий архив: 2007.07.29;
Скачать: [xml.tar.bz2];
Вниз
такого небывает Найти похожие ветки
← →
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:\"
← →
Johnmen © (2007-07-03 13:44) [17]
> Gydvin © (03.07.07 13:42) [16]
> Из-за отсутсвия у вас диска "D:\"
А у автора он есть наверняка.
:)))
← →
Gydvin © (2007-07-03 13:46) [18]
> Johnmen © (03.07.07 13:44) [17]
Вы съели мой моск ;0)
← →
Dimaxx © (2007-07-03 14:29) [19]
> 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);
← →
Dimaxx © (2007-07-03 14:31) [20]2 barakuda: Добавь после writeln(f, find) строку closefile(f) и будет тебе щастье...
← →
Gydvin © (2007-07-03 14:33) [21]
> Dimaxx © (03.07.07 14:29) [19]
Ах вот оно в чем дело. Последний раз юзал эту функцию, когда еще совсем начинал, а потому и незнал. Спсб.
← →
homm_ro (2007-07-03 15:49) [22]> Последний раз юзал эту функцию, когда еще совсем начинал,
> а потому и незнал. Спсб.
И в чем прикол? Ты же сам ее заюзал в [6].
← →
Gydvin © (2007-07-03 20:34) [23]Дык я ее юзал прям в браузере, а не в реальном проекте
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.07.29;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.046 c
