lazarus-ccr/applications/lazstats/source/units/dataprocs.pas

unit DataProcs;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls, Clipbrd,
  Globals, OptionsUnit, DictionaryUnit;

Function GoodRecord(Row, NoVars: integer; const GridPos: IntDyneVec): boolean;
procedure FormatCell(Col, Row : integer);
procedure FormatGrid;
function IsNumeric(s : string) : boolean;
procedure VecPrint(vector: IntDyneVec; Size: integer; Heading: string; AReport: TStrings);
procedure SaveOS2File;
procedure OpenOS2File;
procedure OpenOS2File(const AFileName: String; ShowDictionaryForm: Boolean);
procedure DeleteCol;
procedure CopyColumn;
procedure PasteColumn;
procedure InsertCol;
procedure InsertRow;
procedure CutRow;
procedure CopyRow;
procedure PasteRow;
procedure PrintDict(AReport: TStrings);
procedure PrintData(AReport: TStrings);
function ValidValue(row, col: integer): boolean;
function IsFiltered(GridRow: integer): boolean;

procedure MatRead(const a: DblDyneMat; out NoRows, NoCols: integer;
  const Means, StdDevs: DblDyneVec; out NCases: integer;
  const RowLabels, ColLabels: StrDyneVec; const AFilename: string);
procedure MatSave(const a: DblDyneMat; NoRows, NoCols: Integer;
  const Means, StdDevs: DblDyneVec; NCases: integer;
  const RowLabels, ColLabels: StrDyneVec; AFileName: String);

procedure ReOpen(AFilename: string);

procedure OpenTabFile;
procedure OpenCommaFile;
procedure OpenSpaceFile;
procedure OpenOSData;

procedure SaveTabFile;
procedure SaveCommaFile;
procedure SaveSpaceFile;

procedure ClearGrid;
procedure CopyCellBlock;
procedure PasteCellBlock;
procedure RowColSwap;
procedure MatToGrid(const mat: DblDyneMat; nsize: integer);
procedure GetTypes;
function StringsToInt(StrCol: integer; var NewCol: integer; Prompt: boolean): boolean;


implementation

uses
  Utils, MainUnit;

Function GoodRecord(Row, NoVars: integer; const GridPos: IntDyneVec): boolean;
var
  i, j: integer;
begin
  Result := true;
  for i := 1 to NoVars do
  begin
    j := GridPos[i-1];
    if not ValidValue(Row,j) then
      Result := false;
  end;
end;
//-------------------------------------------------------------------

procedure FormatCell(Col, Row: integer);
var
  VarType : char;
  NoDec : integer;
  //Justify : char;
  missing : string;
  astr : string;
  cellStr : string;
  newcellStr : string;
  X : double;
  Width : integer;
  cellsize : integer;
begin
  if OS3MainFrm.DataGrid.Cells[Col,Row] = '' then
    exit;

  Width := StrToInt(DictionaryFrm.DictGrid.Cells[3,Col]);

  astr := DictionaryFrm.DictGrid.Cells[4,Col];
  if astr <> '' then VarType := astr[1] else VarType := 'F';

  NoDec := StrToInt(DictionaryFrm.DictGrid.Cells[5,Col]);

  missing := DictionaryFrm.DictGrid.Cells[6,Col];
  cellStr := Trim(OS3MainFrm.DataGrid.Cells[Col,Row]);
  if missing = cellStr then
    exit;

  newCellStr := cellStr;
  if (VarType = 'F') and TryStrToFloat(cellStr, X) then
    newCellStr := FloatToStrF(X, ffFixed, Width, NoDec)
  else
  if (VarType = 'I') and TryStrToFloat(cellStr, X) then
    newCellStr := IntToStr(trunc(X));

  // now set justification
  cellsize := OS3MainFrm.DataGrid.ColWidths[Col]; // in pixels
  cellsize := cellsize div 8;

  {  wp: justification should be done by the grid, not by adding spaces!

  astr := DictionaryFrm.DictGrid.Cells[7,Col];
  if astr <> '' then Justify := astr[1] else Justify := 'L';

  case Justify of
    'L' : newcell := TrimLeft(newcell);
    'C' : begin
            newcell := Trim(newcell);
            while Length(newcell) < cellsize do
              newcell := ' ' + newcell + ' ';
          end;
    'R' : begin
            newcell := Trim(newcell);
            while Length(newcell) < cellsize do  newcell := ' ' + newcell;
          end;
  end;
  }

  OS3MainFrm.DataGrid.Cells[Col,Row] := newCellStr;
end;
//-------------------------------------------------------------------

procedure FormatGrid;
var
  i, j: integer;

begin
  for i := 1 to NoCases do
    for j := 1 to NoVariables do FormatCell(j,i);
end;
//-------------------------------------------------------------------

function IsNumeric(s: string): boolean;
var
  i, strLen: integer;
begin
     (*
  Assert(OptionsFrm <> nil);

  if OptionsFrm.FractionTypeGrp.ItemIndex = 0 then
  begin
     FractionType := 0;
     DecimalSeparator := '.'
  end
  else begin
     FractionType := 1;
     DecimalSeparator := ',';
  end;
  *)

  strLen := Length(s);
  for i := 1 to strLen do
  //     if (not(((s[i] >= '0') and (s[i] <= '9')) or (s[i] = DecimalSeparator) or
  //        (s[i] = '-'))) then Result := false;
    if (s[i] < ',') or (s[i] > '9') or (s[i] = '/') then
    begin
      Result := false;
      exit;
    end;
  Result := true;
end;
//-----------------------------------------------------------------------------

procedure VecPrint(vector: IntDyneVec; Size: integer; Heading: string; AReport: TStrings);
var
  i, start, last: integer;
  nvals: integer;
  done: boolean;
  astr: string;
begin
  nvals := 8;
  done := false;
  AReport.Add('');
  AReport.Add(Heading);
  Areport.Add('');
  start := 1;
  last := nvals;
  if last > Size then last := Size;

  while not done do
  begin
    astr := '';
    for i := start to last do
      astr := astr + Format('%8d ',[i]);
    AReport.Add(astr);

    astr := '';
    for i := start to last do
      astr := astr + Format('%8d ',[vector[i-1]]);
    AReport.Add(astr);
    if last < Size then
    begin
      AReport.Add('');
      start := last + 1;
      last := start + nvals - 1;
      if last > Size then last := Size;
    end else
      done := true;
  end;
end;

procedure SaveOS2File;
var
  F: TextFile;
  filename: string;
  s: string;
  NRows, NCols: integer;
  i, j: integer;
begin
  // check for valid cases - at least one value entered
  NRows := StrToInt(OS3MainFrm.NoCasesEdit.Text);
  NCols := StrToInt(OS3MainFrm.NoVarsEdit.Text);

  if (NRows = 0) or (NCols = 0) then
  begin
    MessageDlg('No data to save.', mtError, [mbOK], 0);
    exit;
  end;

  filename := ChangeFileExt(OS3MainFrm.FileNameEdit.Text, '.laz');
  OS3MainFrm.SaveDialog1.InitialDir := ExtractFileDir(filename);
  OS3MainFrm.SaveDialog1.FileName := ExtractFileName(filename);
  OS3MainFrm.SaveDialog1.DefaultExt := '.laz';
//  OS3MainFrm.SaveDialog1.Filter := 'LazStats (*.laz)|*.laz;*.LAZ|Tab (*.tab)|*.tab;*.TAB|space (*.spc)|*.spc;*.SPC';
  OS3MainFrm.SaveDialog1.Filter := 'LazStats (*.laz)|*.laz;*.LAZ|All files (*.*)|*.*';
  OS3MainFrm.SaveDialog1.FilterIndex := 1;
  if OS3MainFrm.SaveDialog1.Execute then
  begin
    filename := ExpandFileName(OS3MainFrm.SaveDialog1.FileName);
    OS3MainFrm.FileNameEdit.Text := filename;
    AssignFile(F, filename);
    Rewrite(F);

    Writeln(F, NRows);
    Writeln(F, NCols);

    // write dictionary information for file first
    for i := 1 to NCols do
    begin
      for j := 1 to 7 do
      begin
        s := DictionaryFrm.DictGrid.Cells[j, i];
        Writeln(F, s);
      end;
    end;

    // now save grid cell values, incl col and row headers.
    for i := 0 to NRows do
    begin
      for j := 0 to NCols do
      begin
        s := OS3MainFrm.DataGrid.Cells[j, i];
        Writeln(F, s);
      end;
    end;
    CloseFile(F);
  end;
