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

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

Создание

chak ©   (2002-07-15 11:42:00) 

Помогите пожалуста куском кода, ато замучился уже, файл создается но ничего туда не пишется.
Нужно всего одну строчку вставить в него!!!

---

Poirot   (2002-07-15 15:50:00) [1]

Очень рад!!! ]%)))

---

chak   (2002-07-15 13:01:00) [2]

Блин, все работает, ничего нового не сделал!!!
Наверное "Poirot" помог! :)))
Спасибо всем!

---

LENIN INC   (2002-07-15 13:01:00) [3]

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
Var
f:TextFile; //указатель на текстовый файл
begin
AssignFile(f,"c:\zvit.bat"); //привязка названия к переменной
{$I-}
Append(f); //открыть файл для добавления
if IOResult<>0 then //если ошибка открытия (напр. файла нет)
begin
{$I-}
Rewrite(f); //создать новый файл
{$I+}
if IOResult<>0 then //ошибка создания файла
begin
ShowMessage("Ошибка создания файла C:\zvit.bat");
Exit;
end;
end;
// запись в файл строки
WriteLn(f,"copy c:\test.txt d:\text.txt");
CloseFile(f); // закрыть файл
end;

---

chak   (2002-07-15 12:48:00) [4]

Странно, отдельной прогой все заработало, странно, буду потеть дальше:)))

---

chak   (2002-07-15 12:44:00) [5]

Отдельно попробую, недодумался сам!

---

chak   (2002-07-15 12:43:00) [6]

Нет не в корневом, путь точно совпадает и файл то создается!!!

---

PVOzerski   (2002-07-15 12:39:00) [7]

А прога не в корневом каталоге, часом, лежит? Тогда при Вашем подходе будет двойной слэш получаться. Но, с другой стороны, тогда бы файл совсем не создавался, а он у вас только не заполняется. Сдается мне, что причина проблемы - вне пределов приводимого кода. А не пробовали этот кусочек проверить как отдельную маленькую программку? На вид-то в ней всё в порядке. Да и практически работает (сейчас проверил 2-й вариант).

---

Poirot   (2002-07-15 12:38:00) [8]

Мудак если на работает... по крайней мере 2 вариант работает как часы.... Купи карту лапать... и головой об стол побейся, чтоб мозги умялись и извилины появились...
И большой совет - ламой себя на таких пустяках не выставляй....

---

chak   (2002-07-15 12:37:00) [9]

Но почему файл оздается и ничего туда не записивается, как проверить что я туда пишу, и вообще куда пишется?

---

Johnmen   (2002-07-15 12:36:00) [10]

2-й вариант железно рабочий !!!

---

chak   (2002-07-15 12:17:00) [11]

Пробовал двумя вариантами:
1-й:

var
buf:PChar;
vf:File;
begin
AssignFile(Vf, ExtractFileDir(ParamStr(0))+"\zvit.bat");
Rewrite(Vf);
Buf:=PChar("copy c:\test.txt d:\text.txt");//для примера
BlockWrite(Vf,Buf,SizeOf(Buf));
CloseFile(Vf);
end;


2-й:

var
buf:PChar;
vf:TextFile;
begin
AssignFile(Vf, ExtractFileDir(ParamStr(0))+"\zvit.bat");
Rewrite(Vf);
WriteLn(Vf,"copy c:\test.txt d:\text.txt");
CloseFile(Vf);
end;


Ни так, ни так не работает, замучился уже!!!

---

Johnmen   (2002-07-15 11:53:00) [12]

Приведи код, как создаешь...

---

Наверх