摘要:
DatFile: TextFile;AssignFile(DatFile, edtDataFile.Text); //生成路径为edtDataFile.Text的文件ReWrite(DatFile);Writeln();CloseFile(DatFile);内容导读: AssignFile 过程将一个外部文件的文件名与一个File 类型的变量关联,对File 类型的变量进行初始化。过程原型如下: procedure AssignFile(var F; FileName: string);AssignFile 过程AssignFile 过程将一个外部文件的文件名与一个File 类型的变量关联,对 阅读全文
摘要:
Locates the position of a substring within a string.function AnsiPos(const Substr, S: string): Integer;DescriptionCall AnsiPos to obtain the byte offset of the Substr parameter, as it appears in the string S. For example, if Substr is the string 'AB', and S is the string 'ABCDE', Ans 阅读全文
摘要:
procedure TfrmR80.btnSettingClick(Sender: TObject);begin if btnSetting.Caption = '收缩 <<' then begin frmR80.Height := btnSetting.Top + 27 + btnSetting.Height * 3 div 2; btnSetting.Caption := '扩展 >>'; end else begin frmR80.Height := GroupBox2.Top + 27 + GroupBox2.Height + b 阅读全文
摘要:
function myStrToFloat(const myStr: string; var myResult: Real): Boolean; var myTempStr: string; ResultStr: string; myChar: Char; myPos, myLen: integer; begin myPos := 1; ResultStr := ''; myTempStr := Trim(myStr); myLen := Length(myTempStr); while myPos <= myLen do begin myChar := myTempSt 阅读全文