end;
//-------------------------------------------------------------------

procedure OpenOS2File;
begin
  with OS3MainFrm.OpenDialog1 do
  begin
    DefaultExt := '.laz';
    Filter := 'LazStats files (*.laz)|*.laz;*.LAZ|All files (*.*)|*.*';
    if InitialDir = '' then
      InitialDir := Globals.Options.DefaultDataPath;
    FilterIndex := 1;
    if Execute then begin
      OpenOS2File(FileName, true);
      InitialDir := ExtractFilePath(FileName);
    end;
  end;
end;

procedure OpenOS2File(const AFileName: String; ShowDictionaryForm: Boolean);
var
  F: TextFile;
  s: string;
  i, j: integer;
  NRows, NCols: integer;
begin
  if Lowercase(ExtractFileExt(AFileName)) <> '.laz' then
  begin
    MessageDlg(Format('"%s" is not a .laz file.', [AFileName]), mtError, [mbOK], 0);
    exit;
  end;

  DictLoaded := false;

  OS3MainFrm.FileNameEdit.Text := ExpandFileName(AFileName);
  if not FileExists(OS3MainFrm.FileNameEdit.Text) then begin
    MessageDlg(Format('File "%s" not found.', [AFileName]), mtError, [mbOK], 0);
    exit;
  end;

  AssignFile(F, AFileName);
  Reset(F);
  ReadLn(F, NRows);
  ReadLn(F, NCols);

  // initialize the dictionary grid for NCols of variables
  // using the default formats (protective measure in case of
  // a screw-up where the dictionary was damaged
  DictionaryFrm.DictGrid.ColCount := 8;
  DictionaryFrm.DictGrid.RowCount := NCols + 1;
  for i := 1 to NCols do
  begin
    DictionaryFrm.DictGrid.Cells[0, i] := IntToStr(i);
    DictionaryFrm.DictGrid.Cells[1, i] := 'VAR.' + IntToStr(i);
    DictionaryFrm.DictGrid.Cells[2, i] := 'VARIABLE ' + IntToStr(i);
    DictionaryFrm.DictGrid.Cells[3, i] := '8';
    DictionaryFrm.DictGrid.Cells[4, i] := 'F';
    DictionaryFrm.DictGrid.Cells[5, i] := '2';
    DictionaryFrm.DictGrid.Cells[6, i] := ' ';
    DictionaryFrm.DictGrid.Cells[7, i] := 'L';
  end;

  // get dictionary info first
  for i := 1 to NCols do
  begin
    for j := 1 to 7 do
    begin
      Readln(F, s);
      DictionaryFrm.DictGrid.Cells[j,i] := s;
    end;
    VarDefined[i] := true;
  end;
  DictLoaded := true;

  // Now read grid data
  OS3MainFrm.DataGrid.RowCount := NRows + 1;
  OS3MainFrm.DataGrid.ColCount := NCols + 1;
  OS3MainFrm.NoCasesEdit.Text := IntToStr(NRows);
  OS3MainFrm.NoVarsEdit.Text := IntToStr(NCols);
  NoVariables := NCols;
  NoCases := NRows;
  for i := 0 to NRows do
  begin
    for j := 0 to NCols do
    begin
      ReadLn(F, s);
      OS3MainFrm.DataGrid.Cells[j,i] := s;
    end;
  end;
  CloseFile(F);

  // copy column names into the data dictionary.  Note, this is
  // redundant with the saved dictionary but helps restore in case
  // of a screw-up
  for i := 1 to NCols do
    DictionaryFrm.DictGrid.Cells[1,i] := OS3MainFrm.DataGrid.Cells[i,0];
  for i := 1 to NRows do
    OS3MainFrm.DataGrid.Cells[0,i] := 'CASE ' + IntToStr(i);
  if ShowDictionaryForm then
    DictionaryFrm.ShowModal;
  FormatGrid;
end;
//-------------------------------------------------------------------

procedure DeleteCol;
var
   i, j, col: integer;
   buf : pchar;
begin
     col := OS3MainFrm.DataGrid.Col;
     NoVariables := StrToInt(OS3MainFrm.NoVarsEdit.Text);
//     TempStream.Clear;
//     OS3MainFrm.DataGrid.Cols[col].SaveToStream(TempStream);
     buf := OS3MainFrm.DataGrid.Cols[col].GetText;
     ClipBoard.SetTextBuf(buf);
     if col = NoVariables then // last column
     begin
          for j := 0 to NoCases do OS3MainFrm.DataGrid.Cells[col,j] := '';
          VarDefined[col] := false;
     end
     else // must be a variable in front of another variable
     begin
          for i := col + 1 to NoVariables do //Grid.ColCount - 1 do
               for j := 0 to NoCases do //Grid.RowCount - 1 do
                    OS3MainFrm.DataGrid.Cells[i-1,j] := OS3MainFrm.DataGrid.Cells[i,j];
          for j := 0 to OS3MainFrm.DataGrid.RowCount - 1 do
               OS3MainFrm.DataGrid.Cells[NoVariables,j] := '';
     end;
     varDefined[NoVariables] := false;
     OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount - 1;
     NoVariables := NoVariables - 1;
     OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
     // update dictionary
     DictionaryFrm.DelRow(col);
end;
//-------------------------------------------------------------------

procedure CopyColumn;
var
  col: integer;
  buf: pchar;
begin
  col := OS3MainFrm.DataGrid.Col;
  buf := OS3MainFrm.DataGrid.Cols[col].GetText;
  ClipBoard.SetTextBuf(buf);
//   The following code can be used instead of the above if no clipboard available
//     TempStream.Clear;
//     OS3MainFrm.DataGrid.Cols[col].SaveToStream(TempStream);
//     DictionaryFrm.CopyVar(col);
end;
//-------------------------------------------------------------------

procedure InsertCol;
var
  i, j, col: integer;
begin
  // insert a new, blank column into the data grid
  col := OS3MainFrm.DataGrid.Col;
  NoVariables := NoVariables + 1;
  OS3MainFrm.DataGrid.ColCount := NoVariables + 1;
  for i := NoVariables downto col do { move to right }
    for j := 0 to NoCases do
      OS3MainFrm.DataGrid.Cells[i,j] := OS3MainFrm.DataGrid.Cells[i-1,j];
  NoVariables := NoVariables - 1;

  DictionaryFrm.NewVar(col);

  for i := 1 to NoCases do OS3MainFrm.DataGrid.Cells[col,i] := '';
  OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
end;

procedure PasteColumn;
var
  col, i, j: integer;
  s: String;
begin
  col := OS3MainFrm.DataGrid.Col;
  NoVariables := OS3MainFrm.DataGrid.ColCount-1;
  NoCases := OS3MainFrm.DataGrid.RowCount - 1;
  if col <= NoVariables then
  begin // add a blank column, move current over and update dictionary
    OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount + 1;
    for i := NoVariables downto col do
      for j := 0 to NoCases do
        OS3MainFrm.DataGrid.Cells[i+1,j] := OS3MainFrm.DataGrid.Cells[i,j];
    DictionaryFrm.NewVar(col);
    VarDefined[col] := true;
    OS3MainFrm.ColEdit.Text := IntToStr(OS3MainFrm.DataGrid.ColCount-1);
    OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
  end;

  s := Clipboard.AsText;
  OS3MainFrm.DataGrid.Cols[col].Text := s;
end;

procedure CutRow;
var
  row, i, j: integer;
  buf: pchar;
begin
  row := OS3MainFrm.DataGrid.Row;
  buf := OS3MainFrm.DataGrid.Rows[row].GetText;
  ClipBoard.SetTextBuf(buf);

  for i := 1 to NoVariables do
    OS3MainFrm.DataGrid.Cells[i,row] := '';

  if row < NoCases then
  begin // move rows below up 1
    for i := row + 1 to NoCases do
      for j := 1 to NoVariables do OS3MainFrm.DataGrid.Cells[j, i-1] := OS3MainFrm.DataGrid.Cells[j, i];
    for j := 1 to NoVariables do OS3MainFrm.DataGrid.Cells[j, NoCases] := '';
  end;

  OS3MainFrm.DataGrid.RowCount := OS3MainFrm.DataGrid.RowCount - 1;
  OS3MainFrm.RowEdit.Text := IntToStr(OS3MainFrm.DataGrid.RowCount-1);
  NoCases := NoCases - 1;
  OS3MainFrm.NoCasesEdit.Text := IntToStr(NoCases);

  // renumber cases
  for i := 1 to NoCases do OS3MainFrm.DataGrid.Cells[0,i] := 'CASE ' + IntToStr(i);
