首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

在Delphi 下将字符串保存到磁盘

在 Delphi 下将字符串保存到磁盘的方法如下:

  1. 首先,需要创建一个文件流对象,用于操作文件。
代码语言:delphi
复制
var
  fs: TFileStream;
  1. 然后,创建一个字符串变量,用于存储要保存到磁盘的字符串。
代码语言:delphi
复制
var
  str: string;
  1. 接下来,打开文件流对象,并指定要保存的文件路径和名称。
代码语言:delphi
复制
fs := TFileStream.Create('C:\test.txt', fmCreate);
  1. 将字符串转换为字节数组,并将字节数组写入文件流对象。
代码语言:delphi
复制
var
  bytes: TBytes;

SetLength(bytes, Length(str) * SizeOf(Char));
Move(str[1], bytes[0], Length(str) * SizeOf(Char));
fs.Write(bytes[0], Length(bytes));
  1. 最后,关闭文件流对象。
代码语言:delphi
复制
fs.Free;

完整的代码示例如下:

代码语言:delphi
复制
var
  fs: TFileStream;
  str: string;
  bytes: TBytes;

str := 'Hello, world!';
fs := TFileStream.Create('C:\test.txt', fmCreate);
SetLength(bytes, Length(str) * SizeOf(Char));
Move(str[1], bytes[0], Length(str) * SizeOf(Char));
fs.Write(bytes[0], Length(bytes));
fs.Free;

这段代码将字符串 "Hello, world!" 保存到 C:\test.txt 文件中。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

新160个CrackMe分析-第4组:31-40(下)

Private Sub Text2_Change() '4024F0   Dim var_1C As Variant   loc_0040259D: If (Form1.Text2.Text = global_00401DC4) + 1 Then    // 如果输入的内容为空   loc_004025AA:   Set var_1C = Form1.Command1       // 按钮   loc_004025B7:   var_1C.Enabled = False            // 不启用   loc_004025BF:   If var_1C >= 0 Then GoTo loc_004025F7   loc_004025C1:   GoTo loc_004025E5   loc_004025C3: End If   loc_004025CE: Set var_1C = Form1.Command1   loc_004025DB: var_1C.Enabled = True               // 有输入的内容则启用按钮   loc_004025E3: If var_1C >= 0 Then GoTo loc_004025F7   loc_004025E5: ' Referenced from: 004025C1   loc_004025F1: var_1C = CheckObj(var_1C, global_00401DC8, 140)   loc_0040260C: GoTo loc_00402621   loc_00402620: Exit Sub   loc_00402621: ' Referenced from: 0040260C End Sub

01

VBS终极教程(2)

=================================== VBS例子讲解--1: 用 run运行文件 set shl="createobject"("WScript.Shell") shl.run"regedit.exe" set shl="nothing" VBS例子讲解--2: 用 FSO复制文件 Set shl = CreateObject("Scripting.FileSystemObject") shl.CopyFile "c:\1.txt","d:\" set shl = nothing ========================================================= CreateObject 描述创建并返回对象的引用。语法 CreateObject(class) class 参数使用语法 servername.typename,有以下部分: 部分描述 servername 提供对象的应用程序名称。 typename 要创建的对象类型或类。 说明 Automation 服务器至少提供一种对象类型。例如,字处理应用程序可以提供应用程序对象、文档对象和工具条对象。要创建 Automation 对象,将 CreateObject 函数返回的对象赋值给某对象变量: Dim ExcelSheet Set ExcelSheet = CreateObject("Excel.Sheet") ' 使 Excel 在整个 Application 对象中都可见。 ExcelSheet.Application.Visible = True ' 将一些文本放入工作表的第一个单元格中。 ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1" ' 保存工作表。 ExcelSheet.SaveAs "C:\TEST.XLS" ' 关闭 Excel,使 Quit 方法处于 Application 对象中。 ExcelSheet.Application.Quit ' 释放对象变量。 Set ExcelSheet = Nothing ================================== Set 将对象引用赋给一个变量或属性,或者将对象引用与事件关联。 createobject("WScript.Shell").run"regedit.exe" 和下面的 3句句有同样效果。 set shl="createobject"("WScript.Shell") shl.run"regedit.exe" set shl="nothing" 但如果我要使用多个 CreateObject对象的时候,就要写很多个 CreateObject("WScript.Shell")出来。内容如下: createobject("WScript.Shell").run"regedit.exe" CreateObject("WScript.Shell").popup"注册表已经被运行" 上面例子会给我们造成很多麻烦和工作量。这个时候我们可以使用 set来吧 CreateObject("WScript.Shell")对象付给一个变量。 以后只要对变量访问就相当于对 CreateObject("WScript.Shell")访问了。 set shl="createobject"("WScript.Shell") shl.run"regedit.exe" shl.popup"注册表已经被运行" set shl="nothing" Nothing 可选项。断开 shl与任何指定对象或类的关联。当没有其它变量引用前面的引用对象时,将 shl赋值为 Nothing 以释放与前面的引用对象相关联的系统或内存资源。 WScript 对象介绍属性/方法/对象。属性=一个物体本身具有的一种特性。方法=一个物体能够做某件事情,完成某件事情的时候就要用到方法。 WScript属性的演示例子:运行 WScript属性的格式为: WScript.属性名。 关于属性--实例: WScript.Echo (WScript.FullName) 'FullName 属性是代表主机可执行文件的完全限定路径的只读字符串。 WScript.Echo (WScript.Name) '返回 WScript 对象(主机可执行文件)的名称 WScript.Echo (WScript.Path) '返回包含主机可执行文件(CScript.exe 或 WScript.exe)的路径名称。 WScript.Echo WScript.ScriptName '返回当前运行脚本的文件名。 wscript.echo WScript.ScriptF

01
领券