« on: February 05, 2018, 06:18:40 am »
CASE I of
1 : ShowMessage( inttostr(i) + ' ' + S);
2 : ShowMessage( inttostr(i) + ' ' + S);
3 : ShowMessage( inttostr(i) + ' ' + S);
4 : ShowMessage( inttostr(i) + ' ' + S);
5 : ShowMessage( inttostr(i) + ' ' + S);
6 : ShowMessage( inttostr(i) + ' ' + S);
7 : ShowMessage( inttostr(i) + ' ' + S);
8 : ShowMessage( inttostr(i) + ' ' + S);
9 : ShowMessage( inttostr(i) + ' ' + S);
10 : ShowMessage( inttostr(i) + ' ' + S);
11 : ShowMessage( inttostr(i) + ' ' + S);
12 : ShowMessage( inttostr(i) + ' ' + S);
13: ShowMessage( inttostr(i) + ' ' + S);
14: ShowMessage( inttostr(i) + ' ' + S);
Else
ShowMessage( inttostr(i) + ' ' + S);
Example #2
CASE I of
1 : SetRecord;
Edit.Text1 := S;
.
.
.
Else
ShowMessage( inttostr(i) + ' ' + S);
How do I execute multiple statement like in Example 2.
It gives me an error.
Logged
FPC 3.2.0, Lazarus IDE v2.0.4
Windows 10 Pro 32-GB
Intel i7 770K CPU 4.2GHz 32702MB Ram
GeForce GTX 1080 Graphics - 8 Gig
4.1 TB