Undeclared Identifier siLang1???

All announcements, questions and issues related to the TsiLang Components Suite.
Post Reply
bpwagner
Posts: 3
Joined: Mon Dec 08, 2003 12:06 am

Undeclared Identifier siLang1???

Post by bpwagner »

I am convinced that I am just being stupid and the answer is obvious, but I just cannot see it :roll: .

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
isiticov
Site Admin
Posts: 2383
Joined: Thu Nov 21, 2002 3:17 pm

Post by isiticov »

I can suppose the following:
This piece of code (where you have compilation error) is either included into some

Code: Select all

with someobject do ...
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.
bpwagner
Posts: 3
Joined: Mon Dec 08, 2003 12:06 am

Post 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
bpwagner
Posts: 3
Joined: Mon Dec 08, 2003 12:06 am

Post by bpwagner »

:oops:
I figured it out...I did not reference the form frmEmerg.siLang1.GetTextOrDefault... duh

Thanks Brian
Post Reply