Type detection: Difference between revisions

Content added Content deleted
Line 1,226: Line 1,226:
c : char;
c : char;


procedure printtext (var source : sourcetype);
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 (var source : sourcetype);
procedure printtext (source : sourcetype);
begin
begin
case source.kind of
case source.kind of