主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

创建 找到类似的分支


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

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



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

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



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

Пробовал двумя вариантами:
第二名:

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;


第二名:

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]

而且该程序不在根目录中一个小时了吗? 然后,按照您的方法,将会出现双斜杠。 但是,另一方面,根本不会创建该文件,而您只是不会填写它。 在我看来,问题的原因超出了给定代码的范围。 您是否尝试过将这部分作为一个单独的小程序进行检查? 她的外表看起来一切都很好。 是的,它实际上可行(现在我检查了第二个选项)。



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 整个分支

论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上





内存:0.58 MB
时间:0.032 c
1-95329
浏览器
2002-07-18 07:04
2002.07.29
鼠标右键菜单


14-95504
NEOX
2002-07-01 23:31
2002.07.29
在线拼写检查


8-95453
Dorex
2002-03-22 11:16
2002.07.29
如何将BMP打破成方块?


1-95362
VALEX
2002-07-02 15:01
2002.07.29
关于TChart的问题


1-95309
alexalex
2002-07-16 18:00
2002.07.29
软件控制TChart中签名(Mark)的位置





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский