Type detection: Difference between revisions
Content added Content deleted
Line 1,226: | Line 1,226: | ||
c : char; |
c : char; |
||
procedure printtext ( |
procedure printtext (source : sourcetype); |
||
begin |
begin |
||
case source.kind of |
case source.kind of |
||
Line 1,273: | Line 1,273: | ||
c : char; |
c : char; |
||
procedure printtext ( |
procedure printtext (source : sourcetype); |
||
begin |
begin |
||
case source.kind of |
case source.kind of |