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

向下

文本文件 找到类似的分支


hooky-mars   (2002-04-14 16:50) [0]

Saluer!
告诉我,人们如何在文本文件中写东西? 因此,您以后可以在黑色笔记中阅读它! 很有必要!
预先感谢。



hooky-mars   (2002-04-14 16:53) [1]

我写这个:
VAR
F:TStrings文件;
我:整数;
StringList:字符串;
开始
AssignFile(F,“ Unit12.html”);
重写(F);
尝试
StringList:= TStringList.Create;
StringList.Text:=“ <html>” + FV +“ </ html>”;
寻求(F,1);
写(F,StringList);
最后
CloseFile(F);
StringList.free;
结束;
但是事实证明њЉE



MBo   (2002-04-14 16:53) [2]

很多方法

分配文件
改写
writeln
关闭文件

StringList.Savetofile
等等



Anatoly Podgoretsky   (2002-04-14 16:54) [3]

Memo.Lines.SaveToFile



hooky-mars   (2002-04-14 16:55) [4]


>阿纳托利Podgoretsky

就我而言,这种方法几乎是不可能的!




MBo   (2002-04-14 16:55) [5]

您在FV中有什么? :)



hooky-mars   (2002-04-14 16:56) [6]


> MBo

FV:字符串;



MBo   (2002-04-14 16:57) [7]

这行是什么编码?



hooky-mars   (2002-04-14 16:57) [8]


> MBo

我正在使用重写
writeln




hooky-mars   (2002-04-14 16:59) [9]


> MBo

什么?



MBo   (2002-04-14 17:00) [10]

您知道Win Cp1251,Koi-8吗?



hooky-mars   (2002-04-14 17:01) [11]


> MBo

就我而言,这在技术上可能很困难,因为 我在PageProducer上执行此操作。



hooky-mars   (2002-04-14 17:02) [12]


> MBo





hooky-mars   (2002-04-14 17:04) [13]

只有Delphi 6设置了,并立即爬入了这种渣reg。 好吧,有一些考虑



MBo   (2002-04-14 17:04) [14]

是的,调查了您的代码。 您混合两种方法-
使用writeln或stringlist.savetofile。
来自tstrings的文件即 对象-愚蠢



Anatoly Podgoretsky   (2002-04-14 17:05) [15]

吃他们给的东西:-)
您不会轻易指出条件,因此不必重复是否适合。



hooky-mars   (2002-04-14 17:10) [16]


> MBo

由于某种原因,stringlist.savetofile根本不写入任何内容



hooky-mars   (2002-04-14 17:11) [17]


>阿纳托利Podgoretsky

unit Unit1;

接口

使用
Windows,消息,SysUtils,类,HTTPApp,WebModu,HTTPProd,ReqMulti,
WebAdapt,WebComp,WebUsers,WebSess,WebDisp;

类型
TPageProducerPage1 =类(TWebAppPageModule)
PageProducer:TPageProducer;
WebAppComponents:TWebAppComponents;
ApplicationAdapter:TApplicationAdapter;
EndUserAdapter:TEndUserAdapter;
PageDispatcher:TPageDispatcher;
AdapterDispatcher:TAdapterDispatcher;
WebDispatcher:TWebDispatcher;
LocateFileService:TLocateFileService;
SessionsService:TSessionsService;
WebUserList:TWebUserList;
Adapter1:TAdapter;
AdapterField1:TAdapterField;
AdapterAction1:TAdapterAction;
过程AdapterField1GetValue(发件人:TObject; var值:Variant);
过程WebAppPageModuleCreate(发送者:TObject);
过程AdapterAction1Execute(发件人:TObject;参数:TStrings);
私立
{私人声明}
FValue,FV:字符串;
成员:TString的数组[1..50];
公开
{公开声明}
结束;

函数PageProducerPage1:TPageProducerPage1;

履行

{$ R * .dfm} {* .html}

使用WebReq,WebCntxt,WebFact,Variant;

函数PageProducerPage1:TPageProducerPage1;
开始
结果:= TPageProducerPage1(WebContext.FindModuleClass(TPageProducerPage1));
结束;

