Создание

← →
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]

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

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

Блин, все работает, ничего нового не сделал!!!
Наверное "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;

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

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