var Strings: TStringList; begin Strings := TStringList.Create; try // 添加要保存的字符串 Strings.Add('Hello'); Strings.Add('World'); // 保存到文本文件 Strings.SaveToFile('C:\path\to\file.txt'); finally Strings.Free; end; end; 在上述示例中,首先创建了一个TStringList对象Strings,...
programWriteStruct;{$APPTYPE CONSOLE}usesSysUtils;//写入结构体typeTCustomer=recordID:string[10]; Code:string[10]; Name:string[10];end;varCustomers:array[1..10]ofTCustomer; i: Integer; myText:fileofTCustomer; //fileoftypetype必须是固定大小的,不能是对象, String, Variant等 customer: TCustomer...
//字符串保存到文件中,返回成功与否functionStringToFile(mString:string;mFileName:TFileName):Boolean;varvFileChar:fileofChar;I:Integer;begin{$I-}AssignFile(vFileChar,mFileName);Rewrite(vFileChar);forI:=1toLength(mString)doWrite(vFileChar,mString[I]);CloseFile(vFileChar);{$I+}Result:=(IORes...
FINI:= TIniFile.Create(Extractfilepath(Application.ExeName)+'aaa.ini');FINI.WriteString('Configuration','A', 'bbb'));FINI.Destroy;
SaveDialog1.FileName:=theFileName;//点击确认保存按钮ifSaveDialog1.Executethenbegin//为需保存的文件创建文件流fsRecv:=TFileStream.Create(SaveDialog1.FileName,fmCreate);//如果同意接收数据。memo1.Lines.Add ('开始接收!'); TickCount:=GetTickCount;//发送同意接收文件的信息Socket.SendText(MP_ACCEPT); ...
network to collect some information, and then write a line to read TXT text file program, here and share with you. Procedure TForm1.Button1Click (Sender: TObject); Var The definition of textfile data type in fi:TextFile; //system unit A1:string; I:integer; Strsql:string; Begin I:=...
FileName: string =c:\temp\test.txt; / / write file Procedure TForm1.Button1Click (Sender: TObject); Begin AssignFile (F, FileName); Rewrite (F); / / will overwrite the existing file Writeln (F, first line); Writeln (F, second); CloseFile (F); End; / / read file (first ...
Log_PathFileName=\\10.105.10.12\c\Prd_220_File\log.dat //==声明全局变量 x_pLogFile:string;//日志文件名称 x_pLogFlag:string;//是否记录日志,N:不写日志 x_pFindLogFile:boolean;//记录日志文件是否存在,避免每次写日志时都要判断。 //==过程声明 procedurecpWriteLog(pFObject:string;pTxt:string;...
var Day:string[3]; Time:string[5]; Num1,Num2:Integer; 则须用如下的read语句读入: read(TextFileVar,Day,c,Time,Num1,Num2); C为一个临时字符变量。 6.1.1.3文本文件的编辑 在Delphi中实现对一个文本文件的编辑,只须让其与一个Tmemo控件建立关联即可: ...
核心提示:1.调用API函数 procedureCopyFile(FromFileName,ToFileName:string); var f1,f2:file; Begin AssignFile(f1,Fro... 1.调用API函数 procedure CopyFile(FromFileName,ToFileName:string); var f1,f2:file; Begin AssignFile(f1,FromFileName); file://指定源文件名 ...