小学期第四周学习进度
2026/6/9 7:48:55
在 Linux 环境下,有几个基础函数用于处理文件相关操作。代码如下:
function TdBaseFileReader.NumberTodBaseNumber(Value: double; Prec, DecPrec: integer; WriteNull: boolean): string; begin if WriteNull then Result := GetBlankString(Prec + DecPrec) else begin //Write the formatted number out Result := FloatToStrF(Value, ffNumber, Prec, DecPrec); if Length(Result) < (Prec + DecPrec) then Result := GetBlankString((Prec + DecPrec) - Length(Result)) + Result; end; end; function TdBaseFileReader.StringTodBaseString(Value: string; FieldSize: integer; WriteNull: boolean): string; begin if WriteNull then Result := GetBlankString(FieldSize) else begin Result := Copy(Value, 1, FieldSize); if Length(Result) < FieldSize then Resul