pilgrimk@lafcol.UUCP (Kenwyn A. Pilgrim) (03/17/89)
Direct mail may have been messed up, so I posting to the net.
Too bad.
{Here's my $0.02}
{-------------------------------------------------}
uses Crt;
var a: string;
function what(var where: string): string;
begin
what := where;
writeln('Hit Esc...'); repeat until ReadKey=#27;
delete(String(Ptr(Seg(What),Ofs(What))^),5,10);
end;
begin
a := 'Help me please';
writeln(what(a))
end.
{-------------------------------------------------}
{
Some notes:
When run as is (TP40 compiler) 'Help me please' is the result.
The variable 'a' remains unchanged.
If the 'uses Crt' line is removed along with
writeln('Hit Esc...'); repeat until ReadKey=#27;
the computer is hung. (Haven't figured this out as yet);
Maybe this helps, Maybe it doesn't, but what do you expect for
$0.02 ????
When you do get a correct sol'n, please post to the net.
This is more interesting than I originally thought!
-Kenwyn
}