DELPHI编程的问题,随机读取TXT内容。

//随机读txt一行，PostInfo.Add('content='+ts.Strings[random(ts.Count)]);//顺序读txt一行 PostInfo.Add('username='+ts.Strings[i]);end;

var ini:TIniFile;begin { [节点]a=123 b=123 c=123 这样的形式 } ini:=TIniFile.Create('ini文件名');ini.ReadSection('节点',listbox.items); //listbox里面就显示了a,b,c节点下面的选项.// 然后你在listbox的click事件里面写上 if listbox.itemindex>=0 then begin edit1.text:=Ini...

tmp,httpstr,hzstr,tm: string;t1,t2: byte;ptr: ^byte;ii,jj,GBcode: integer;begin tmp:=edit1.Text; //字串 ii:=1;hzstr:='';while ii<=length(tmp) do begin ptr:=@tmp[ii];t1:=ptr^;ptr:=@tmp[ii+1];t2:=ptr^;GBcode:=t2*$100+t1;tm:=inttostr(GBcode);GBcode:...

1、放置ADOconnection控件；2、放置ADOtable控件 或 查询控件；3、放置 DataSource 控件；4、放置 DBGrid 控件；5、在ADOconnection控件中设置好连接串，选择数据表、打开数据表；6、控件 2～4 分别指向前一个控件

提示一种方法，添加两个全局变量LoginTime, LogoutTime;在数据库连接Connection的OnConnect时间中添加 LoginTime := Now;在OnDisconnect中或者主窗口的OnCloseQuery中添加 LogoutTime := Now;ShowMessage('您于' + FormatDateTime('YYYY年MM月DD日 hh:mm:ss', LoginTime) + '登陆，' + Format...

Delphi 5学习教程 txt全集小说附件已上传到百度网盘，点击免费下载：内容预览：在当今数字化的世界中，计算机已深入到人们生活的各个领域。应用软件的飞速发展已成为必然。在新近崛起的众多的第三、四代编程语言中，Microsoft公司的Visual系列可以说曾经雄霸一方。现在这种局面已被打破了，Inprise公司（原...

procedure TForm1.Button1Click(Sender: TObject);var FExcelApp: Variant;FSheet: Variant;FRange: Variant;begin FExcelApp := CreateOleObject( 'Excel.Application' );FExcelApp.Visible := False;FExcelApp.Caption := 'XXXXXXX';FExcelApp.WorkBooks.Add;FExcelApp.WorkSheets[1].Activate;F...

第二步：读写流。读写二进制文件用System.IO.BinaryReader和System.IO.BinaryWriter类；你同样要分析数据格式。特别day文件里的日期，我是老早搞过，现在都忘了。里面的日期好像还要换算。day文件里存储的是一段时期的每天价格。这个好像很好分析的。原来用delphi编过，刚才找没找到，可能被老婆给删除了...

// DELPHI也可以编字符模式下的程序,不需要可// // 视化的控件。 // /// program Project1;{$APPTYPE CONSOLE} uses SysUtils;var a:array[1..3,1..4]of integer;b:array[1..4,1..3]of integer;c:array[1..3,1..3]of integer;i,j,k:integer;begin randomize;//矩阵初始化...

我用的是Delphi XE5，可能posex和Length函数已经改过了，中文字符都是按一个字符来算的，这样用midstr的时候也没有问题，你可以试试把zihao定义为一个widestring来试试。