one_money
码龄19年
求更新 关注
提问 私信
  • 博客：49,164
    社区：209
    49,373
    总访问量
  • 13
    原创
  • 2
    粉丝
  • 2
    关注
IP属地以运营商信息为准，境内显示到省（区、市），境外显示到国家（地区）
IP 属地：广东省
加入CSDN时间： 2007-08-24

个人简介：色调：85。饱和度：120。亮度：208

博客简介：

one_money的专栏

查看详细资料
个人成就
  • 获得1次点赞
  • 内容获得0次评论
  • 获得6次收藏
  • 博客总排名1,484,208名
创作历程
  • 1篇
    2011年
  • 12篇
    2010年
TA的专栏
  • Java
  • ASP.NET(C#)篇
    3篇
  • Delphi
    6篇
  • SQL Server
    3篇
  • 笔记

TA关注的专栏 0

TA关注的收藏夹 0

TA关注的社区 0

TA参与的活动 0

创作活动更多

「谁说嵌入式只是调包和焊板子？」—— 2026嵌入式全栈技术征锋令

谁说嵌入式只会“Ctrl+C 调包”和“拿电烙铁焊板子”？2026嵌入式全栈技术征锋令正式启幕！ 本次活动专为硬核硬件/软件开发者打造，无论你是刚玩转裸机外设的萌新，还是精通RTOS调度、死磕底层驱动的行业老手，亦或是执掌系统架构的大神，这里都是你证明实力的舞台！ 拒绝表面功夫，每一行代码，都有撬动硬件的力量！晒出你的硬核工程实战，为嵌入式开发者的全栈硬实力正名！

210人参与 去参加
  • 最近
  • 文章
  • 专栏
  • 代码仓
  • 资源
  • 收藏
  • 关注/订阅/互动
更多

  • 最近

  • 文章

  • 专栏

  • 代码仓

  • 资源

  • 收藏

  • 关注/订阅/互动

  • 社区

  • 帖子

  • 问答

  • 课程

  • 视频

搜索 取消

delphi 随机函数的利用random 取10个介于1000与2000之间的随机数，并计算它们的最大，最小值及总和


var
  i,randvalue,maxrandvalue,sum,minrandvalue:integer;
begin
  sum:=0;
  i:=0;
  maxrandvalue:=0;
  while i<10 do begin
     randvalue:=random(2000);
     if (randvalue>=1000)and(randvalue<=2000)then begin
原创
博文更新于 2010.06.25 ·
3925 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

截屏程序和DLL

发布资源 2012.12.08 ·
rar

GetLastError()返回值列表


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

求出输入任意整数的所有质数，两个数的最大公约数

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
原创
博文更新于 2010.06.29 ·
1021 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

SQL 单双行交替前列显示


现在表abc
字段
id    name
1     a
2     b
3     c
4     d
 
写SQL语句转换成
id   name  id   name
1     a        2     b
3     c        4     d
 
语句：
本人经过多次也没有找到更好的办法，现写下下面这个方法进行实现，如有哪位网友有好方法
原创
博文更新于 2010.06.28 ·
923 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

取出文件流字符串进行求和和平均值


var
  i,j,sum:integer;
  txtstr,newstr:string;
begin
  if txtstring=nil then
     txtstring:=TStringList.Create;
  txtstring.LoadFromFile(ApplicationPath+'/abc.txt');
  for i:=0 to txtstring.Count-1 do
原创
博文更新于 2010.06.25 ·
734 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

编写SQL语句查询出每个各科班分数最高的同学的名字，班级名称，课程名称，分数


有以下两张表，
Class表
classid classname
1 高三（一）班
2 高三（二）班
3 高三（三）班
Student表
studentid   studentName classid
1    张三            2
2     李四           1
3    王五             1
4    赵六             3
5 
原创
博文更新于 2010.06.24 ·
22775 阅读 ·
0 点赞 ·
0 评论 ·
2 收藏

对一主表进行更新从表的值


现在course表,abc表
id   name
1    语文
2    数学
3    英语
4    物理
abc表
1  a
2  b
3  c
运行结果：
1    a 
2    b
3    c
4    物理
写一条SQL语句
update course set name=(select name  from abc w
原创
博文更新于 2010.06.24 ·
633 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

对输入的flash字符连接到flash后面，所得到的新字符中只能包含flash字符


在delphi窗口单元中定义全局变量:
flashstr:array[1..5] of string={'f','l','a','s','h'};
使用文本的KeyPress事件操作如下：
procedure Tfrmmain.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  i,j:integer;
begin
 if not (Key in ['F','L','A',
原创
博文更新于 2010.06.24 ·
488 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

利用Tstringlist对文件流进行处理(介绍extractfilepath(),savetofile(),loadfromfile()使用)


1：获取当前运行目录路径
2：写入数据到Tstringlist  (连续写入5行记录)
3：数据保存到txt文件
定义全局变量：
    txtString:TStringLsit;
点击事件：
var
   ApplicationPath:string;
   i:integer;
begin
  ApplicationPath:=ExtractFilePath(Application.exen
原创
博文更新于 2010.06.24 ·
1582 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

方便的数据操作方法思路


本人之前一直从事C/S模式开发，其中对数据提交时写太多的SQL操作语句感觉到很麻烦。后来通过利用面向对象的一种技术，直接通过控件自动生成SQL语句，就对数据进行增、删、修操作进行保存。之后发现对主键ID要求，改换另一种方式，就是利用本身控件的提交功能进行实现。现在在C#的B/S模式下面，本人经过多次测试终于发现也能用这种方法进行提交数据。而且这样就不必担心存后什么SQL注入问题。利用DataSet这一控件通过对它其中DataTable进行对数据增、册、修修改！
原创
博文更新于 2010.06.14 ·
402 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

标记笔记


HTML中标记在不同状态下显示样式：
:link       设置a对象在未被访问前的样式表属性。
:active   设置对象在被用户激活（在鼠标点击与释放之间发生的事件）时的样式表属性。
:hover   设置对象在其鼠标悬停时的样式表属性。
:visited  设置a对象在其链接地址已被访问过时的样式表属性。
原创
博文更新于 2010.06.03 ·
410 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

网页的框架概念


提到网页框架，学习制作网页的设计都会想到用<iframe>,<frameset> 与<frame>进行设计；把多个窗口的网页在同一窗口上显示，供客户浏览。现对<frameset>框架进行简单说明下：
<FRAMESET> 称框架标记，用以宣告HTML文件为框架模式，并设定视窗如何分割。
<FRAME> 则只是设定某一个框窗内的参数属性
例子：
<html xmlns="http://www.w3.org/1999/xhtml" >
<head r
原创
博文更新于 2010.06.02 ·
1187 阅读 ·
0 点赞 ·
0 评论 ·
2 收藏

ASP.net中DataSet使用笔记

AS.net中的DataSet数据集控制，可看作是一个离线的数据库，它存放着从后台数据库取回来的各个数据表的数据。如果能让它实现整体提交，那对于一个”懒人“来说，可以省掉很多SQL的操纵语句（增加，删除，更新等）；根据SqlDataAdapter具备的GetInsertCommand()、GetUpdateCommand()、GetDeleteCommand()的功能。现写一下DataSet提交思
原创
博文更新于 2010.05.28 ·
2577 阅读 ·
0 点赞 ·
0 评论 ·
2 收藏