过程TPageProducerPage1.AdapterField1GetValue(发件人:TObject;
var值:变体);
VAR
F:TStrings文件;
我:整数;
StringList:字符串;
开始
//值:= FValue;
AssignFile(F,“ Unit12.html”);
重写(F);
尝试
StringList:= TStringList.Create;
StringList.Text:=“ <html>” + FV +“ </ html>”;
StringList.SaveToFile(“ Unit12.html”);
//使用StringList开始
//添加(“ <html>” + FV +“ </ html>”);
//结束
//寻找(F,1);
//写(F,StringList);
//对于i:= 1到Length(FValue1)
//写入(F {,FValue1});
//除了
{与应用程序一起做 开始 NormalizeTopMosts; MessageBox(“这应该在顶部。”,“ Look”,MB_OK); RestoreTopMosts; 结束 }
//结束
最后
CloseFile(F);
StringList.free;
结束;
结束;

过程TPageProducerPage1.WebAppPageModuleCreate(发送者:TObject);
开始
FValue:=“



hooky-mars   (2002-04-14 17:11) [18]

由WebSnap制造



hooky-mars   (2002-04-14 17:14) [19]

我在您的网站上阅读过



MBo   (2002-04-14 17:14) [20]

StringList:= TStringList.Create;
StringList.Add(“ <html>” + FV +“ </ html>”);
StringList.SaveToFile(“ Unit12.html”);
如果FV中有任何内容,那就足够了。

删除closefile等 -冲突。



hooky-mars   (2002-04-14 17:17) [21]


> MBo

我写下来,但是我需要程序加倍行,而不是完全替换它们。



hooky-mars   (2002-04-14 17:19) [22]


> MBo

是的,不是在其他地方,而是在某些地方(您可以解决此问题)



MBo   (2002-04-14 17:19) [23]

首先阅读,然后
StringList.Add

替代-var f:文本文件
然后打开追加



MBo   (2002-04-14 17:21) [24]

在opr。 线
s:= stringkist [5] // 6字符串
您与s合作
字符串列表[5]:= s;



hooky-mars   (2002-04-14 17:22) [25]

我写的这么脏话,所以我还没看过
StringList:= TStringList.Create;
写(F,StringList);
StringList.Add(“ <html>” + FV +“ </ html>”);
重写(F,StringList);



MBo   (2002-04-14 17:24) [26]

我已经说过-MBo©(14.04.02 17:04)



hooky-mars   (2002-04-14 17:25) [27]


> MBo
维娅说了很多,但是究竟是什么呢?



hooky-mars   (2002-04-14 17:25) [28]


> MBo
你说了很多,但是究竟是什么?



MBo   (2002-04-14 17:26) [29]

扔掉F及其相关的所有内容



hooky-mars   (2002-04-14 17:28) [30]

StringList:= TStringList.Create;
StringList.LoadFromFile(“ Unit12.html”);
StringList.Add(“ <html>” + FV +“ </ html>”);
StringList.SaveToFile(“ Unit12.html”);
你在说这个吗



MBo   (2002-04-14 17:29) [31]

是的,仅当您需要更改特定行时,MBo©(14.04.02 17:21)



hooky-mars   (2002-04-14 17:29) [32]

2中的电流已经是原来的一倍,所以门加



hooky-mars   (2002-04-14 17:33) [33]

我做了一切,都按预期工作,只是将其卡在另一个过程中!
非常感谢你!!!!



Страницы: 1 整个分支

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

楼上





内存:0.64 MB
时间:0.036 c
3-80770
AVA
2002-04-04 14:31
2002.04.25
SQL


1-80876
大教堂
2002-04-12 22:57
2002.04.25
Tag属性在所有组件中的含义是什么?


1-80945
VJar
2002-04-11 23:35
2002.04.25
创建子文件夹


1-80961
EternalWonderer
2002-04-11 12:52
2002.04.25
IIF


14-81061
SPB
2002-03-20 11:21
2002.04.25
恕我直言?..什么是恕我直言?





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