Скачать: CL | DM;

Создание   Найти похожие ветки 

← →
chak ©   (2002-07-15 11:42) [0]

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

---

← →
Johnmen ©   (2002-07-15 11:53) [1]

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

---

← →
chak ©   (2002-07-15 12:17) [2]

Пробовал двумя вариантами:
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 12:36) [3]

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

---

← →
chak ©   (2002-07-15 12:37) [4]

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

---

← →
Poirot ©   (2002-07-15 12:38) [5]

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

---

← →
PVOzerski ©   (2002-07-15 12:39) [6]

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

---

← →
chak ©   (2002-07-15 12:43) [7]

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

---

← →
chak ©   (2002-07-15 12:44) [8]

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

---

← →
chak ©   (2002-07-15 12:48) [9]

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

---

← →
chak ©   (2002-07-15 13:01) [10]

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

---

← →
LENIN INC   (2002-07-15 13:01) [11]

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

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;

---

← →
Poirot ©   (2002-07-15 15:50) [12]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c