登录
首页 » Delphi源码 » Delphi 记录文件的读写

Delphi 记录文件的读写

于 2022-02-12 发布 文件大小:11.30 kB
0 103
下载积分: 2 下载次数: 1

代码说明:

Delphi 记录文件的读写,这个程序非数据库程序,实际上也不是文件读写程序,只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据,确定后,会将数据添加到主窗口的StringGrid中,然后通过修改命令,从StringGrid中再读取出数据,进行修改保存,演示了文件内容的读取和写入的操作过程 。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论


0 个回复

  • Delphi 获取拖动到窗体中的文件的路径
    Delphi 获取拖动到窗体中的文件的路径,这实际上是一个拖放打开文件的例子,这只不是其中的一个步骤,拖放打开是把文件拖放到本窗口中,直接打开该文件,而拖放得到路径是把文件的路径显示在窗口中,和打开文件其实难易程序是一样的。拖放后获取文件路径,代码如下:   procedure TForm1.FileIsDropped(var Msg: TMessage);   var    NumFiles : longint;    i : longint;    FName : array[0..255] of char;   begin    SetForegroundWindow(Handle);    NumFiles := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0);    for i := 0 to (NumFiles - 1) do    begin    DragQueryFile(Msg.WParam,i,FName,sizeof(FName));    Memo1.Lines.Add(FName);    end;   end;
    2022-09-25 15:45:03下载
    积分:1
  • Delphi 变速齿轮# 让时间变快减慢
    Delphi 变速齿轮# 让时间变快减慢,其实这个似乎是做不到的,只是模拟一下,代码及描述如下:   procedure Speed(count:word); stdcall;   const ExceptionUsed = $03; { 中断号也可以用其它的中断号}   var    IDT : array [0..5] of byte; { 保存中断描述符表}    lpOldGate : dword; {存放旧向量}   begin    asm    push ebx    sidt IDT {读入中断描述符表}    mov ebx, dword ptr [IDT+2]{IDT表基地址}    add ebx, 8*ExceptionUsed {计算中断在中断描述符表中的位置}    cli {关中断}    mov dx, word ptr [ebx+6] {取6,7字节 另外4字节用于门属性和选择子 }    shl edx, 16d {左移16位}    mov dx, word ptr [ebx] {取1,2字节 }    mov [lpOldGate], edx {保存旧的中断门}    mov eax, offset @@Ring0Code {修改向量,指向Ring0级代码段}    mov word ptr [ebx], ax {低16位,保存到1,2字}    shr eax, 16d    mov word ptr [ebx+6], ax {高16位,保存到6,7位}    int ExceptionUsed {发生中断}    mov ebx, dword ptr [IDT+2] {重新定位到中断描述符表中}    add ebx, 8*ExceptionUsed    mov edx, [lpOldGate]    mov word ptr [ebx], dx   
    2023-02-13 04:55:03下载
    积分:1
  • 获取windows System目录路径-Delphi示例
    Delphi获取windows System目录路径,这个比较简单,觉得没啥用,只是可以练习一下GetSystemDirectory函数如何使用,下面分享出核心的代码,完整代码需要您下载哦:   begin    GetMem(SysDir,255);    GetSystemDirectory(SysDir,255);    Edit1.Text := SysDir;   end;
    2022-03-18 16:21:27下载
    积分:1
  • Delphi 控制Canvas上的直线点跟随鼠标移动
    Delphi 怎样让Canvas上直线的一个端点跟着鼠标跑,控制Canvas上的直线点跟随鼠标移动,其实这就是画线的基本方法,直线的一端确定后,另一端需要鼠标移动来指定端点,本程序的功能就是让线段的另一头跟随鼠标移动,以确定线段的最终位置。
    2022-02-25 18:56:03下载
    积分:1
  • Delphi 摄像头监控云台镜头控制系统
    Delphi 云台镜头控制系统,用于摄像头监控系统中的云台控制程序,早几年写的,可能现在适用的硬件已经过时了,不过对于编写开发Delphi程序来说,源代码部分还是很有参考价值的。   本套云台控制系统运行的最终界面效果如示例图所示,界面友好,功能实用。   通过这套云台控制程序,你可控制摄像头光圈大孝焦距改变、转动摄像头、打开射灯等功能。
    2023-07-22 04:15:04下载
    积分:1
  • Delphi 定义鼠标ANI动画光标
    ANI动画鼠标,为自己的鼠标定制了一个带笑脸动画的光标,类似于定义鼠标的样式,定义动画光标将改变鼠标默认的样式,这样定义的动画光标格式为ANI文件。   屏幕截图抓不到动画光标,这是神马情况?
    2022-10-08 15:50:03下载
    积分:1
  • 在输入时按回车移动光标到一下文本框-Delphi示例
    Delphi实现回车移动焦点的功能,当用户在输入时按回车键,将移动光标到一下文本框,这个功能我觉得可很好的提升软件的操作体验,为实现快捷输入近了一步。具体代码请参考如下:   begin    if Key = 13 then    begin    keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下    keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //弹起    end;   end;
    2022-08-21 20:36:32下载
    积分:1
  • Delphi 静音 左右声道音量控制
    Delphi控制系统静音,两个声道均不发出声音,同时若在非静态状态下,可控制左、右声道的音量大小,在代码中@表示指向变量v的指针(32位),调用此函数的用意就是得到右声道的值,在调节左声道的时候,不改变右声道}数字前面加$表示是十六进制数字,(t shl 8)表示t左移8位,部分参数设置代码如下:   procedure TForm1.FormCreate(Sender: TObject);   var    v:longint;   begin    waveoutgetvolume(0,@v);//得到现在音量,@v表示指向变量v的指针(32位)    trackbar1.Position:=hi(v);//设置左滑块的正确位置    trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置   end;
    2022-06-02 00:55:40下载
    积分:1
  • Delphi实现动态的窗口标题栏文字
    Delphi实现动态的窗口标题栏文字,让标题栏文字滚动,有以下动态变化形式:标题左循环,标题左右移动,停靠右端,设置移动时间间隔,每隔多少毫秒移动一个字等。可以在标题上设置一些醒目的内容,再使用本效果,吸引使用者的注意,是一种很不错的提醒方式。
    2022-01-27 16:11:55下载
    积分:1
  • Delphi Tinifile创建INI文件的范例
    Delphi 创建INI文件,使用了Tinifile.Create来创建一个指定格式的INI文件,作为程序的配置文件,运行程序时读入文件中的内容。ini文件作为配置文件,相信大家已经不陌生了,对于Delphi操作新手来说,源代码有很好的学习参考作用。通过本源码你可以了解到写文件对象中WriteBool、WriteFloat、WriteDate、WriteTime、WriteInteger、WriteString等众多字段类型写入的用法。
    2022-03-22 10:38:54下载
    积分:1
  • 696518资源总数
  • 105089会员总数
  • 19今日下载