end;

procedure CopyRow;
var
  row: integer;
  buf: pchar;
begin
  row := OS3MainFrm.DataGrid.Row;
  buf := OS3MainFrm.DataGrid.Rows[row].GetText;
  ClipBoard.SetTextBuf(buf);
end;

procedure PasteRow;
var
  row, i, j: integer;
begin
  row := OS3MainFrm.DataGrid.Row;
  OS3MainFrm.DataGrid.RowCount := OS3MainFrm.DataGrid.RowCount + 1;
  OS3MainFrm.RowEdit.Text := IntToStr(OS3MainFrm.DataGrid.RowCount-1);
  if row <= NoCases then // move all down before inserting
  begin
    for i := NoCases downto row do
      for j := 1 to NoVariables do
        OS3MainFrm.DataGrid.Cells[j,i+1] := OS3MainFrm.DataGrid.Cells[j,i];
  end;
  OS3MainFrm.DataGrid.Row := row;
  OS3MainFrm.DataGrid.Rows[row].Text := Clipboard.AsText;
//   Use the following instead of the previous if clipboard is unavailable
//     TempStream.Position := 0;
//     OS3MainFrm.DataGrid.Rows[row].LoadFromStream(TempStream);

  NoCases := NoCases + 1;
  OS3MainFrm.NoCasesEdit.Text := IntToStr(NoCases);

  // renumber cases
  for i := 1 to NoCases do
    OS3MainFrm.DataGrid.Cells[0,i] := 'CASE ' + IntToStr(i);
end;

procedure PrintDict(AReport: TStrings);
var
  outline: string;
  i: integer;
begin
  AReport.Add(OS3MainFrm.FileNameEdit.Text + ' VARIABLE DICTIONARY');
  AReport.Add('');

  for i:= 0 to NoVariables do
  begin
    outline := '';
    outline := outline +  '| ' + Format( '%9s', [DictionaryFrm.DictGrid.Cells[0, i]]);
    outline := outline + ' | ' + Format('%10s', [DictionaryFrm.DictGrid.Cells[1, i]]);
    outline := outline + ' | ' + Format('%15s', [DictionaryFrm.DictGrid.Cells[2, i]]);
    outline := outline + ' | ' + Format( '%6s', [DictionaryFrm.DictGrid.Cells[3, i]]);
    outline := outline + ' | ' + Format( '%6s', [DictionaryFrm.DictGrid.Cells[4, i]]);
    outline := outline + ' | ' + Format( '%8s', [DictionaryFrm.DictGrid.Cells[5, i]]);
    outline := outline + ' | ' + Format( '%7s', [DictionaryFrm.DictGrid.Cells[6, i]]);
    outline := outline + ' | ' + Format( '%6s', [DictionaryFrm.DictGrid.Cells[7, i]]);
    AReport.Add(outline);
  end;
end;

procedure PrintData(AReport: TStrings);
var
  outline: string;
  startcol: integer;
  endcol: integer;
  done: boolean;
  i, j: integer;
begin
  AReport.Add(OS3MainFrm.FileNameEdit.Text);

  AReport.Add('Number of Cases: %d, Number of Variables: %d', [NoCases, NoVariables]);
  AReport.Add('');

  done := false;
  startcol := 1;

  while not done do
  begin
    endcol := startcol + 7;
    if endcol > NoVariables then endcol := NoVariables;
    for i:= 0 to NoCases do
    begin
      outline := '';
      outline := Format('%10s', [Trim(OS3MainFrm.DataGrid.Cells[0,i])]);
      for j := startcol to endcol do
        outline := outline + Format('%10s', [Trim(OS3MainFrm.DataGrid.Cells[j,i])]);
      AReport.Add(outline);
    end;

    if endcol = NoVariables then
      done := true
    else
    begin
      startcol := endcol + 1;
      AReport.Add('');
    end;
  end;
end;

procedure OpenSeparatorFile(ASeparator: Char; AFilter, ADefaultExt: String);
var
  F: TextFile;
  s: string;
  ch: char;
  labelsInc: boolean;
  row, col: integer;
  res: TModalResult;
