procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.DeleteSelected ;
end;
begin
listbox1.DeleteSelected ;
end;
解决方案 »
- dbgrid手动添加列的单元格数据填充的问题
- 转让delphi书籍(最好在南宁交易)
- 如何在自已开发的软件中编写代码以便通过英特网上的短信平台给特定的手机发短信?
- 组件随窗体的变化而随之变化,并且位置不变??
- 谁能告诉我怎么在delphi 7 中添加d7没有了而原来在delphi 5中有的控件!急急急!!
- 调用 BinStream.ReadComponent(nil); 报错 A component named Button1 already exists.
- 寻找:局域网及时通讯程序的原代码
- delphi請教前輩
- 怎样取得DBGrid上某个节点的值呢?比如,第三行,第4列的。我不想移动游标,能不能直接取DBGrid上的值?
- 有谁在Delphi中调用过VB中的控件呢?
- 在Insert时,你的中间层的数据模块中的ADOQuery应该怎么操作。我怎么在客户程序中不能成功的增加一条记录呢?提示:Missing SQL 属性。什
- 怎么样才能把下载的控件添加到Delphi里面使用呢???谁能告诉我?十分感谢~!!!
可以使用 create('filename') writestring,readstring
可以使用 create('filename') writestring,readstring
能把这两种方法说得更详细些吗?
先建立一个表,如listbox_data,表中只要有一个字段如data既可,
procedure TForm1.FormCreate(Sender: TObject);
begin
with query1 do
begin
close;
sql.clear;
sql.add('select * from listbox_data');
open;
end;
listbox1.Items.Clear;
while not query1.Eof do
begin
listbox1.Items.Add(query1.fieldbyname('data').asstring);
query1.Next;
end;
end;
listbox1.items.savetofile('list');加载程序时写入:
listbox1.items.loadfromfile('list');
begin
if listbox1.itemindex<>-1 then
Listbox1.items.delete(listbox1.itemindex);
end;你的问题问的太懒了吧。老兄。
listbox1.items.savetofile(filename.txt);
listbox1.items.loadfromfile(filename.txt);
with adoquery1 do
begin
close;
sql.clear;
sql.add('insert tablename values ('+#39+listbox1.items.text+#39+')');
prepared;
execsql;//保存!
end;with adoquery1 do
begin
close;
sql.clear;
sql.add('select fieldname tablename values ('+#39+listbox1.items.text+#39+')');
prepared;
open;
Listbox1.items.text:=fieldbyname(fieldname).asstring;//读取
end;别说你不会sql语句啊。老兄。
sql.add('select fieldname tablename values ('+#39+listbox1.items.text+#39+')');应为:
sql.add('select fieldname from tablename ');
1、如果是原有记录的一部分,那么如何同原有记录保持同步。
2、如果是新增记录,那还要考虑是否所需的信息已完备。这些问题是最重要的,如果规划好了这些问题,后面的程序就好写了,
而且方法太多了!!!
随手抓一把都是、有使用数据集组件的、有直接使用连接对象的、有使用DataSet的、有使用Query的、有喜欢手写SQL的、有喜欢用Parameters。你爱怎么写就怎么写!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1基于流的是writecompent,对你太麻烦,没必要了,
2文本ListBox.Items.Add(string);
具体如此 Str:TStrings;
Str.LoadFromFile(filename.txt);
for i:=0 to Str.Count-1 do
ListBox.Items.Add(trim(Str[i]));
如此罢了,保存savetofile;
3数据库 就更简单,明白了这个原理就可以了,