{Dynamic arrays I/O routines
author: Nikolai Shokhirev
http://www.shokhirev.com/nikolai.html,
created: 2001.02.02
last modified 2003.05.05)
ŠNikolai V. Shokhirev, 2001-2003 }
unit  uDynArrIO;

interface

uses
  SysUtils, uMatTypes, uDynArrays, uDynArrUtils;

const
  sIOVersion = '1.2';
  sSArr1D = 'SArr1D';
  sIArr1D = 'IArr1D';
  sIArr2D = 'IArr2D';
  sIArr3D = 'IArr3D';
  sFArr1D = 'FArr1D';
  sFArr2D = 'FArr2D';
  sFArr3D = 'FArr3D';
  sCArr1D = 'CArr1D';
  sCArr2D = 'CArr2D';

type
  EDynReadErr = CLASS(Exception);

{ like in const arrays }
procedure StrToVector(const V: IFArr1D; ss: string);
{ like in const arrays }
procedure VectorToStr(const V: IFArr1D; var s: string);

{ like in const arrays }
procedure StrToMatrix(const M: IFArr2D; ss: string);
{ like in const arrays }
procedure MatrixToStr(const M: IFArr2D; var s: string; ds: string = #13#10);

{attr is a table attribute(s0, e.g. ' border="1" cellpadding="2" align="center"'}
procedure MatrixToHTML(const M: IFArr2D; var s: string; const attr: string ='');

{ Create from File }
function SArr1DCreate(FileName: string): ISArr1D;
{ Save to File }
procedure SArr1DSave(const A: ISArr1D; FileName: string);
{ Load data from File }
procedure SArr1DRead(const A: ISArr1D; FileName: string);

{ Create from File }
function IArr1DCreate(FileName: string): IIArr1D;
{ Save to File }
procedure IArr1DSave(const A: IIArr1D; FileName: string);
{ Load data from File }
procedure IArr1DRead(const A: IIArr1D; FileName: string);

{ Create from File }
function IArr2DCreate(FileName: string): IIArr2D;
{ Save to File }
procedure IArr2DSave(const A: IIArr2D; FileName: string);
{ Load data from File }
procedure IArr2DRead(const A: IIArr2D; FileName: string);

{ Create from File }
function IArr3DCreate(FileName: string): IIArr3D;
{ Save to File }
procedure IArr3DSave(const A: IIArr3D; FileName: string);
{ Load data from File }
procedure IArr3DRead(const A: IIArr3D; FileName: string);

{ Create from File }
function FArr1DCreate(FileName: string): IFArr1D;
{ Save to File }
procedure FArr1DSave(const A: IFArr1D; FileName: string);
{ Load data from File }
procedure FArr1DRead(const A: IFArr1D; FileName: string);

{ Create from File }
function FArr2DCreate(FileName: string): IFArr2D;
{ Save to File }
procedure FArr2DSave(const A: IFArr2D; FileName: string);
{ Load data from File }
procedure FArr2DRead(const A: IFArr2D; FileName: string);

{ Create from File }
function FArr3DCreate(FileName: string): IFArr3D;
{ Save to File }
procedure FArr3DSave(const A: IFArr3D; FileName: string);
{ Load data from File }
procedure FArr3DRead(const A: IFArr3D; FileName: string);

{ Create from File }
function CArr1DCreate(FileName: string): ICArr1D;
{ Save to File }
procedure CArr1DSave(const A: ICArr1D; FileName: string);
{ Load data from File }
procedure CArr1DRead(const A: ICArr1D; FileName: string);

{ Create from File }
function CArr2DCreate(FileName: string): ICArr2D;
{ Save to File }
procedure CArr2DSave(const A: ICArr2D; FileName: string);
{ Load data from File }
procedure CArr2DRead(const A: IFArr2D; FileName: string);

implementation

uses
  Math, classes, Dialogs;

end.

Back

Generated by Lore's Source to HTML Converter ( http://www.newty.de/lsc/index.html  )