//请你参考
http://kingron.myetang.com/zsfunc0s.htm//如果有闲情,请看看这个
http://kingron.myetang.com/zsfunc15.htm
http://kingron.myetang.com/zsfunc0s.htm//如果有闲情,请看看这个
http://kingron.myetang.com/zsfunc15.htm
解决方案 »
- delphi 给flash传数据问题,没指定错误。
- 怎样实现像QQ消息窗口一样,每个都显示在任务栏上!
- 高人帮忙,寻找一个类似于StringGrid的控件,能够对每个cell进行操作,包括cell大小、内容等等
- ■■难题!Socket.ReceiveText 小问题!如何解决?■■
- 我用这个函数将导入excel中出现这个问题,请帮忙看看
- 系统提示如关键词(UNIQUE key)重复,在前端全部是英文显示,我想用中文显示,怎么做?
- 多层数据库应用程序应用什么方法制作?
- 现在在DBEdit里能显示日期,但在我的DBGrid里不能同步显示,请问这是什么原因?TKS!!!
- 100分!求Delphi 4 编程技术内幕 电子版(电子工业出版社)!
- Delphi启动的问题.
- 怎样学习XML
- 各位大虾救命!!!!!
var
aa,bb:tstringlist;
i:integer;
begin
aa:=tstringlist.Create;
bb:=tstringlist.Create;
aa.LoadFromFile('c:\windows\desktop\aa.txt');
for i:=0 to aa.Count-1 do
begin
bb:=SplitString(aa.Strings[i],' ');
stringgrid1.Rows[i]:=bb;
end;
aa.Free;
bb.Free;
end;其中splitstring为:
function SplitString(const source,ch:string):tstringlist;
var
temp:string;
i:integer;
begin
result:=tstringlist.Create;
temp:=source;
i:=pos(ch,source);
while i<>0 do
begin
result.Add(copy(temp,0,i-1));
delete(temp,1,i);
i:=pos(ch,temp);
end;
result.Add(temp);
end;
你所说的代码只能实现把C:\windows\desktop\aa.txt 读入stringGrid中 ﹔如果要把StringGrid的内容保存到c:\windows\desktop\aa.txt 该怎幺做呢?请各位大侠帮忙,一样写出代码,谢谢!