盒子论坛 v2.1

日前，小弟在这儿发了这个帖子，有位大哥给回了，并有源码。可小弟才疏学浅，不懂procedure Tfrm_main.SetCardList(id:Integer;s:string);中的SetCardList是哪个控件，若那位大侠还来的话，还请告知须些什么控件。谢谢！
----------------------------------------------
我从迷茫中走来，希望能清晰地离去

作者：

mantousoft (孜孜不倦的馒头)	★☆☆☆☆	-
	盒子活跃会员

2003/4/26 22:32:56

1楼：

SetCardList()是我自己写的一个过程名,后面的id和s是这个过程函数的参数而已,不需要其他控件,就用delphi自己的组件就行了,不懂的地方贴出来我可以给你讲.
----------------------------------------------
看到帖子就想顶，原谅我是这么直了~

作者：

wh1103 (阿华田)	★☆☆☆☆	-
	普通会员

2003/4/28 10:58:05

2楼：

贴出来，我有关文件导入导出的地方也不懂，正好给我参考一下。
----------------------------------------------
我是还没入门的菜鸟！

作者：

avman	★☆☆☆☆	-
	普通会员

2003/4/28 22:23:21

3楼：

那么导出呢?与导入是否一样?
----------------------------------------------
我从迷茫中走来，希望能清晰地离去

作者：

bbhorse (xinhua2008)	★☆☆☆☆	-
	盒子活跃会员

2003/4/29 11:25:45

4楼：

可以说是一样的，只是操作的对象有点不同。
----------------------------------------------
愿和所有喜欢DELPHI的人做朋友！

作者：

lidx_99131	★☆☆☆☆	-
	普通会员

2003/4/29 12:06:39

5楼：

各位大哥：
小弟现在正做毕业设计，用到了文件的导入/导出，可我对此一点眉目都没有，那位仁兄有此方面的资料能为小弟提供一些。油箱wwwflc@163.com
----------------------------------------------
-

作者：

chenym13579 (chenym13579)	★☆☆☆☆	-
	普通会员

2003/4/29 18:54:55

6楼：

请1楼的兄弟把原代码也发给我chenym13579@163.com,我也碰到这个问题，谢谢！
----------------------------------------------
-

作者：

avman	★☆☆☆☆	-
	普通会员

2003/5/12 20:31:09

7楼：

在这个论坛里学到了很多东西，甚是感激，从做毕业设计开始认识这个论坛，也曾冒犯过别人，现在这儿说声：对不起！
下面这个导入和导出的源代码是从论坛里拿来的，只不过稍做修改，现在贴上，让需要的朋友们可以借鉴。

这两个导入导出的源码已经在 delphi6.0+windows98 的环境下运行通过

导入到数据库
Function RegulateStr(aString:String;Sepchar:String):String;
var
  i,Num:Integer;
  Flag:Boolean;
  MyStr,TempStr:String;
begin
  Flag:=False;
  Num:=Length(aString);
  for i:=1 to Num do
  begin
     TempStr:=Copy(aString,i,1);
     if TempStr<>SepChar then
     begin
        MyStr:=MyStr+TempStr;
        Flag:=True;
     end
     else
        if Flag=True then
        begin
           MyStr:=MyStr+TempStr;
           Flag:=False;
        end;
  end;
  if Mystr[Length(MyStr)]<>SepChar then
  begin
     MyStr:=MyStr+SepChar;
     RegulateStr:=MyStr;
  end;
end;

procedure Tdaoru.Button1Click(Sender:TObject);
const space=' ';
var
  i,j,Num:integer;
  myline,szValue:string;
begin
  if opendialog1.Execute=true then
  begin
    begin
      richedit1.clear;
      richedit1.Lines.LoadFromFile(opendialog1.FileName);
    end;
    begin
      table1.Open;
      for i:=0 to richedit1.lines.count-1 do
      begin
        table1.Append;
        Num:=0;
        myline:=regulatestr(richedit1.lines[i],space);
        j:=pos(space,myline);
        while j>0 do
        begin
          szValue:=copy(myline,1,j-1);
          table1.Fields[Num].asstring:=szValue;
        inc(Num);
        delete(myline,1,j);
        j:=pos(space,myline);
        end;
      end;
    end;
    table1.Post;
    showmessage('导入成功！')
  end
  else
    showmessage('您还没有选择导入的文档！');
end;

导出到文本
procedure TForm2.Button5Click(Sender: TObject);
var
  st:TStrings;
  myline:string;
  i:Integer;
begin
  if savedialog1.Execute=true then
  begin
    st:=TStringList.Create;
    datamodule9.Query1.First;
    while not datamodule9.Query1.Eof do
    begin
      myline:=datamodule9.Query1.Fields[0].AsString;
      for i:=1 to datamodule9.Query1.FieldCount-1 do
        myline:=myline+' '+datamodule9.Query1.Fields[i].AsString;
      st.add(myline);
      datamodule9.Query1.Next;
    end;
  st.SaveToFile(savedialog1.FileName);
  st.Free;
  showmessage('导出成功！');
  end
  else
    showmessage('请选择要导出的文档名！');
end;

end.

----------------------------------------------
我从迷茫中走来，希望能清晰地离去

信息

登陆以后才能回复