Page 1 of 1
Undeclared Identifier siLang1???
Posted: Mon Dec 08, 2003 12:16 am
by bpwagner
I am convinced that I am just being stupid and the answer is obvious, but I just cannot see it
.
Anyway, I was working with tsiLang in unregistered mode and just recently purchased it. Upon installation of the full version, I am no longer able to compile. I am getting an Undeclared identifier: siLang1 error. I looked for it in the type statement for the class and all looks OK. Furthermore the siLang component is on the form and the dfm looks OK. I have done all the normal stuff such as deleting the component and re-creating it.
I am at a loss...Any ideas? I am running Delphi 5 and the latest version 5.2.5 fix1
Thanks,
Brian
Posted: Mon Dec 08, 2003 7:05 am
by isiticov
I can suppose the following:
This piece of code (where you have compilation error) is either included into some
statement or is not under scope of form code which conatins TsiLang component.
So either check this things or you may publish part of your code and we will see what could be wrong.
Posted: Tue Dec 09, 2003 7:01 pm
by bpwagner
Attached is a code snippit. I am still having troubles getting it to compile. I have uninstalled and reinstalled to see if that helps.
Code: Select all
unit Emerg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ComCtrls, jpeg, ExtCtrls, Main, Mask, Gauges, helpdefs, printers,
siComp;
type
TfrmEmerg = class(TForm)
StaticText1: TStaticText;
...snip...
Image1: TImage;
txtPOState: TComboBox;
txtParentState1: TComboBox;
siLang1: TsiLang;
procedure btnDoubleCheckClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
...snip...
procedure BitBtn1Click(Sender: TObject);
private
public
end;
Procedure CmbAutoComplete(cmbTemp : tComboBox);
Procedure AutoCap(Sender: TObject);
var
frmEmerg: TfrmEmerg;
lastkey:word;
implementation
uses EditForm, EMAIL, Report;
{$R *.DFM}
procedure SaveEmergFields();
begin
if IsDirty(frmEmerg.tabStep1) or
IsDirty(frmEmerg.tabStep2) or
IsDirty(frmEmerg.tabStep3) or
IsDirty(frmEmerg.tabStep4) or
IsDirty(frmEmerg.tabStep5) or
IsDirty(frmEmerg.tabStep6) or
IsDirty(frmEmerg.panelAbductor) then
if MessageDlg(siLang1.GetTextOrDefault('IDS_0' (* 'Do you want to save your information?' *) ),
*** The error happens at the above siLang ***
The problem happens at the siLang1.GetTextOrDefault place. Any ideas?
Thanks, Brian
Posted: Tue Dec 09, 2003 9:18 pm
by bpwagner
I figured it out...I did not reference the form frmEmerg.siLang1.GetTextOrDefault... duh
Thanks Brian