| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

такого небывает [D7, WinXP]

Страницы:   < 1 2 >

barakuda ©   (2007-07-03 12:32:00) 

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

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

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;

Заранее благодарен

---

Gydvin   (2007-07-03 20:34:00) [1]

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

---

homm_ro   (2007-07-03 15:49:00) [2]

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

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

---

Gydvin   (2007-07-03 14:33:00) [3]

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


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

---

Dimaxx   (2007-07-03 14:31:00) [4]

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

---

Dimaxx   (2007-07-03 14:29:00) [5]

> 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);

---

Gydvin   (2007-07-03 13:46:00) [6]

> Johnmen ©   (03.07.07 13:44) [17]


Вы съели мой моск ;0)

---

Johnmen   (2007-07-03 13:44:00) [7]

> Gydvin ©   (03.07.07 13:42) [16]
> Из-за отсутсвия у вас диска "D:\"

А у автора он есть наверняка.
:)))

---

Gydvin   (2007-07-03 13:42:00) [8]

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

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

---

Gydvin   (2007-07-03 13:40:00) [9]

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

Так лучше?

---

Johnmen   (2007-07-03 13:38:00) [10]

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

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

---

Anatoly Podgoretsky   (2007-07-03 13:37:00) [11]

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

---

Gydvin   (2007-07-03 13:36:00) [12]

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

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

---

Gydvin   (2007-07-03 13:34:00) [13]

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

---

Johnmen   (2007-07-03 13:30:00) [14]

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

Нет.

---

Anatoly Podgoretsky   (2007-07-03 13:29:00) [15]

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

---

Gydvin   (2007-07-03 13:28:00) [16]

а что не так?

---

Anatoly Podgoretsky   (2007-07-03 13:27:00) [17]

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

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

---

Gydvin   (2007-07-03 13:15:00) [18]

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:09:00) [19]

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

Ищите Шура

---

homm_ro   (2007-07-03 12:41:00) [20]

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

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

---

Страницы:   < 1 2 >

Наверх