![]()  | Products  | 
| Home » Technical Support » Elevate Web Builder Technical Support » Product Manuals » Elevate Web Builder 3 Manual » Language Reference » Statements | 
<Variable> := <Type-Compatible Expression>;
var MyInteger: Integer; MyString: String; begin MyInteger := (100 * MyIntegerConstant); MyString := 'This is a test'; end;
if <Boolean Expression> then <Code Block> [else if <Boolean Expression> then <Code Block>] [else <Code Block>];
var
   MyBoolean: Boolean;
begin
   MyBoolean:=False;
   if MyBoolean then
      ShowMessage('This will never execute')
   else
      ShowMessage('This will always execute');
end;case <Expression> of
   <Expression>[, <Expression}:
      <Code Block>;
   [<Expression>[, <Expression}:
      <Code Block>;]
   [else
      <Code Block>;]
   end;var
   MyString: String;
begin
   MyString:='Hello World';
   case MyString of
      'Hello':
         ShowMessage('Hello');
      'World':
         ShowMessage('World');
      else
         ShowMessage('None of the above');
      end;
end;while <Boolean Expression> do
      <Code Block>;var
   MyBoolean: Boolean;
begin
   MyBoolean:=True;
   while MyBoolean do
      begin
      ShowMessage('Still looping...');
      if MyBoolean then
         MyBoolean:=False;
      end;
end;repeat
      <Code Block>;
until <Boolean Expression>;var
   MyBoolean: Boolean;
begin
   MyBoolean:=False;
   repeat
      begin
      ShowMessage('Still looping...');
      if (not MyBoolean) then
         MyBoolean:=True;
      end;
   until MyBoolean;
end;for <Integer Value Assignment> to|downto <Integer Expression> do
      <Code Block>;var
   MyInteger: Integer;
   MyString: String='Hello world';
begin
   for MyInteger:=1 to Length(MyString) do
      ShowMessage('Character is '+MyString[MyInteger]+'...');
end;break;
var
   MyInteger: Integer;
   MyString: String='Hello world';
begin
   for MyInteger:=1 to Length(MyString) do
      begin
      ShowMessage('Character is '+MyString[MyInteger]+'...');
      if MyString[MyInteger]='w' then
         break;
      end;
end;continue;
var
   MyBoolean: Boolean;
begin
   MyBoolean:=True;
   while MyBoolean do
      begin
      ShowMessage('Still looping...forever');
      continue;
      if MyBoolean then
         MyBoolean:=False;
      end;
end;exit;
with <Class Instance> do <Code Block>;
var
   MyInstance: TMyClass;
begin
   MyInstance:=TMyClass.Create;
   with MyInstance do
      begin
      MyIntegerProperty:=100;
      MyStringProperty:='Hello world';
      end;
   MyInstance.Free;
end;begin <Statement>; [<Statement>]; end;
var
   MyInteger: Integer;
   MyString: String='Hello world';
   MyOtherString: String='';
begin
   for MyInteger:=1 to Length(MyString) do
      MyOtherString := MyOtherString + MyString[MyInteger];
end;var MyString: String; begin MyString := 'This is a test'; end;
var
   MyString: String;
begin
   if MyParameter then
      MyString := 'This is a test'
   else
      MyString := 'This is not a test';
end;This web page was last updated on Tuesday, September 16, 2025 at 04:56 PM  | Privacy Policy © 2025 Elevate Software, Inc. All Rights Reserved Questions or comments ?  | 

