写入文本文件后,按一定的格式保存。
edit1.text:=' '两个空格
edit2.text:=' '两个空格
设置完成后,如何保存edit1和edit2中的内容,下次再使用的时候便不用在更改
edit1和edit2的值。
edit1.text:=' '两个空格
edit2.text:=' '两个空格
设置完成后,如何保存edit1和edit2中的内容,下次再使用的时候便不用在更改
edit1和edit2的值。
解决方案 »
- 求解!如何主程序和DLL子模块共享数据(数据结构)
- fsMDIChild窗口"闪"的问题续集
- 如何复制API函数,然后调用他?
- 有珠海地区的DELPHI程序员吗,我有分代码需要修改 需要人手
- 如何将客户端某个文件夹,连同文件一起保存到应用服务器上的某个文件夹下?
- olevariant转换
- 初次接触COM,有个问题请教!
- 使用DELPHI怎样动态设置计算公式?
- 如果关于统计的函数已经写好在SQL Server的一个存储过程.....看以下程序......
- 哪位大哥开发过ACR38读卡器?
- 请问在一个unit自义函数,在另一个unit里面才能调用它???
- xml是什么语言?xml在internet中起什么作用?delphi如何使用它呢?
type
TEditRec=packed record
Str1:string[n];//n为字符串长度,自己设定就可以了
str2:string[m];//m为字符串长度,同上
end;procedure button1click(sender :tobject)
var
RecFile:file of TEditRec;
EditRec:TEditRec;
begin
EditRec.str1:=edit1.text;
EditRec.str2:=edit2.text;
assignfile(RecFile,'Test.txt');
reset(RecFile);
Seek(RecFile,FileSize(RecFile));
write(RecFile,EditRec);
CloseFile(RecFile);
end;
读出来的时候同样,稍微改一下,一上我没经过调试,你调一下,思路是正确的!
begin
close;
sql.clear;
sql.add('select * from table where a=''99999''');
open;
if not adoquery1.Eof then
begin
AssignFile(lfile,'c:\wwyysha\99999.txt');
Rewrite(lfile);
try
while not adoquery1.Eof do
begin
lvalue:=adoquery1.Fields[0].asstring;
for loop := 0 to adoquery1.FieldCount-1 do
lvalue := lvalue+ adoquery1.fields[loop].asstring+' , ';
writeln(lfile,lvalue);
adoquery1.Next;
end;
finally
end;
closefile(lfile);
end;
end;