pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Make grid-related procedures in DataProcs needed by CrossTabUnit independent of MainForm. Clean-up.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7713 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-28 21:37:49 +00:00
parent 72015121c4
commit a8ee917195
2 changed files with 36 additions and 599 deletions
Download Patch File Download Diff File Expand all files Collapse all files

151
applications/lazstats/source/forms/analysis/descriptive/crosstabunit.pas
View File

@ -67,6 +67,7 @@ uses
Math, Grids,
Utils, DictionaryUnit;
{ TCrossTabCalculator }
type
@ -90,10 +91,6 @@ type
function IndexPosition(x: IntDyneVec): integer;
procedure Tabulate;
function GoodRecord(Row, NoVars: integer; const GridPos: IntDyneVec): boolean;
function IsFiltered(GridRow: integer): boolean;
function ValidValue(row, col: integer): boolean;
public
procedure Execute(AReport: TStrings; ADataGrid: TStringGrid;
AVarList, AColNoSelected: IntDyneVec);
@ -235,13 +232,13 @@ begin
for i := 1 to no_in_list do
begin
j := FVarList[i-1];
if not GoodRecord(1, NoSelected, FColNoSelected) then continue;
if not GoodRecord(FDataGrid, 1, NoSelected, FColNoSelected) then continue;
value := StrToFloat(FDataGrid.Cells[j, 1]);
min_value[i-1] := round(value);
max_value[i-1] := round(value);
for k := 2 to NoCases do
begin
if not GoodRecord(k, NoSelected, FColNoSelected) then continue;
if not GoodRecord(FDataGrid, k, NoSelected, FColNoSelected) then continue;
value := StrToFloat(FDataGrid.Cells[j, k]);
if value < min_value[i-1] then
min_value[i-1] := round(value);
@ -267,21 +264,6 @@ begin
end;
function TCrossTabCalculator.GoodRecord(Row, NoVars: integer;
const GridPos: IntDyneVec): boolean;
var
i, j: integer;
begin
Result := true;
for i := 0 to NoVars-1 do
begin
j := GridPos[i];
if not ValidValue(Row, j) then
Result := false;
end;
end;
function TCrossTabCalculator.IndexPosition(x: IntDyneVec): integer;
var
i: integer;
@ -295,12 +277,6 @@ begin
end;
function TCrossTabCalculator.IsFiltered(GridRow: integer): boolean;
begin
Result := FilterOn and (Trim(FDataGrid.Cells[FilterCol,GridRow]) = 'NO');
end;
procedure TCrossTabCalculator.Tabulate;
var
i, j, k: integer;
@ -337,128 +313,7 @@ begin
end;
function TCrossTabCalculator.ValidValue(row, col: integer): boolean;
var
valid: boolean;
xvalue: string;
cellstring: string;
begin
valid := true;
if FilterOn then
begin
cellstring := Trim(FDataGrid.Cells[FilterCol, row]);
if cellstring = 'NO' then valid := false;
Result := valid;
exit;
end;
xvalue := Trim(FDataGrid.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;
{ TCrossTabFrm }
(*
procedure TCrossTabFrm.BreakDown(AReport: TStrings);
label 1,2,3,4, printgrid;
var
i, j, row, col, bigmax: integer;
outline: string;
value: string;
title: String;
begin
bigmax := -1;
for i := 0 to no_in_list-1 do
if Levels[i] > bigmax then bigmax := Levels[i];
SetLength(colLabels,bigmax);
SetLength(outgrid,length_array,bigmax);
SetLength(rowlabels,length_array);
outline := OS3MainFrm.DataGrid.Cells[var_list[no_in_list-1], 0];
for col := 1 to Levels[no_in_list-1] do
collabels[col-1] := outline + Format(':%3d', [min_value[no_in_list-1] + col - 1]);
for row := 1 to length_array do
rowlabels[row-1] := '';
ptr1 := no_in_list - 1;
ptr2 := no_in_list;
for i := 1 to no_in_list do
subscript[i-1] := 1;
AReport.Add('FREQUENCIES BY LEVEL:');
sum := 0;
col := 1;
row := 1;
1:
index := IndexPosition(subscript);
outline := 'For cell levels: ';
for i := 1 to no_in_list do
begin
j := var_list[i-1];
value := Format('%s:%3d ',[OS3MainFrm.DataGrid.Cells[j,0], min_value[i-1] + subscript[i-1] - 1]);
outline := outline + value;
end;
sum := sum + freq[index];
outgrid[row-1,col-1] := freq[index];
outline := outline + Format(' Frequency = %3d', [freq[index]]);
AReport.Add(outline);
subscript[ptr2-1] := subscript[ptr2-1] + 1;
col := col + 1;
if subscript[ptr2-1] <= levels[ptr2-1] then
goto 1;
AReport.Add('Sum across levels = %3d', [sum]);
AReport.Add('');
AReport.Add('');
grandsum := grandsum + sum;
sum := 0;
row := row + 1;
2:
if ptr1 < 1 then
goto printgrid;
subscript[ptr1-1] := subscript[ptr1-1] + 1;
if subscript[ptr1-1] <= levels[ptr1-1] then
goto 4;
3:
ptr1 := ptr1 - 1;
if ptr1 < 1 then
goto printgrid;
if subscript[ptr1-1] >= levels[ptr1-1] then
goto 3;
subscript[ptr1-1] := subscript[ptr1-1] + 1;
4:
for i := ptr1 + 1 to no_in_list do
subscript[i-1] := 1;
ptr1 := no_in_list - 1;
col := 1;
goto 1;
printgrid:
title := 'Cell Frequencies by Levels';
for i := 1 to row - 1 do
begin
value := format('Block %d',[i]);
rowlabels[i-1] := value;
end;
MatPrint(outgrid,row-1,Levels[no_in_list-1],title,rowlabels,collabels,NC, AReport);
end; { Procedure BREAKDOWN }
*)
procedure TCrossTabFrm.CloseBtnClick(Sender: TObject);
begin

484
applications/lazstats/source/units/dataprocs.pas
View File

@ -6,10 +6,12 @@ interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, Clipbrd,
StdCtrls, ExtCtrls, Clipbrd, Grids,
Globals, OptionsUnit, DictionaryUnit;
Function GoodRecord(Row, NoVars: integer; const GridPos: IntDyneVec): boolean;
Function GoodRecord(Row, NoVars: integer; const GridPos: IntDyneVec): boolean; overload;
Function GoodRecord(AGrid: TStringGrid; Row, NoVars: integer; const GridPos: IntDyneVec): boolean; overload;
procedure FormatCell(Col, Row : integer);
procedure FormatGrid;
function IsNumeric(s : string) : boolean;
@ -27,8 +29,10 @@ procedure CopyRow;
procedure PasteRow;
procedure PrintDict(AReport: TStrings);
procedure PrintData(AReport: TStrings);
function ValidValue(row, col: integer): boolean;
function IsFiltered(GridRow: integer): boolean;
function ValidValue(row, col: integer): boolean; overload;
function ValidValue(AGrid: TStringGrid; row, col: integer): boolean; overload;
function IsFiltered(GridRow: integer): boolean; overload;
function IsFiltered(AGrid: TStringGrid; GridRow: integer): boolean; overload;
procedure MatRead(const a: DblDyneMat; out NoRows, NoCols: integer;
const Means, StdDevs: DblDyneVec; out NCases: integer;
@ -62,7 +66,13 @@ implementation
uses
Utils, MainUnit;
Function GoodRecord(Row, NoVars: integer; const GridPos: IntDyneVec): boolean;
function GoodRecord(Row, NoVars: Integer; const GridPos: IntDyneVec): boolean;
begin
Result := GoodRecord(OS3MainFrm.DataGrid, Row, NoVars, GridPos);
end;
function GoodRecord(AGrid: TStringGrid; Row, NoVars: integer;
const GridPos: IntDyneVec): boolean;
var
i, j: integer;
begin
@ -70,7 +80,7 @@ begin
for i := 0 to NoVars-1 do
begin
j := GridPos[i];
if not ValidValue(Row, j) then
if not ValidValue(AGrid, Row, j) then
Result := false;
end;
end;
@ -737,128 +747,6 @@ 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
@ -913,7 +801,12 @@ begin
SaveSeparatorFile(' ', SSV_FILE_FILTER, 'ssv');
end;
function ValidValue(row, col: integer): boolean;
function ValidValue(row, col: Integer): Boolean;
begin
Result := ValidValue(OS3MainFrm.DataGrid, row, col);
end;
function ValidValue(AGrid: TStringGrid; row, col: integer): boolean;
var
valid: boolean;
xvalue: string;
@ -922,13 +815,13 @@ begin
valid := true;
if FilterOn then
begin
cellstring := Trim(OS3MainFrm.DataGrid.Cells[FilterCol, row]);
cellstring := Trim(AGrid.Cells[FilterCol, row]);
if cellstring = 'NO' then valid := false;
Result := valid;
exit;
end;
xvalue := Trim(OS3MainFrm.DataGrid.Cells[col,row]);
xvalue := Trim(AGrid.Cells[col,row]);
if (xvalue = '') and (DictionaryFrm.DictGrid.Cells[4, col] <> 'S') then
valid := false;
if valid then // check for user-defined missing value
@ -939,11 +832,17 @@ begin
Result := valid;
end;
function IsFiltered(GridRow: integer): boolean;
function IsFiltered(GridRow: Integer): Boolean;
begin
Result := FilterOn and (Trim(OS3MainFrm.DataGrid.Cells[FilterCol,GridRow]) = 'NO');
Result := IsFiltered(OS3MainFrm.DataGrid, GridRow);
end;
function IsFiltered(AGrid: TStringGrid; GridRow: integer): boolean;
begin
Result := FilterOn and (Trim(AGrid.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);
@ -997,6 +896,7 @@ begin
CloseFile(mat_file);
end; { matrix save routine }
procedure ReOpen(AFilename: string);
var
fileExt: string;
@ -1018,324 +918,6 @@ begin
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