begin
  Assert(OS3MainFrm <> nil);
  Assert(OptionsFrm <> nil);

  labelsInc := false;

  // check for a currently open file
  if NoVariables > 1 then
  begin
    MessageDlg('Close (or Save and Close) the current work.', mtWarning, [mbOK], 0);
    exit;
  end;

  with OS3MainFrm.OpenDialog1 do
  begin
    Filter := AFilter;
    FilterIndex := 1;
    DefaultExt := ADefaultExt;
    if FileName <> '' then
    begin
      InitialDir := ExtractFileDir(FileName);
      FileName := ChangeFileExt(FileName, ADefaultExt);
    end;
  end;
  if OS3MainFrm.OpenDialog1.Execute then
  begin
    res := MessageDlg('Are variable labels included?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
    if res = mrCancel then
      exit;
    labelsInc := (res = mrYes);
    NoCases := 0;
    NoVariables := 0;
    if labelsInc then row := 0 else row := 1;
    col := 1;

    AssignFile(F, OS3MainFrm.OpenDialog1.FileName);   { File selected in dialog box }
    Reset(F);
    OS3MainFrm.FileNameEdit.Text := OS3MainFrm.OpenDialog1.FileName;

    s := '';
    while not EOF(F) do
    begin
      Read(F, ch);
      if (ch < #9) or (ch > #127) then
        Continue;
      if (ch = #13) then
        Continue; // line feed character
      if (ch <> ASeparator) and (ch <> #10) then // check for Separator or new line
        s := s + ch
      else if ch = ASeparator then // Separator character found
      begin
        if (not labelsInc) and (row = 1) then // create a column label
          OS3MainFrm.DataGrid.Cells[col, 0] := 'VAR ' + IntToStr(col);
        OS3MainFrm.DataGrid.Cells[col, row] := s;
        if col > NoVariables then
        begin
          NoVariables := col;
          OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
        end;
        col := col + 1;
        s := '';
        if col >= OS3MainFrm.DataGrid.ColCount then
          OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount + 1;
      end
      else //must be new line character
      begin
        if (not labelsInc) and (row = 1) then // create a col. label
          OS3MainFrm.DataGrid.Cells[col, 0] := 'VAR ' + IntToStr(col);
        OS3MainFrm.DataGrid.Cells[col, row] := s;
        s := '';
        if col > NoVariables then
        begin
          NoVariables := col;
          OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
        end;
        col := 1;
        if row > NoCases then NoCases := row;
        OS3MainFrm.DataGrid.Cells[0, row] := 'Case ' + IntToStr(row);
        row := row + 1;
        if row >= OS3MainFrm.DataGrid.RowCount then
          OS3MainFrm.DataGrid.RowCount := OS3MainFrm.DataGrid.RowCount + 1;
      end;
    end;  // END OF FILE

    CloseFile(F);

    OS3MainFrm.NoCasesEdit.Text := IntToStr(NoCases);
    OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
    if NoVariables >= OS3MainFrm.DataGrid.ColCount - 1 then
      OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount + 1;

    // set up the dictionary
    DictionaryFrm.DictGrid.RowCount := NoVariables + 1;
    DictionaryFrm.DictGrid.ColCount := 8;
    for row := 1 to NoVariables do
    begin
      DictionaryFrm.DictGrid.Cells[0,row] := IntToStr(row);
      DictionaryFrm.DictGrid.Cells[1,row] := 'VAR.' + IntToStr(row);
      DictionaryFrm.DictGrid.Cells[2,row] := 'VARIABLE ' + IntToStr(row);
      DictionaryFrm.DictGrid.Cells[3,row] := '8';
      DictionaryFrm.DictGrid.Cells[4,row] := 'F';
      DictionaryFrm.DictGrid.Cells[5,row] := '2';
      DictionaryFrm.DictGrid.Cells[6,row] := MissingValueCodes[Options.DefaultMiss];
      DictionaryFrm.DictGrid.Cells[7,row] := 'L';
    end;
    for row := 1 to NoVariables do
    begin
      DictionaryFrm.DictGrid.Cells[1,row] := OS3MainFrm.DataGrid.Cells[row,0];
      VarDefined[row] := true;
    end;
    OS3MainFrm.DataGrid.RowCount := (NoCases + 1);
    OS3MainFrm.DataGrid.ColCount := (NoVariables + 1);
  end;
  GetTypes;
end;

procedure OpenTabFile;
begin
  OpenSeparatorFile(#9, TAB_FILE_FILTER, 'tab');
end;

procedure OpenCommaFile;
begin
  OpenSeparatorFile(',', CSV_FILE_FILTER, 'csv');
end;

procedure OpenSpacefile;
begin
  OpenSeparatorfile(' ', SSV_FILE_FILTER, 'ssv');
end;

{
procedure OpenTabFile;
var
  TabFile : TextFile;
  namestr : string;
  s: string;
  ch: char;
  labelsinc : boolean;
  row, col : integer;
  res: TModalResult;
begin
  Assert(OS3MainFrm <> nil);
  Assert(OptionsFrm <> nil);

  labelsinc := false;

  // check for a currently open file
  if NoVariables > 1 then
  begin
    MessageDlg('Close (or Save and Close) the current work.', mtWarning, [mbOK], 0);
    exit;
  end;

  OS3MainFrm.OpenDialog1.Filter := 'Tab field files (*.tab)|*.tab;*.TAB|Text files (*.txt)|*.txt;*.TXT|All files (*.*)|*.*';
  OS3MainFrm.OpenDialog1.FilterIndex := 1;
  OS3MainFrm.OpenDialog1.DefaultExt := 'tab';
  if OS3MainFrm.OpenDialog1.Execute then
  begin
    res := MessageDlg('Are variable labels included?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
    if res = mrCancel then
      exit;
    labelsInc := (res = mrYes);
    NoCases := 0;
    NoVariables := 0;
    if labelsInc then row := 0 else row := 1;
    col := 1;

    AssignFile(TabFile, OS3MainFrm.OpenDialog1.FileName);   // File selected in dialog box
    Reset(tabfile);
    OS3MainFrm.FileNameEdit.Text := OS3MainFrm.OpenDialog1.FileName;
    s := '';
    while not EOF(TabFile) do
    begin
      Read(TabFile, ch);
      if (ch < #9) or (ch > #127) then
        Continue;
      if (ch = #13) then
        Continue; // line feed character
      if (ch <> #9) and (ch <> #10) then // check for tab or new line
        s := s + ch
      else if ch = #9 then // tab character found
      begin
        if (not labelsinc) and (row = 1) then // create a col. label
        begin
          namestr := 'VAR ' + IntToStr(col);
          OS3MainFrm.DataGrid.Cells[col, 0] := namestr;
        end;
        OS3MainFrm.DataGrid.Cells[col, row] := s;
        if col > NoVariables then
        begin
          NoVariables := col;
          OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
        end;
        col := col + 1;
        s := '';
        if col >= OS3MainFrm.DataGrid.ColCount then
          OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount + 1;
      end
      else //must be new line character
      begin
        if (not labelsinc) and (row = 1) then // create a col. label
        begin
          namestr := 'VAR ' + IntToStr(col);
          OS3MainFrm.DataGrid.Cells[col,0] := namestr;
        end;
        OS3MainFrm.DataGrid.Cells[col,row] := s;
        s := '';
        if col > NoVariables then
        begin
          NoVariables := col;
          OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
        end;
        col := 1;
        if row > NoCases then NoCases := row;
        OS3MainFrm.DataGrid.Cells[0,row] := 'Case ' + IntToStr(row);
        row := row + 1;
        if row >= OS3MainFrm.DataGrid.RowCount then
          OS3MainFrm.DataGrid.RowCount := OS3MainFrm.DataGrid.RowCount + 1;
      end;
    end;  // END OF FILE

    OS3MainFrm.NoCasesEdit.Text := IntToStr(NoCases);
    OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
    CloseFile(TabFile);
    if NoVariables >= OS3MainFrm.DataGrid.ColCount - 1 then
      OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount + 1;

    // set up the dictionary
    DictionaryFrm.DictGrid.RowCount := NoVariables + 1;
    DictionaryFrm.DictGrid.ColCount := 8;
    for row := 1 to NoVariables do
    begin
      DictionaryFrm.DictGrid.Cells[0,row] := IntToStr(row);
      DictionaryFrm.DictGrid.Cells[1,row] := 'VAR.' + IntToStr(row);
      DictionaryFrm.DictGrid.Cells[2,row] := 'VARIABLE ' + IntToStr(row);
      DictionaryFrm.DictGrid.Cells[3,row] := '8';
      DictionaryFrm.DictGrid.Cells[4,row] := 'F';
      DictionaryFrm.DictGrid.Cells[5,row] := '2';
      DictionaryFrm.DictGrid.Cells[6,row] := MissingValueCodes[Options.DefaultMiss];
      DictionaryFrm.DictGrid.Cells[7,row] := 'L';
    end;
    for row := 1 to NoVariables do
    begin
      DictionaryFrm.DictGrid.Cells[1,row] := OS3MainFrm.DataGrid.Cells[row,0];
      VarDefined[row] := true;
    end;
    OS3MainFrm.DataGrid.RowCount := (NoCases + 1);
    OS3MainFrm.DataGrid.ColCount := (NoVariables + 1);
  end;
  GetTypes;
end;
}

procedure SaveSeparatorFile(ASeparator: Char; AFilter, ADefaultExt: String);
var
  namestr: string;
  cellvalue: string;
  F: TextFile;
  i, j: integer;
begin
  with OS3MainFrm.SaveDialog1 do begin
    Filter := AFilter;
    FilterIndex := 1;
    DefaultExt := ADefaultExt;
    if FileName <> '' then
    begin
      InitialDir := ExtractFileDir(FileName);
      FileName := ChangeFileExt(FileName, ADefaultExt);
    end;
  end;
  if OS3MainFrm.SaveDialog1.Execute then
  begin
    namestr := OS3MainFrm.SaveDialog1.FileName;
    Assign(F, namestr);
    ReWrite(F);
    for i := 0 to NoCases do                       // wp: why not NoCases-1 ?
    begin
      for j := 1 to NoVariables do   //write all but last with a tab
      begin
        cellvalue := OS3MainFrm.DataGrid.Cells[j, i];
        if cellvalue = '' then cellvalue := '.';   // wp: why not "missing value"?
        cellvalue := Trim(cellvalue);              // wp: why not before prev line?
        if j < NoVariables then cellvalue := cellvalue + ASeparator;
        Write(F, cellvalue);
      end;
      WriteLn(F);
    end;
  end;
  CloseFile(F);
end;

procedure SaveTabFile;
begin
  SaveSeparatorFile(#9, TAB_FILE_FILTER, 'tab');
end;

procedure SaveCommaFile;
begin
  SaveSeparatorFile(',', CSV_FILE_FILTER, 'csv');
end;

procedure SaveSpaceFile;
begin
  SaveSeparatorFile(' ', SSV_FILE_FILTER, 'ssv');
end;

{
procedure SaveTabFile;
var
  namestr: string;
  cellvalue: string;
  TabFile: TextFile;
  i, j: integer;
begin
  OS3MainFrm.SaveDialog1.Filter := TAB_FILE_FILTER;
  OS3MainFrm.SaveDialog1.FilterIndex := 1;
  OS3MainFrm.SaveDialog1.DefaultExt := 'tab';
  if OS3MainFrm.SaveDialog1.Execute then
  begin
    namestr := OS3MainFrm.SaveDialog1.FileName;
    Assign(TabFile,namestr);
    ReWrite(TabFile);
    for i := 0 to NoCases do                       // wp: why not NoCases-1 ?
    begin
      for j := 1 to NoVariables do   //write all but last with a tab
      begin
        cellvalue := OS3MainFrm.DataGrid.Cells[j,i];
        if cellvalue = '' then cellvalue := '.';   // wp: why not "missing value"?
        cellvalue := Trim(cellvalue);              // wp: why not before prev line?
        if j < NoVariables then cellvalue := cellvalue + #9;
        write(TabFile,cellvalue);
      end;
      writeln(TabFile);
    end;
  end;
  CloseFile(TabFile);
end;
}

function ValidValue(row, col : integer) : boolean;
var
  valid: boolean;
  xvalue: string;
  cellstring: string;
begin
  valid := true;
  if FilterOn then
  begin
    cellstring := Trim(OS3MainFrm.DataGrid.Cells[FilterCol, row]);
    if cellstring = 'NO' then valid := false;
    Result := valid;
    exit;
  end;

  xvalue := Trim(OS3MainFrm.DataGrid.Cells[col,row]);
  if (xvalue = '') and (DictionaryFrm.DictGrid.Cells[4,col] <> 'S') then
    valid := false;
  if valid then  // check for user-defined missing value
  begin
    if Trim(DictionaryFrm.DictGrid.Cells[6,col]) = xvalue then
      valid := false;
  end;
  Result := valid;
end;

function IsFiltered(GridRow: integer): boolean;
begin
  Result := FilterOn and (Trim(OS3MainFrm.DataGrid.Cells[FilterCol,GridRow]) = 'NO');
end;

procedure MatRead(const a: DblDyneMat; out NoRows, NoCols: integer;
  const means, stddevs: DblDyneVec; out NCases: integer;
  const RowLabels, ColLabels: StrDyneVec; const AFileName: string);
var
  i, j: integer;
  mat_file: TextFile;
begin
  Assign(mat_file, AFileName);
  Reset(mat_file);
  ReadLn(mat_file, norows);
  ReadLn(mat_file, nocols);
  ReadLn(mat_file, NCases);

  // wp: Setlength missing here --> very critical !!!!
  // I understand that the calling routine pre-allocates these arrays
  // But there should be a check whether NoRows, etc do not go beyond array size.

  for i := 1 to norows do ReadLn(mat_file, RowLabels[i-1]);
  for i := 1 to nocols do ReadLn(mat_file, ColLabels[i-1]);
  for i := 1 to nocols do ReadLn(mat_file, means[i-1]);
  for i := 1 to nocols do ReadLn(mat_file, stddevs[i-1]);
  for i := 1 to norows do
    for j := 1 to nocols do
      ReadLn(mat_file, a[i-1, j-1]);

  CloseFile(mat_file);
end; { matrix read routine }

procedure MatSave(const a: DblDyneMat; NoRows, NoCols: integer;
  const Means, StdDevs: DblDyneVec; NCases: integer;
  const RowLabels, ColLabels: StrDyneVec; AFileName: String);
var
  i, j: integer;
  mat_file: TextFile;
begin
  Assign(mat_file, AFilename);
  Rewrite(mat_file);

  WriteLn(mat_file, NoRows);
  WriteLn(mat_file, NoCols);
  WriteLn(mat_file, NCases);

  for i := 1 to NoRows do WriteLn(mat_file, RowLabels[i-1]);
  for i := 1 to NoCols do WriteLn(mat_file, ColLabels[i-1]);
  for i := 1 to NoCols do WriteLn(mat_file, Means[i-1]);
  for i := 1 to NoCols do WriteLn(mat_file, StdDevs[i-1]);
  for i := 1 to NoRows do
    for j := 1 to NoCols do
      WriteLn(mat_file, a[i-1, j-1]);

  CloseFile(mat_file);
end; { matrix save routine }

procedure ReOpen(AFilename: string);
var
  fileExt: string;
begin
  DictLoaded := false;

  if FileExists(AFilename) then
  begin
    fileExt := Lowercase(ExtractFileExt(AFilename));
    OS3MainFrm.FileNameEdit.Text := AFilename;
    OS3MainFrm.OpenDialog1.FileName := AFilename;
    case fileExt of
      '.csv': OpenCommaFile;
      '.tab': OpenTabFile;
      '.laz': OpenOS2File;
      '.ssv': OpenSpaceFile;
     end;
  end else
    MessageDlg(Format('File "%s" not found.', [AFileName]), mtError, [mbOK], 0);
end;

              {
procedure OpenCommaFile;
const
  COMMA = ',';
var
  CommaFile: TextFile;
  namestr: string;
  s: string;
  ch: char;
  labelsinc: boolean;
  row, col: integer;
  res: TModalResult;
begin
  Assert(OS3MainFrm <> nil);
  Assert(OptionsFrm <> nil);

  labelsInc := false;

  // check for a currently open file
  if NoVariables > 1 then
  begin
    MessageDlg('Close (or Save and Close) the current work.', mtError, [mbOK], 0);
    exit;
  end;

  OS3MainFrm.OpenDialog1.Filter := 'Comma field files (*.csv)|*.csv;*.CSV|Text files (*.txt)|*.txt;*.TXT|All files (*.*)|*.*';
  OS3MainFrm.OpenDialog1.FilterIndex := 1;
  OS3MainFrm.OpenDialog1.DefaultExt := 'csv';
  if OS3MainForm.OpenDialog1.Execute then
  begin
    res := MessageDlg('Are variable labels included?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
    if res = mrCancel then
      exit;
    labelsInc := (res = mrYes);

    NoCases := 0;
    NoVariables := 0;
    if labelsInc then row := 0 else row := 1;
    col := 1;

    AssignFile(CommaFile, OS3MainFrm.OpenDialog1.FileName);   // File selected in dialog box
    Reset(CommaFile);
    OS3MainFrm.FileNameEdit.Text := OS3MainFrm.OpenDialog1.FileName;
    s := '';
    while not EOF(CommaFile) do
    begin
      Read(CommaFile, ch);
      if (ch < #9) or (ch > #127) then
        Continue;
      if (ch = #13 then  // line feed character
        Continue;
      if (ch <> COMMA) and (ch <> #10) then // check for tab or new line
        s := s + ch
      else if ch = COMMA then    // Comma found
      begin
        if (not labelsInc) and (row = 1) then // create a col. label
        begin
          namestr := 'VAR ' + IntToStr(col);
          OS3MainFrm.DataGrid.Cells[col, 0] := namestr;
        end;
        OS3MainFrm.DataGrid.Cells[col, row] := astr;
        if col > NoVariables then
        begin
          NoVariables := col;
          OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
        end;
        col := col + 1;
        s := '';
        if col >= OS3MainFrm.DataGrid.ColCount then
          OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount + 1;
      end
      else //must be new line character
      begin
        if (not labelsInc) and (row = 1) then // create a col. label
        begin
          namestr := 'VAR ' + IntToStr(col);
          OS3MainFrm.DataGrid.Cells[col, 0] := namestr;
        end;
        OS3MainFrm.DataGrid.Cells[col, row] := s;
        s := '';
        if col > NoVariables then
        begin
          NoVariables := col;
          OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
        end;
        col := 1;
        if row > NoCases then NoCases := row;
        OS3MainFrm.DataGrid.Cells[0, row] := 'Case ' + IntToStr(row);
        row := row + 1;
        if row >= OS3MainFrm.DataGrid.RowCount then
          OS3MainFrm.DataGrid.RowCount := OS3MainFrm.DataGrid.RowCount + 1;
      end;
    end;  // END OF FILE

    OS3MainFrm.NoCasesEdit.Text := IntToStr(NoCases);
    OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
    CloseFile(CommaFile);
    if NoVariables > OS3MainFrm.DataGrid.ColCount - 1 then
      OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount + 1;

    // set up the dictionary
    DictionaryFrm.DictGrid.RowCount := NoVariables + 1;
    DictionaryFrm.DictGrid.ColCount := 8;
    for row := 1 to NoVariables do
    begin
      DictionaryFrm.DictGrid.Cells[0,row] := IntToStr(row);
      DictionaryFrm.DictGrid.Cells[1,row] := 'VAR.' + IntToStr(row);
      DictionaryFrm.DictGrid.Cells[2,row] := 'VARIABLE ' + IntToStr(row);
      DictionaryFrm.DictGrid.Cells[3,row] := '8';
      DictionaryFrm.DictGrid.Cells[4,row] := 'F';
      DictionaryFrm.DictGrid.Cells[5,row] := '2';
      DictionaryFrm.DictGrid.Cells[6,row] := MissingValueCodes[Options.DefaultMiss];
      DictionaryFrm.DictGrid.Cells[7,row] := 'L';
    end;
    for row := 1 to NoVariables do
    begin
      DictionaryFrm.DictGrid.Cells[1,row] := OS3MainFrm.DataGrid.Cells[row,0];
      VarDefined[row] := true;
    end;
    OS3MainFrm.DataGrid.RowCount := (NoCases + 1);
    OS3MainFrm.DataGrid.ColCount := (NoVariables + 1);
  end;
  GetTypes;
end;
}
           {
procedure SaveCommaFile;
var
   namestr : string;
   cellvalue : string;
   CommaFile : TextFile;
   i, j : integer;

begin
    OS3MainFrm.SaveDialog1.Filter := 'Comma field files (*.CSV)|*.CSV|Text files (*.txt)|*.TXT|All files (*.*)|*.*';
    OS3MainFrm.SaveDialog1.FilterIndex := 1;
    OS3MainFrm.SaveDialog1.DefaultExt := 'CSV';
    if OS3MainFrm.SaveDialog1.Execute then
    begin
    	namestr := OS3MainFrm.SaveDialog1.FileName;
        Assign(CommaFile,namestr);
        ReWrite(CommaFile);
        for i := 0 to NoCases do
        begin
             for j := 1 to NoVariables do   //write all but last with a tab
             begin
                  cellvalue := OS3MainFrm.DataGrid.Cells[j,i];
                  if cellvalue = '' then cellvalue := '.';
                  cellvalue := Trim(cellvalue);
                  if j < NoVariables then cellvalue := cellvalue + ',';
                  write(CommaFile,cellvalue);
            end;
            writeln(CommaFile);
        end;
    end;
    CloseFile(CommaFile);
end;
            }
{
procedure OpenSpaceFile;
label getit;
var
   SpaceFile : TextFile;
   namestr : string;
   astr : string;
   achar : char;
   respval : string;
   labelsinc : boolean;
   row, col : integer;
   spacechar : integer;
   spacefound : boolean;
begin
  Assert(OS3MainFrm <> nil);
  Assert(DictionaryFrm <> nil);

    spacechar := ord(' ');
    spacefound := false;
    labelsinc := false;
    // check for a currently open file
    if NoVariables > 1 then
    begin
       ShowMessage('WARNING! Close (or Save and Close) the current work.');
       exit;
    end;
    respval := InputBox('LABELS?','Are variable labels included?','Y');
    if respval = 'Y' then labelsinc := true;
    OS3MainFrm.OpenDialog1.Filter := 'Comma field files (*.SSV)|*.SSV|Text files (*.txt)|*.TXT|All files (*.*)|*.*';
    OS3MainFrm.OpenDialog1.FilterIndex := 1;
    OS3MainFrm.OpenDialog1.DefaultExt := 'SSV';
    if OS3MainFrm.OpenDialog1.Execute then
    begin
    	NoCases := 0;
        NoVariables := 0;
        if labelsinc = true then row := 0 else row := 1;
        col := 1;
        AssignFile(SpaceFile, OS3MainFrm.OpenDialog1.FileName);   // File selected in dialog box
        Reset(SpaceFile);
        OS3MainFrm.FileNameEdit.Text := OS3MainFrm.OpenDialog1.FileName;
        astr := '';
        while not EOF(SpaceFile) do
        begin
getit:      read(SpaceFile,achar);
            if ord(achar) <> spacechar then spacefound := false;
            if (ord(achar) < 9) or (ord(achar) > 127) then goto getit;
            if ord(achar) = 13 then goto getit; // line feed character
            if (ord(achar) <> spacechar) and (ord(achar) <> 10) then // check for space or new line
            begin
            	astr := astr + achar;
            end
            else if ord(achar) = spacechar then // space character found
            begin
                if spacefound then goto getit; // extra space
                if length(astr) = 0 then goto getit; // leading space
                spacefound := true;
                if (not labelsinc) and (row = 1) then // create a col. label
                begin
                    namestr := 'VAR ' + IntToStr(col);
                    OS3MainFrm.DataGrid.Cells[col,0] := namestr;
                end;
                OS3MainFrm.DataGrid.Cells[col,row] := astr;
                if col > NoVariables then
                begin
                    NoVariables := col;
                    OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
                end;
                col := col + 1;
                astr := '';
                if col >= OS3MainFrm.DataGrid.ColCount then
                    OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount + 1;
            end
            else //must be new line character
            begin
                spacefound := false;
                if (not labelsinc) and (row = 1) then // create a col. label
                begin
                    namestr := 'VAR ' + IntToStr(col);
                    OS3MainFrm.DataGrid.Cells[col,0] := namestr;
                end;
            	OS3MainFrm.DataGrid.Cells[col,row] := astr;
                astr := '';
                if col > NoVariables then
                begin
                    NoVariables := col;
                    OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
                end;
                col := 1;
                if row > NoCases then NoCases := row;
                OS3MainFrm.DataGrid.Cells[0,row] := 'Case ' + IntToStr(row);
                row := row + 1;
                if row >= OS3MainFrm.DataGrid.RowCount then
                     OS3MainFrm.DataGrid.RowCount := OS3MainFrm.DataGrid.RowCount + 1;
            end;
        end;  // END OF FILE
        OS3MainFrm.NoCasesEdit.Text := IntToStr(NoCases);
        OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
        CloseFile(SpaceFile);
        if NoVariables > OS3MainFrm.DataGrid.ColCount - 1 then
           OS3MainFrm.DataGrid.ColCount := OS3MainFrm.DataGrid.ColCount + 1;
    end;
    OS3MainFrm.DataGrid.RowCount := (NoCases + 1);
    OS3MainFrm.DataGrid.ColCount := (NoVariables + 1);
    // set up the dictionary
    DictionaryFrm.DictGrid.RowCount := NoVariables + 1;
    DictionaryFrm.DictGrid.ColCount := 8;
    for row := 1 to NoVariables do
    begin
             DictionaryFrm.DictGrid.Cells[0,row] := IntToStr(row);
             DictionaryFrm.DictGrid.Cells[1,row] := 'VAR.' + IntToStr(row);
             DictionaryFrm.DictGrid.Cells[2,row] := 'VARIABLE ' + IntToStr(row);
             DictionaryFrm.DictGrid.Cells[3,row] := '8';
             DictionaryFrm.DictGrid.Cells[4,row] := 'F';
             DictionaryFrm.DictGrid.Cells[5,row] := '2';
             Dictionaryfrm.DictGrid.Cells[6,row] := MissingValueCodes[Options.DefaultMiss];
             DictionaryFrm.DictGrid.Cells[7,row] := 'L';
    end;
    for row := 1 to NoVariables do
    begin
            DictionaryFrm.DictGrid.Cells[1,row] := OS3MainFrm.DataGrid.Cells[row,0];
            VarDefined[row] := true;
    end;
    GetTypes;
end;
}
         {
procedure SaveSpaceFile;
var
   namestr : string;
   cellvalue : string;
   SpaceFile : TextFile;
   i, j : integer;

begin
  Assert(OS3MainFrm <> nil);

    OS3MainFrm.SaveDialog1.Filter := 'Comma field files (*.SSV)|*.SSV|Text files (*.txt)|*.TXT|All files (*.*)|*.*';
    OS3MainFrm.SaveDialog1.FilterIndex := 1;
    OS3MainFrm.SaveDialog1.DefaultExt := 'SSV';
    if OS3MainFrm.SaveDialog1.Execute then
    begin
    	namestr := OS3MainFrm.SaveDialog1.FileName;
        Assign(SpaceFile,namestr);
        ReWrite(SpaceFile);
        for i := 0 to NoCases do
        begin
             for j := 1 to NoVariables do   //write all but last with a tab
             begin
                  cellvalue := OS3MainFrm.DataGrid.Cells[j,i];
                  if cellvalue = '' then cellvalue := '.';
                  cellvalue := Trim(cellvalue);
                  if j < NoVariables then cellvalue := cellvalue + ' ';
                  write(SpaceFile,cellvalue);
            end;
            writeln(SpaceFile);
        end;
    end;
    CloseFile(SpaceFile);
end;
}

procedure InsertRow;
var
   i, j, row : integer;

begin
  Assert(OS3MainFrm <> nil);

  row := OS3MainFrm.DataGrid.Row;
  OS3MainFrm.DataGrid.RowCount := OS3MainFrm.DataGrid.RowCount + 1;
  NoCases := OS3MainFrm.DataGrid.RowCount-1;
  OS3MainFrm.NoCasesEdit.Text := IntToStr(NoCases);
  for i := NoCases downto row+1 do
    for j := 1 to NoVariables do
      OS3MainFrm.DataGrid.Cells[j,i] := OS3MainFrm.DataGrid.Cells[j,i-1];
  for j := 1 to NoVariables do
    OS3MainFrm.DataGrid.Cells[j,row] := '';
  for i := 1 to NoCases do
    OS3MainFrm.DataGrid.Cells[0,i] := 'CASE ' + IntToStr(i);
end;
//-------------------------------------------------------------------

procedure OpenOSData;
var
   F : TextFile;
   filename : string;
   astr : string;
   i, j : integer;
   NRows, NCols : integer;
begin
  Assert(OS3MainFrm <> nil);
  Assert(DictionaryFrm <> nil);

     DictLoaded := false;
     OS3MainFrm.OpenDialog1.DefaultExt := '.OS2';
     OS3MainFrm.OpenDialog1.Filter := 'OpenStat2 (*.OS2)|*.OS2|Tab (*.tab)|*.TAB|space (*.SPC)|*.SPC|All files (*.*)|*.*';
     OS3MainFrm.OpenDialog1.FilterIndex := 1;
     if OS3MainFrm.OpenDialog1.Execute then
     begin
          filename := OS3MainFrm.OpenDialog1.FileName;
          OS3MainFrm.FileNameEdit.Text := filename;
          AssignFile(F,filename);
          Reset(F);
          Readln(F,NRows);
          readln(F,NCols);

          // initialize the dictionary grid for NCols of variables
          // using the default formats (protective measure in case of
          // a screw-up where the dictionary was damaged
          DictionaryFrm.DictGrid.ColCount := 8;
          DictionaryFrm.DictGrid.RowCount := NRows+1;
          for i := 1 to NCols do
          begin
               DictionaryFrm.DictGrid.Cells[0,i] := IntToStr(i);
               DictionaryFrm.DictGrid.Cells[1,i] := 'VAR.' + IntToStr(i);
               DictionaryFrm.DictGrid.Cells[2,i] := 'VARIABLE ' + IntToStr(i);
               DictionaryFrm.DictGrid.Cells[3,i] := '8';
               DictionaryFrm.DictGrid.Cells[4,i] := 'F';
               DictionaryFrm.DictGrid.Cells[5,i] := '2';
               DictionaryFrm.DictGrid.Cells[6,i] := ' ';
               DictionaryFrm.DictGrid.Cells[7,i] := 'L';
          end;
          DictionaryFrm.DescMemo.Clear;

          // Now read grid data
          OS3MainFrm.DataGrid.RowCount := NRows + 1;
          OS3MainFrm.DataGrid.ColCount := NCols + 1;
          OS3MainFrm.NoCasesEdit.Text := IntToStr(NRows);
          OS3MainFrm.NoVarsEdit.Text := IntToStr(NCols);
          NoVariables := NCols;
          NoCases := NRows;
          // Labels in row 0
          for i := 0 to NRows do
          begin
               // case no. in col. 0
               for j := 0 to NCols do
               begin
                    Readln(F,astr);
                    OS3MainFrm.DataGrid.Cells[j,i] := astr;
               end;
          end;
          CloseFile(F);
          OS3MainFrm.DataGrid.Cells[0,0] := 'CASE/VAR.';

          // copy column names into the data dictionary.
          for i := 1 to NCols do
          begin
             DictionaryFrm.DictGrid.Cells[1,i] := OS3MainFrm.DataGrid.Cells[i,0];
             VarDefined[i] := true;
          end;
          DictionaryFrm.ShowModal;
          FormatGrid;
     end;
end;

procedure ClearGrid;
var
  i, j: integer;
begin
  Assert(OS3MainFrm <> nil);

  for i := 0 to NoCases do
    for j := 0 to NoVariables do OS3MainFrm.DataGrid.Cells[j, i] := '';

  OS3MainFrm.NoVarsEdit.Text := '0';
  OS3MainFrm.NoCasesEdit.Text := '0';
  NoVariables := 0;
  NoCases := 0;
  OS3MainFrm.DataGrid.RowCount := 2;
  OS3MainFrm.DataGrid.ColCount := 2;
  OS3MainFrm.DataGrid.Cells[0,1] := 'CASE 1';
  OS3MainFrm.DataGrid.Cells[0,0] := 'CASE/VAR.';
end;

procedure CopyCellBlock;
var
  rowstart, rowend,colstart, colend, i, j: integer;
  buf: string;
  bf: PChar;
begin
  Assert(OS3MainFrm <> nil);

  Clipboard.Clear;

  rowstart := OS3MainFrm.DataGrid.Selection.Top;
  rowend := OS3MainFrm.DataGrid.Selection.Bottom;
  colstart := OS3MainFrm.DataGrid.Selection.Left;
  colend := OS3MainFrm.DataGrid.Selection.Right;

  buf := '';
  for i := rowstart to rowend do
  begin
    for j := colstart to colend do
    begin
      buf :=  buf + OS3MainFrm.DataGrid.Cells[j,i];
      buf := buf + chr(9); // add a tab
    end;
    buf := buf + chr(13); // add a newline
  end;
  bf := PChar(buf);
  Clipboard.SetTextBuf(bf);
end;

procedure PasteCellBlock;
var
  astring, cellstr : string;
  col, howlong, startcol : integer;
  startrows :integer;
  row, i, j : integer;
//     buf : pchar;
//     strarray : array[0..100000] of char;
  achar : char;
  pos : integer;
begin
   Assert(OS3MainFrm <> nil);
   Assert(DictionaryFrm <> nil);

     row := OS3MainFrm.DataGrid.Row;
     col := OS3MainFrm.DataGrid.Col;
     startrows := row;
     startcol := col;
     if NoVariables = 0 then NoVariables := 1;
     if VarDefined[col] = false then
     begin
          DictionaryFrm.DictGrid.ColCount := 8;
          DictionaryFrm.NewVar(col);
     end;

//     OS3MainFrm.DataGrid.RowCount := OS3MainFrm.DataGrid.RowCount + 1;
     OS3MainFrm.RowEdit.Text := IntToStr(OS3MainFrm.DataGrid.RowCount-1);
     if row < NoCases then // move all down before inserting
     begin
          for i := NoCases downto row do
               for j := 1 to NoVariables do
                   OS3MainFrm.DataGrid.Cells[j,i+1] := OS3MainFrm.DataGrid.Cells[j,i];
     end;
     OS3MainFrm.DataGrid.Row := startrows;
     OS3MainFrm.DataGrid.Col := startcol;

     {
     buf := strarray;
     size := 100000;
     }

    // get clipboard info
    if (Clipboard.HasFormat(CF_TEXT)) then
      astring := Clipboard.AsText
    else
    begin
       ErrorMsg('The clipboard does not contain text.');
       exit;
    end;

    {
    buf := strarray;
    size := 100000;
    ClipBoard.GetTextBuf(buf,size);
    // put buf in a string to parse
    astring := buf;
    }

    howlong := Length(astring);
    pos := 1;
    cellstr := '';
    DictionaryFrm.DictGrid.ColCount := 8;
    DictionaryFrm.DictGrid.RowCount := 2;
    NoVariables := OS3MainFrm.DataGrid.ColCount - 1;
    while howlong > 0 do
    begin
          achar := astring[pos];
          if ord(achar) = 9 then // tab character - end of a grid cell value
          begin
               OS3MainFrm.DataGrid.Cells[col,row] := cellstr;
               col := col + 1;
               if col >= OS3MainFrm.DataGrid.ColCount then
               begin
                    OS3MainFrm.DataGrid.ColCount := col;
                    DictionaryFrm.NewVar(col);
                    NoVariables := col;
               end;
               cellstr := '';
               pos := pos + 1;
               howlong := howlong - 1;
          end;
          if (ord(achar) = 10) then
          begin
               pos := pos + 1;
               howlong := howlong - 1;
          end;
          if (ord(achar) = 12) then
          begin
               pos := pos + 1;
               howlong := howlong - 1;
          end;
          if (ord(achar) = 13) then // return character or new line - end of a row
          begin
               OS3MainFrm.DataGrid.Cells[col,row] := cellstr;
               col := startcol;
               row := row + 1;
               if row >= OS3MainFrm.DataGrid.RowCount then
               begin
                    OS3MainFrm.DataGrid.RowCount := row+1;
                    OS3MainFrm.DataGrid.Cells[0,row] := 'Case ' + IntToStr(row);
               end;

               cellstr := '';
               pos := pos + 1;
               NoCases := row - 1;
               howlong := howlong - 1;
          end;
          if ord(achar) > 13 then
          begin
               cellstr := cellstr + achar;
               pos := pos + 1;
               howlong := howlong - 1;
          end;
    end;

    // delete extraneous row and column
    OS3MainFrm.DataGrid.Col := NoVariables;
    OS3MainFrm.DataGrid.Row := NoCases+1;
    OS3MainFrm.NoCasesEdit.Text := IntToStr(NoCases+1);
    OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
end;

procedure RowColSwap;
VAR
     i, j, Rows, Cols : integer;
     tempgrid : StrDyneMat = nil;
begin
   Assert(OS3MainFrm <> nil);
   Assert(DictionaryFrm <> nil);

     SetLength(tempgrid ,NoCases+1,NoVariables+1);
     Rows := NoCases;
     Cols := NoVariables;

     // store grid values
     for i := 0 to Rows do
     begin
          for j := 0 to Cols do
              tempgrid[i,j] := OS3MainFrm.DataGrid.Cells[j,i];
     end;

     // clear grid
     ClearGrid;

     // clear dictionary
     DictionaryFrm.DictGrid.ColCount := 8;
     DictionaryFrm.DictGrid.RowCount := 1;
     OS3MainFrm.FileNameEdit.Text := '';

     // create new variables = NoCases
     NoVariables := 0;
     for i := 1 to Rows do
     begin
          OS3MainFrm.DataGrid.ColCount := i;
          DictionaryFrm.NewVar(i);
          NoVariables := i;
     end;

     // store previous grid columns into the grid rows
     OS3MainFrm.DataGrid.RowCount := Cols+1;
     for i := 0 to Cols do
     begin
          for j := 1 to Rows do
          begin
               OS3MainFrm.DataGrid.Cells[j,i] := tempgrid[j,i];
          end;
     end;
     for i := 1 to Cols do // OS3MainFrm.DataGrid.Cells[0,i] := 'CASE ' + IntToStr(i);
         OS3MainFrm.DataGrid.Cells[0,i] := tempgrid[0,i];
     // finish up
     NoCases := Cols;
     OS3MainFrm.FileNameEdit.Text := 'SwapTemp';
     OS3MainFrm.NoCasesEdit.Text := IntToStr(Cols);
     OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
     tempgrid := nil;
end;

procedure MatToGrid(const mat: DblDyneMat; nsize: integer);
var
  i, j: integer;
Begin
  Assert(OS3MainFrm <> nil);
  Assert(DictionaryFrm <> nil);

  // clear grid
  ClearGrid;

  // clear dictionary
  DictionaryFrm.DictGrid.ColCount := 8;
  DictionaryFrm.DictGrid.RowCount := 1;
  OS3MainFrm.FileNameEdit.Text := '';

  // create new variables = NoCases
  NoVariables := 0;
  for i := 1 to nsize do
  begin
    OS3MainFrm.DataGrid.ColCount := i;
    DictionaryFrm.NewVar(i);
    NoVariables := i;
  end;

  // store matrix into the grid rows
  OS3MainFrm.DataGrid.RowCount := nsize + 1;
  for i := 0 to nsize-1 do
  begin
    for j := 0 to nsize-1 do
               OS3MainFrm.DataGrid.Cells[i+1,j+1] := FloatToStr(mat[i,j]);
  end;
  for i := 1 to nsize do
  begin
    OS3MainFrm.DataGrid.Cells[0,i] := 'VAR ' + IntToStr(i);
    OS3MainFrm.DataGrid.Cells[i,0] := 'VAR ' + IntToStr(i);
  end;

  // finish up
  NoCases := nsize;
  OS3MainFrm.FileNameEdit.Text := 'MATtemp.laz';
  OS3MainFrm.NoCasesEdit.Text := IntToStr(nsize);
  OS3MainFrm.NoVarsEdit.Text := IntToStr(nsize);
end;

procedure GetTypes;
const
  COMMA = ',';
  PERIOD = '.';
var
  row, col, pos, i, strLen, decPlaces: integer;
  cellstr: string;
  strType, intType, floatType, isNumber: boolean;
  ch: char;
begin
  Assert(OS3MainFrm <> nil);
  Assert(DictionaryFrm <> nil);

  for col := 1 to NoVariables do
  begin
    isNumber := false;
    strType := false;
    intType := false;
    floatType := false;
    for row := 1 to NoCases do
    begin
      cellstr := trim(OS3MainFrm.DataGrid.Cells[col, row]);
      strLen := length(cellstr);

      // check for a number type
      isNumber := true;
      for i := 1 to strLen do
        if (cellstr[i] < ',') or (cellstr[i] > '9') or (cellstr[i] = '/') then
        begin
          isNumber := false;
          break;
        end;
      if not isNumber = false then
        strType := true;
      if isNumber then
      begin // determine if an integer or float number
        for i := 1 to strLen do
        begin
          ch := cellstr[i];
          if (ch = PERIOD) or (ch = COMMA) then
          begin
            floatType := true;
            pos := i;
            break;
          end;
        end;
        if not floatType then
          intType := true;
        if floatType then // get no. of decimal positions
          decPlaces := strLen - pos - 1;
      end; // end if it is a number
    end; // end of row search

    // set dictionary values
    DictionaryFrm.DictGrid.Cells[3, col] := IntToStr(strLen);
    if strType then
    begin
      DictionaryFrm.DictGrid.Cells[4, col] := 'S';
      DictionaryFrm.DictGrid.Cells[5, col] := '0';
    end;
    if intType then
    begin
      DictionaryFrm.DictGrid.Cells[4, col] := 'I';
      DictionaryFrm.DictGrid.Cells[5, col] := '0';
    end;
    if floatType then
    begin
      DictionaryFrm.DictGrid.Cells[4, col] := 'F';
      DictionaryFrm.DictGrid.Cells[5, col] := IntToStr(decPlaces);
    end;
  end; // end of column loop
end;

{ Procedure to convert group strings into group integers with the option
  to save the integers in the grid }
function StringsToInt(StrCol: integer; var newcol: integer; Prompt: boolean): boolean;
var
  i, j, k, NoStrings: integer;
  TempString: string;
  dup: boolean;
  StrGrps: StrdyneVec = nil;
  OneString : StrDyneVec = nil;
  res: TModalResult;
begin
  Result := true;

  Assert(OS3MainFrm <> nil);
  Assert(DictionaryFrm <> nil);

  // Get memory for arrays
  SetLength(StrGrps, NoCases+1);
  SetLength(OneString, NoCases+1);

  // check to see if strcol is a string variable
  if DictionaryFrm.DictGrid.Cells[4,strcol] <> 'S' then
  begin
    ErrorMsg('Column selected is not defined as a string variable');
    exit;
  end;

  // read the strings into the StrGrps array
  for i := 1 to NoCases do
    StrGrps[i-1] := trim(OS3MainFrm.DataGrid.Cells[strcol, i]);

  // sort the StrGrps array
  for i := 0 to NoCases - 1 do
    for j := i + 1 to NoCases - 1 do
      if (StrGrps[i] > StrGrps[j]) then // swap
        Exchange(StrGrps[i], StrGrps[j]);

  // copy unique strings into the OneString array
  TempString := StrGrps[0];
  OneString[0] := TempString;
  NoStrings := 0;
  for i := 1 to NoCases do
  begin
    if (StrGrps[i] <> TempString) then // a new string found
    begin
      for k := 0 to NoCases - 1 do // check for existing
        dup := (TempString = OneString[k]);
      if not dup then
      begin
        NoStrings := NoStrings + 1;
        OneString[NoStrings] := StrGrps[i];
        TempString := StrGrps[i];
      end;
    end;
  end;

  // make a new variable in the grid for the group integers
  DictionaryFrm.NewVar(NoVariables+1);
  DictionaryFrm.DictGrid.Cells[1,NoVariables] := 'GroupCode';
  OS3MainFrm.DataGrid.Cells[NoVariables,0] := 'GroupCode';
  OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);

  DictionaryFrm.DictGrid.Cells[4,NoVariables] := 'I';
  DictionaryFrm.DictGrid.Cells[5,NoVariables] := '0';
  OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVariables);
  newcol := NoVariables;

  // oompare case strings with OneString values and use index+1 for the group code in the data grid
  for i := 1 to NoCases do
  begin
    TempString := OS3MainFrm.DataGrid.Cells[strcol,i];
    for j := 0 to NoCases-1 do
      if (TempString = OneString[j]) then
        OS3MainFrm.DataGrid.Cells[NoVariables,i] := IntToStr(j+1);
  end;

  // see if user wants to save the generated group codes
  if Prompt then
  begin
    res := MessageDlg('Save Code in Grid?', mtConfirmation, [mbYes, mbNo], 0);
    if res <> mrYes then Result := false;
  end;

  // clean up memory
  OneString := nil;
  StrGrps := nil;
end;



end.