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

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

Не могу понять почему не работает . Хелп плиз!!!

skyslider ©   (2002-08-18 15:29:00) 

Гляньте что не так плиз....
procedure TForm1.Button1Click(Sender: TObject);
var
F:textfile;
begin
assignfile (f,"web.ini");
rewrite (f);
writeln (f,opendialog1.FileName);
closefile(f);
end;

Причем просто текст в файл пишется,
не пишеться opendialog1.FileName , просто ничего не происходит
файл не изменяется, ставил брейкпоинт - значение opendialog1.FileName = C:\windows\system32\calc.exe к примеру, а в файл ничего, ничего :((((

---

skyslider   (2002-08-18 18:17:00) [1]

УРА !!! Esu © !!!
Я понял.... а потом столько файлов нашел :))) на диске у себя.
смотрю - запись происходит.. а в файле пусто, подумал что у меня в голове глюки :))))

...
Respect

---

Esu   (2002-08-18 18:11:00) [2]

> If OpenDialog1.Execute then
> begin
> AssignFile(F,"Filename");
> Rewrite(F);
> WriteLn(F,OpenDialog1.FileName);
> CloseFile(F);
> end;

Блин, чуть сам не запутался.
ты ведь создаешь файл в папке которая у тебя в данный момент явлается текущей с именем "Filename". Вот туда и пишется то что ты выбрал в OpenDialog.

procedure TForm1.Button1Click(Sender: TObject);
var
f : TextFile;
begin
If OpenDialog1.Execute then
begin
AssignFile(F,"c:\Filename");
Rewrite(F);
WriteLn(F,OpenDialog1.FileName);
CloseFile(F);
end;
end;

Создаст в корне диска C файл с именем Filename и запишут туда то что выбрал пользоватесь в диалоге.

---

skyslider   (2002-08-18 17:47:00) [3]

Да суть не в этом, суть вобще не в ini это так, для примера приведено. Проблемма в том что TFileName неважно какой не пишется в файл... мало того после попытки записи (ошибок не выдает) вообще туда больше ничего не пишется.

Скажем вот это не работает:

If OpenDialog1.Execute then
begin
AssignFile(F,"Filename");
Rewrite(F);
WriteLn(F,OpenDialog1.FileName);
CloseFile(F);
end;

Хелп!

---

Anatoly Podgoretsky   (2002-08-18 16:43:00) [4]

Слушай а ты там ищешь свой ини файл

---

skyslider   (2002-08-18 16:05:00) [5]

Через промежуточную не работает, я уже час с этим .... чего только не перепробовал, затык какой-то Tstring пишется
TfileName не пишется, причем наверное промежуточной переменной тоже тип передается :( хотя описываю
var
S:string;

Вобщем мистика (или ламеристика) , неясно...

---

skyslider   (2002-08-18 16:00:00) [6]

Не работает :о(

---

drpass   (2002-08-18 16:00:00) [7]

OpenDialog1.FileName - это свойство, в общем-то нематериальная вещь. Writeln просто не догадывается, что ты хочешь сохранить текст переменной, хранящей значение свойства. Пиши через промежуточную переменную, скажем, s:=OpenDialog1.Filename; writeln(f, s);

---

/\/\AXIM   (2002-08-18 15:52:00) [8]

Бывает...
...
If OpenDialog1.Execute then
begin
AssignFile(F,"Web.ini");
Rewrite(F);
WriteLn(F,OpenDialog1.FileName);
CloseFile(F);
end;
...

---

Наверх