SCAR Code:
program New;
{.include srl/srl.scar}
var
frmDesign : TForm;
Name : TEdit;
Ok : TButton;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 158;
frmDesign.Height := 190;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -14;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 120;
Name := TEdit.Create(frmDesign);
Name.Parent := frmDesign;
Name.Left := 10;
Name.Top := 35;
Name.Width := 121;
Name.Height := 24;
Name.Hint := 'Player name';
Name.TabOrder := 8;
Name.Text := 'Name';
Ok := TButton.Create(frmDesign);
Ok.Parent := frmDesign;
Ok.Left := 39;
Ok.Top := 86;
Ok.Width := 46;
Ok.Height := 27;
Ok.Caption := 'Ok';
Ok.TabOrder := 9;
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;
procedure Declareplayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name:=Name.Text
end;
procedure WriteName;
begin
writeln(Players[0].Name)
end;
begin
SafeInitForm;
SafeShowFormModal;
setupsrl;
DeclarePlayers;
WriteName;
end.