Line 35: [Error] (16350:33): Type mismatch in script C:\Program Files\SCAR 3.20\Scripts\akward alcher.scar
what Alchs is suposed to do, is you type in the number of alchs you would like to do on the form, and it does that many
here is the procedure:
SCAR Code:
procedure StartClick(sender: TObject);
begin
Writeln('Get Ready To Alch!');
frmDesign.ModalResult:= mrOk; // Closes the form
Username := UserEdit.Text;//no problem
Password := PassEdit.Text;//no problem
Alchs := IntToStr(AlchEdit.Text);//problem line
WriteLn('Username = ' + Username);
Writeln('Password = ' + Password);
end;
my variables:
SCAR Code:
UserEdit : TEdit;
PassEdit : TEdit;
NickEdit : TEdit;
STEdit : TEdit;
SFEdit : TEdit;
AlchEdit : TEdit;
Username, Password: String;
alchs : integer
and where i use it:
SCAR Code:
repeat
alch;
cleardebug;
prog;
until Alchs = Counter;
and, when i change the variables to:
SCAR Code:
Username, Password, Alchs : String;
SRL_Time, Counter, exp : integer;
and the procedure to:
SCAR Code:
procedure StartClick(sender: TObject);
begin
Writeln('Get Ready To Alch!');
frmDesign.ModalResult:= mrOk; // Closes the form
Username := UserEdit.Text;
Password := PassEdit.Text;
Alchs := AlchEdit.Text;
WriteLn('Username = ' + Username);
Writeln('Password = ' + Password);
end;
i get this:
SCAR Code:
repeat
alch;
cleardebug;
prog;
until Alchs = Counter;//Line 269: [Error] (16584:22): Type mismatch in script C:\Program Files\SCAR