blob: a4f8542ce6621d3718711c731a234fa48ee8055d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Program Example36;
{ Program to demonstrate the Length function. }
type
somebytes = array [6..10] of byte;
somewords = array [3..10] of word;
Var
S : String;
I : Integer;
bytes : somebytes;
words : somewords;
begin
S:='';
for i:=1 to 10 do
begin
S:=S+'*';
Writeln (Length(S):2,' : ',s);
end;
Writeln('Bytes : ',length(bytes));
Writeln('Words : ',length(words));
end.
|
