在下想通过一个按钮把一个txt文件打开然后放到stringgrid中显示,声明的一个函数有问题,大家帮我看看什么问题??procedure TForm1.BitBtn8Click(Sender: TObject);
var
aa,bb:tstringlist;
i:integer;
begin
aa:=tstringlist.Create;
bb:=tstringlist.Create;
aa.LoadFromFile('c:.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;错误如下:[Error] Unit1.pas(42): Unsatisfied forward or external declaration: 'TForm1.SplitString'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
var
aa,bb:tstringlist;
i:integer;
begin
aa:=tstringlist.Create;
bb:=tstringlist.Create;
aa.LoadFromFile('c:.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;错误如下:[Error] Unit1.pas(42): Unsatisfied forward or external declaration: 'TForm1.SplitString'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
解决方案 »
- select * from subset where xcol1>=xcormin 报错
- 有人可以成功在Delphi上装上BusinessSkinForm吗>>???
- 如何求两个datetime组件的time之差的?
- STRINGGRID中加入COMBOBOX
- 关于ftp的下载的问题
- 为了方便大家即使讨论,建了一个VB、delphi开发技术讨论固定群2196990,期待精英的加入
- 用过F1book的大虾看过来
- 我下了个控件安装后每次使用它的程序老是结束不了,为什么?
- TreeView控件中如何知道TreeNode被点击,是否用到消息机制
- 为什么我的图片周围一圈有黑圈?
- webbrower中自动弹出确认窗口如何自动关闭?【急】
- 如何保证dbgrid总显示最后一行
或者在implementation 关键字上面加上splitstring函数声明:function SplitString(const source,ch:string):tstringlist; 你的SplitString函数不属于TForm1类;