one_money的专栏

<br />1：获取当前运行目录路径<br />2：写入数据到Tstringlist  (连续写入5行记录)<br />3：数据保存到txt文件<br />定义全局变量：<br />    txtString:TStringLsit;<br />点击事件：<br />var<br />   ApplicationPath:string;<br />   i:integer;<br />begin<br />  ApplicationPath:=ExtractFilePath(Application.exen

<br />var<br />  i,j,sum:integer;<br />  txtstr,newstr:string;<br />begin<br />  if txtstring=nil then<br />     txtstring:=TStringList.Create;<br />  txtstring.LoadFromFile(ApplicationPath+'/abc.txt');<br />  for i:=0 to txtstring.Count-1 do

<br />在delphi窗口单元中定义全局变量:<br />flashstr:array[1..5] of string={'f','l','a','s','h'};<br />使用文本的KeyPress事件操作如下：<br />procedure Tfrmmain.Edit1KeyPress(Sender: TObject; var Key: Char);<br />var<br />  i,j:integer;<br />begin<br /> if not (Key in ['F','L','A',

var  i,j,k:integer;begin  for i:=1 to strtoint(edit3.Text) do begin     k:=0;     for j:=1 to i do begin         if (i mod j=0)and(ij)and(j1) then            k:=k+1;     end;     if k=0 then memo1.Text:=memo1.Text+'  '+inttostr(i);  end

<br />var<br />  i,randvalue,maxrandvalue,sum,minrandvalue:integer;<br />begin<br />  sum:=0;<br />  i:=0;<br />  maxrandvalue:=0;<br />  while i<10 do begin<br />     randvalue:=random(2000);<br />     if (randvalue>=1000)and(randvalue<=2000)then begin<br

<br />GetLastError()返回值列表:<br />〖0〗-操作成功完成。<br />〖1〗-功能错误。<br />〖2〗-系统找不到指定的文件。<br />〖3〗-系统找不到指定的路径。<br />〖4〗-系统无法打开文件。<br />〖5〗-拒绝访问。<br />〖6〗-句柄无效。<br />〖7〗-存储控制块被损坏。<br />〖8〗-存储空间不足，无法处理此命令。<br />〖9〗-存储控制块地址无效。<br />〖10〗-环境错误。<br />〖11〗-试图加载格式错误的程序。<br