Hello..Im trying to make a form were i can edit how many loads my script shall do but its keep saying Line 18: [Error] (18:17): Type mismatch in script then im running it pleace look at this script and tell me why and how to fix it
Thanks yoo
SCAR Code:
program Im_Still_A_Noob;
var
frmDesign : TForm;
Edit1 : TEdit;
StartButton : TButton;
Loads: String;
i: Integer;
procedure StartClick(sender: TObject);
begin
{ What the F*** To do??
}
Loads := Edit1.Text;
i:= 0;
repeat
i:= i + 1;
wait(100+random(100))
until(i >= Loads);
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 275;
frmDesign.Top := 122;
frmDesign.Width := 350;
frmDesign.Height := 243;
frmDesign.Caption := 'Im A Noob...';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 113;
Edit1.Top := 68;
Edit1.Width := 70;
Edit1.Height := 21;
Edit1.Hint := 'Loads Here';
Edit1.ParentShowHint := False;
Edit1.ShowHint := True;
Edit1.TabOrder := 8;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.OnClick := @StartClick;
StartButton.Left := 112;
StartButton.Top := 155;
StartButton.Width := 50;
StartButton.Height := 20;
StartButton.Caption := 'Start';
StartButton.TabOrder := 10;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.