Delphi Editbox causing unexplainable errors...
- by NeoNMD
On a form I have 8 edit boxes that I do the exact same thing with.
They are arranged in 2 sets of 4, one is Upper and the other is Lower.
I kept getting errors clearing all the edit boxes so I went through clearing them 1 by 1 and found that 1 of the edit boxes just didnt work and when I tried to run the program and change that exit box it caused the debugger to jump to a point in the code with the database (even though the edit boxes had nothing to do with the database and they arent in a procedure or stack with a database in it) and say the program has access violation there.
So I then removed all mention of that edit box and the code worked perfectly again, so I deleted that edit box, copied and pasted another edit box and left all values the same, then went through my code and copied the code from the other sections and simply renamed it for the new Edit box and it STILL causes an error even though it is entirely new.
I cannot figure it out so I ask you all, what the hell?
The editbox in question is "Edit1"
unit DefinitionCoreV2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SQLiteTable3, StdCtrls;
type
TDefinitionFrm = class(TForm)
GrpCompetition: TGroupBox;
CmbCompSele: TComboBox;
BtnCompetitionAdd: TButton;
BtnCompetitionUpdate: TButton;
BtnCompetitionRevert: TButton;
GrpCompetitionDetails: TGroupBox;
LblCompetitionIDTitle: TLabel;
EdtCompID: TEdit;
LblCompetitionDescriptionTitle: TLabel;
EdtCompDesc: TEdit;
LblCompetitionNotesTitle: TLabel;
EdtCompNote: TEdit;
LblCompetitionLocationTitle: TLabel;
EdtCompLoca: TEdit;
BtnCompetitionDelete: TButton;
GrpSection: TGroupBox;
LblSectionID: TLabel;
LblGender: TLabel;
LblAge: TLabel;
LblLevel: TLabel;
LblWeight: TLabel;
LblType: TLabel;
LblHeight: TLabel;
LblCompetitionID: TLabel;
BtnSectionAdd: TButton;
EdtSectionID: TEdit;
CmbGender: TComboBox;
BtnSectionUpdate: TButton;
BtnSectionRevert: TButton;
CmbAgeRange: TComboBox;
CmbLevelRange: TComboBox;
CmbType: TComboBox;
CmbWeightRange: TComboBox;
CmbHeightRange: TComboBox;
EdtSectCompetitionID: TEdit;
BtnSectionDelete: TButton;
GrpSectionDetails: TGroupBox;
EdtLowerAge: TEdit;
EdtLowerWeight: TEdit;
EdtLowerHeight: TEdit;
EdtUpperAge: TEdit;
EdtUpperLevel: TEdit;
EdtUpperWeight: TEdit;
EdtUpperHeight: TEdit;
LblAgeRule: TLabel;
LblLevelRule: TLabel;
LblWeightRule: TLabel;
LblHeightRule: TLabel;
LblCompetitionSelect: TLabel;
LblSectionSelect: TLabel;
CmbSectSele: TComboBox;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure BtnCompetitionAddClick(Sender: TObject);
procedure CmbCompSeleChange(Sender: TObject);
procedure BtnCompetitionUpdateClick(Sender: TObject);
procedure BtnCompetitionRevertClick(Sender: TObject);
procedure BtnCompetitionDeleteClick(Sender: TObject);
procedure CmbSectSeleChange(Sender: TObject);
procedure BtnSectionAddClick(Sender: TObject);
procedure BtnSectionUpdateClick(Sender: TObject);
procedure BtnSectionRevertClick(Sender: TObject);
procedure BtnSectionDeleteClick(Sender: TObject);
procedure CmbAgeRangeChange(Sender: TObject);
procedure CmbLevelRangeChange(Sender: TObject);
procedure CmbWeightRangeChange(Sender: TObject);
procedure CmbHeightRangeChange(Sender: TObject);
private
procedure UpdateCmbCompSele;
procedure AddComp;
procedure RevertComp;
procedure AddSect;
procedure RevertSect;
procedure UpdateCmbSectSele;
procedure ClearSect;
{ Private declarations }
public
{ Public declarations }
end;
var
DefinitionFrm: TDefinitionFrm;
implementation
{$R *.dfm}
procedure TDefinitionFrm.UpdateCmbCompSele;
var
slDBpath: string;
sldb : TSQLiteDatabase;
sltb : TSQLiteTable;
sCompTitle : string;
bNext : boolean;
begin
slDBPath := ExtractFilepath(application.exename)+ 'Competitions.db';
if not FileExists(slDBPath) then
begin
MessageDlg('Competitions.db does not exist.',mtInformation,[mbOK],0);
exit;
end;
sldb := TSQLiteDatabase.Create(slDBPath);
try
sltb := slDb.GetTable('SELECT * FROM CompetitionTable');
try
CmbCompSele.Items.Clear;
Repeat
begin
sCompTitle:=sltb.FieldAsString(sltb.FieldIndex['CompetitionID'])+':'+sltb.FieldAsString(sltb.FieldIndex['Description']);
CmbCompSele.Items.Add(sCompTitle);
bNext := sltb.Next;
end;
Until sltb.EOF;
finally
sltb.Free;
end;
finally
sldb.Free;
end;
end;
procedure TDefinitionFrm.UpdateCmbSectSele;
var
slDBpath: string;
sldb : TSQLiteDatabase;
sltb : TSQLiteTable;
sSQL : string;
sSectTitle : string;
bNext : boolean;
bLast : boolean;
begin
slDBPath := ExtractFilepath(application.exename)+ 'Competitions.db';
if not FileExists(slDBPath) then
begin
MessageDlg('Competitions.db does not exist.',mtInformation,[mbOK],0);
exit;
end;
sldb := TSQLiteDatabase.Create(slDBPath);
try
sltb := slDb.GetTable('SELECT * FROM SectionTable WHERE CompetitionID = '+EdtCompID.text);
If sltb.RowCount =0 then
begin
sltb := slDb.GetTable('SELECT * FROM SectionTable');
bLast:= sltb.MoveLast;
sSQL := 'INSERT INTO SectionTable(SectionID,CompetitionID,Gender,Type) VALUES ('+IntToStr(sltb.FieldAsInteger(sltb.FieldIndex['SectionID'])+1)+','+EdtCompID.text+',1,1)';
sldb.ExecSQL(sSQL);
sltb := slDb.GetTable('SELECT * FROM SectionTable WHERE CompetitionID = '+EdtCompID.text);
end;
try
CmbSectSele.Items.Clear;
Repeat
begin
sSectTitle:=sltb.FieldAsString(sltb.FieldIndex['SectionID'])+':'+sltb.FieldAsString(sltb.FieldIndex['Type'])+':'+sltb.FieldAsString(sltb.FieldIndex['Gender'])+':'+sltb.FieldAsString(sltb.FieldIndex['Age'])+':'+sltb.FieldAsString(sltb.FieldIndex['Level'])+':'+sltb.FieldAsString(sltb.FieldIndex['Weight'])+':'+sltb.FieldAsString(sltb.FieldIndex['Height']);
CmbSectSele.Items.Add(sSectTitle); //CmbType.Items.Strings[sltb.FieldAsInteger(sltb.FieldIndex['Type'])] Works but has logic errors
bNext := sltb.Next;
end;
Until sltb.EOF;
finally
sltb.Free;
end;
finally
sldb.Free;
end;
end;
procedure TDefinitionFrm.AddComp;
var
slDBpath: string;
sSQL : string;
sldb : TSQLiteDatabase;
sltb : TSQLiteTable;
bLast : boolean;
begin
slDBPath := ExtractFilepath(application.exename)+ 'Competitions.db';
if not FileExists(slDBPath) then
begin
MessageDlg('Competitions.db does not exist.',mtInformation,[mbOK],0);
exit;
end;
sldb := TSQLiteDatabase.Create(slDBPath);
try
sltb := slDb.GetTable('SELECT * FROM CompetitionTable');
try
bLast:= sltb.MoveLast;
sSQL := 'INSERT INTO CompetitionTable(CompetitionID,Description) VALUES ('+IntToStr(sltb.FieldAsInteger(sltb.FieldIndex['CompetitionID'])+1)+',"New Competition")';
sldb.ExecSQL(sSQL);
finally
sltb.Free;
end;
finally
sldb.Free;
end;
UpdateCmbCompSele;
end;
procedure TDefinitionFrm.AddSect;
var
slDBpath: string;
sSQL : string;
sldb : TSQLiteDatabase;
sltb : TSQLiteTable;
bLast : boolean;
begin
slDBPath := ExtractFilepath(application.exename)+ 'Competitions.db';
if not FileExists(slDBPath) then
begin
MessageDlg('Competitions.db does not exist.',mtInformation,[mbOK],0);
exit;
end;
sldb := TSQLiteDatabase.Create(slDBPath);
try
sltb := slDb.GetTable('SELECT * FROM SectionTable');
try
bLast:= sltb.MoveLast;
sSQL := 'INSERT INTO SectionTable(SectionID,CompetitionID,Gender,Type) VALUES ('+IntToStr(sltb.FieldAsInteger(sltb.FieldIndex['SectionID'])+1)+','+EdtCompID.text+',1,1)';
sldb.ExecSQL(sSQL);
finally
sltb.Free;
end;
finally
sldb.Free;
end;
UpdateCmbSectSele;
end;
procedure TDefinitionFrm.RevertComp;
var
slDBpath: string;
sldb : TSQLiteDatabase;
sltb : TSQLiteTable;
iID : integer;
begin
slDBPath := ExtractFilepath(application.exename)+ 'Competitions.db';
if not FileExists(slDBPath) then
begin
MessageDlg('Competitions.db does not exist.',mtInformation,[mbOK],0);
exit;
end;
sldb := TSQLiteDatabase.Create(slDBPath);
try
If CmbCompSele.Text <> '' then
begin
iID := StrToInt(Copy(CmbCompSele.Text,0,Pos(':',CmbCompSele.Text)-1));
sltb := slDb.GetTable('SELECT * FROM CompetitionTable WHERE CompetitionID='+IntToStr(iID))//ItemIndex starts at 0, CompID at 1
end
else
sltb := slDb.GetTable('SELECT * FROM CompetitionTable WHERE CompetitionID=1');
try
EdtCompID.Text:=sltb.FieldAsString(sltb.FieldIndex['CompetitionID']);
EdtCompLoca.Text:=sltb.FieldAsString(sltb.FieldIndex['Location']);
EdtCompDesc.Text:=sltb.FieldAsString(sltb.FieldIndex['Description']);
EdtCompNote.Text:=sltb.FieldAsString(sltb.FieldIndex['Notes']);
finally
sltb.Free;
end;
finally
sldb.Free;
end;
end;
procedure TDefinitionFrm.RevertSect;
var
slDBpath: string;
sldb : TSQLiteDatabase;
sltb : TSQLiteTable;
iID : integer;
sTemp : string;
begin
slDBPath := ExtractFilepath(application.exename)+ 'Competitions.db';
if not FileExists(slDBPath) then
begin
MessageDlg('Competitions.db does not exist.',mtInformation,[mbOK],0);
exit;
end;
sldb := TSQLiteDatabase.Create(slDBPath);
try
If CmbCompSele.Text <> '' then
begin
iID := StrToInt(Copy(CmbSectSele.Text,0,Pos(':',CmbSectSele.Text)-1));
sltb := slDb.GetTable('SELECT * FROM SectionTable WHERE SectionID='+IntToStr(iID));//ItemIndex starts at 0, CompID at 1
end
else
sltb := slDb.GetTable('SELECT * FROM SectionTable WHERE CompetitionID='+EdtCompID.Text);
try
EdtSectionID.Text:=sltb.FieldAsString(sltb.FieldIndex['SectionID']);
EdtSectCompetitionID.Text:=sltb.FieldAsString(sltb.FieldIndex['CompetitionID']);
Case sltb.FieldAsInteger(sltb.FieldIndex['Type']) of
1 : CmbType.ItemIndex:=0;
2 : CmbType.ItemIndex:=0;
3 : CmbType.ItemIndex:=1;
4 : CmbType.ItemIndex:=1;
end;
Case sltb.FieldAsInteger(sltb.FieldIndex['Gender']) of
1 : CmbGender.ItemIndex:=0;
2 : CmbGender.ItemIndex:=1;
3 : CmbGender.ItemIndex:=2;
end;
sTemp := sltb.FieldAsString(sltb.FieldIndex['Age']);
if sTemp <> '' then
begin
//Decode
end
else
begin
LblAgeRule.Hide;
EdtLowerAge.Text :='';
EdtLowerAge.Hide;
EdtUpperAge.Text :='';
EdtUpperAge.Hide;
end;
sTemp := sltb.FieldAsString(sltb.FieldIndex['Level']);
if sTemp <> '' then
begin
//Decode
end
else
begin
LblLevelRule.Hide;
Edit1.Text :='';
Edit1.Hide;
EdtUpperLevel.Text :='';
EdtUpperLevel.Hide;
end;
sTemp := sltb.FieldAsString(sltb.FieldIndex['Weight']);
if sTemp <> '' then
begin
//Decode
end
else
begin
LblWeightRule.Hide;
EdtLowerWeight.Text :='';
EdtLowerWeight.Hide;
EdtUpperWeight.Text :='';
EdtUpperWeight.Hide;
end;
sTemp := sltb.FieldAsString(sltb.FieldIndex['Height']);
if sTemp <> '' then
begin
//Decode
end
else
begin
LblHeightRule.Hide;
EdtLowerHeight.Text :='';
EdtLowerHeight.Hide;
EdtUpperHeight.Text :='';
EdtUpperHeight.Hide;
end;
finally
sltb.Free;
end;
finally
sldb.Free;
end;
end;
procedure TDefinitionFrm.BtnCompetitionAddClick(Sender: TObject);
begin
AddComp
end;
procedure TDefinitionFrm.ClearSect;
begin
CmbSectSele.Clear;
EdtSectionID.Text:='';
EdtSectCompetitionID.Text:='';
CmbType.Clear;
CmbGender.Clear;
CmbAgeRange.Clear;
EdtLowerAge.Text:='';
EdtUpperAge.Text:='';
CmbLevelRange.Clear;
Edit1.Text:='';
EdtUpperLevel.Text:='';
CmbWeightRange.Clear;
EdtLowerWeight.Text:='';
EdtUpperWeight.Text:='';
CmbHeightRange.Clear;
EdtLowerHeight.Text:='';
EdtUpperHeight.Text:='';
end;
procedure TDefinitionFrm.CmbCompSeleChange(Sender: TObject);
begin
If CmbCompSele.ItemIndex <> -1 then
begin
RevertComp;
GrpSection.Enabled:=True;
CmbSectSele.Clear;
ClearSect;
UpdateCmbSectSele;
end;
end;
procedure TDefinitionFrm.BtnCompetitionUpdateClick(Sender: TObject);
var
slDBpath: string;
sSQL : string;
sldb : TSQLiteDatabase;
begin
slDBPath := ExtractFilepath(application.exename)+ 'Competitions.db';
if not FileExists(slDBPath) then
begin
MessageDlg('Competitions.db does not exist.',mtInformation,[mbOK],0);
exit;
end;
sldb := TSQLiteDatabase.Create(slDBPath);
try
sSQL:= 'UPDATE CompetitionTable SET Description="'+EdtCompDesc.Text+'",Location="'+EdtCompLoca.Text+'",Notes="'+EdtCompNote.Text+'" WHERE CompetitionID ="'+EdtCompID.Text+'";';
sldb.ExecSQL(sSQL);
finally
sldb.Free;
end;
end;
procedure TDefinitionFrm.BtnCompetitionRevertClick(Sender: TObject);
begin
RevertComp;
end;
procedure TDefinitionFrm.BtnCompetitionDeleteClick(Sender: TObject);
var
slDBpath: string;
sSQL : string;
sldb : TSQLiteDatabase;
iID : integer;
begin
If CmbCompSele.Text <> '' then
begin
If (CmbCompSele.Text[1] ='1') and (CmbCompSele.Text[2] =':') then
begin
MessageDlg('Deleting the last record is a very bad idea :/',mtInformation,[mbOK],0);
end
else
begin
slDBPath := ExtractFilepath(application.exename)+ 'Competitions.db';
if not FileExists(slDBPath) then
begin
MessageDlg('Competitions.db does not exist.',mtInformation,[mbOK],0);
exit;
end;
sldb := TSQLiteDatabase.Create(slDBPath);
try
iID := StrToInt(Copy(CmbCompSele.Text,0,Pos(':',CmbCompSele.Text)-1));
sSQL:= 'DELETE FROM SectionTable WHERE CompetitionID='+IntToStr(iID)+';';
sldb.ExecSQL(sSQL);
sSQL:= 'DELETE FROM CompetitionTable WHERE CompetitionID='+IntToStr(iID)+';';
sldb.ExecSQL(sSQL);
finally
sldb.Free;
end;
CmbCompSele.ItemIndex:=0;
UpdateCmbCompSele;
RevertComp;
CmbCompSele.Text:='Select Competition';
end;
end;
end;
procedure TDefinitionFrm.FormCreate(Sender: TObject);
begin
UpdateCmbCompSele;
end;
procedure TDefinitionFrm.CmbSectSeleChange(Sender: TObject);
begin
RevertSect;
end;
procedure TDefinitionFrm.BtnSectionAddClick(Sender: TObject);
begin
AddSect;
end;
procedure TDefinitionFrm.BtnSectionUpdateClick(Sender: TObject); //change fields values
var
slDBpath: string;
sSQL : string;
sldb : TSQLiteDatabase;
iTypeCode : integer;
iGenderCode : integer;
sAgeStr,
sLevelStr,
sWeightStr,
sHeightStr : string;
begin
slDBPath := ExtractFilepath(application.exename)+ 'Competitions.db';
if not FileExists(slDBPath) then
begin
MessageDlg('Competitions.db does not exist.',mtInformation,[mbOK],0);
exit;
end;
sldb := TSQLiteDatabase.Create(slDBPath);
try
If CmbType.Text='Fighting' then
iTypeCode := 1
else
iTypeCode := 3;
If CmbGender.Text='Male' then
iGenderCode := 1
else if CmbGender.Text='Female' then
iGenderCode := 2
else
iGenderCode := 3;
Case CmbAgeRange.ItemIndex of
0:sAgeStr := 'o-'+EdtLowerAge.Text;
1:sAgeStr := 'u-'+EdtLowerAge.Text;
2:sAgeStr := EdtLowerAge.Text+'-'+EdtUpperAge.Text;
end;
Case CmbLevelRange.ItemIndex of
0:sLevelStr := 'o-'+Edit1.Text;
1:sLevelStr := 'u-'+Edit1.Text;
2:sLevelStr := Edit1.Text+'-'+EdtUpperLevel.Text;
end;
Case CmbWeightRange.ItemIndex of
0:sWeightStr := 'o-'+EdtLowerWeight.Text;
1:sWeightStr := 'u-'+EdtLowerWeight.Text;
2:sWeightStr := EdtLowerWeight.Text+'-'+EdtUpperWeight.Text;
end;
Case CmbHeightRange.ItemIndex of
0:sHeightStr := 'o-'+EdtLowerHeight.Text;
1:sHeightStr := 'u-'+EdtLowerHeight.Text;
2:sHeightStr := EdtLowerHeight.Text+'-'+EdtUpperHeight.Text;
end;
sSQL:= 'UPDATE SectionTable SET Type="'+IntToStr(iTypeCode)+'",Gender="'+IntToStr(iGenderCode)+'" WHERE SectionID ="'+EdtSectionID.Text+'";';
sldb.ExecSQL(sSQL);
finally
sldb.Free;
end;
end;
procedure TDefinitionFrm.BtnSectionRevertClick(Sender: TObject);
begin
RevertSect;
end;
procedure TDefinitionFrm.BtnSectionDeleteClick(Sender: TObject);
var
slDBpath: string;
sSQL : string;
sldb : TSQLiteDatabase;
begin
If CmbSectSele.Text[1] ='1' then
begin
MessageDlg('Deleting the last record is a very bad idea :/',mtInformation,[mbOK],0);
end
else
begin
slDBPath := ExtractFilepath(application.exename)+ 'Competitions.db';
if not FileExists(slDBPath) then
begin
MessageDlg('Competitions.db does not exist.',mtInformation,[mbOK],0);
exit;
end;
sldb := TSQLiteDatabase.Create(slDBPath);
try
sSQL:= 'DELETE FROM SectionTable WHERE SectionID='+CmbSectSele.Text[1]+';';
sldb.ExecSQL(sSQL);
finally
sldb.Free;
end;
CmbSectSele.ItemIndex:=0;
UpdateCmbSectSele;
RevertSect;
CmbSectSele.Text:='Select Competition';
end;
end;
procedure TDefinitionFrm.CmbAgeRangeChange(Sender: TObject);
begin
Case CmbAgeRange.ItemIndex of
0: begin
EdtLowerAge.Show;
LblAgeRule.Caption:='Over and including';
LblAgeRule.Show;
EdtUpperAge.Hide;
end;
1: begin
EdtLowerAge.Show;
LblAgeRule.Caption:='Under and including';
LblAgeRule.Show;
EdtUpperAge.Hide;
end;
2: begin
EdtLowerAge.Show;
LblAgeRule.Caption:='LblAgeRule';
LblAgeRule.Hide;
EdtUpperAge.Show;
end;
end;
end;
procedure TDefinitionFrm.CmbLevelRangeChange(Sender: TObject);
begin
Case CmbLevelRange.ItemIndex of
0: begin
Edit1.Show;
LblLevelRule.Caption:='Over and including';
LblLevelRule.Show;
EdtUpperLevel.Hide;
end;
1: begin
Edit1.Show;
LblLevelRule.Caption:='Under and including';
LblLevelRule.Show;
EdtUpperLevel.Hide;
end;
2: begin
Edit1.Show;
LblLevelRule.Caption:='LblLevelRule';
LblLevelRule.Hide;
EdtUpperLevel.Show;
end;
end;
end;
procedure TDefinitionFrm.CmbWeightRangeChange(Sender: TObject);
begin
Case CmbWeightRange.ItemIndex of
0: begin
EdtLowerWeight.Show;
LblWeightRule.Caption:='Over and including';
LblWeightRule.Show;
EdtUpperWeight.Hide;
end;
1: begin
EdtLowerWeight.Show;
LblWeightRule.Caption:='Under and including';
LblWeightRule.Show;
EdtUpperWeight.Hide;
end;
2: begin
EdtLowerWeight.Show;
LblWeightRule.Caption:='LblWeightRule';
LblWeightRule.Hide;
EdtUpperWeight.Show;
end;
end;
end;
procedure TDefinitionFrm.CmbHeightRangeChange(Sender: TObject);
begin
Case CmbHeightRange.ItemIndex of
0: begin
EdtLowerHeight.Show;
LblHeightRule.Caption:='Over and including';
LblHeightRule.Show;
EdtUpperHeight.Hide;
end;
1: begin
EdtLowerHeight.Show;
LblHeightRule.Caption:='Under and including';
LblHeightRule.Show;
EdtUpperHeight.Hide;
end;
2: begin
EdtLowerHeight.Show;
LblHeightRule.Caption:='LblHeightRule';
LblHeightRule.Hide;
EdtUpperHeight.Show;
end;
end;
end;
end.
