mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 13:42:59 +02:00
32 lines
374 B
ObjectPascal
Executable File
32 lines
374 B
ObjectPascal
Executable File
unit uw4103;
|
|
|
|
interface
|
|
|
|
type junk=record
|
|
data:string;
|
|
end;
|
|
|
|
operator :=(const s:string) result:junk;
|
|
|
|
implementation
|
|
|
|
operator :=(const s:string) result:junk;
|
|
|
|
begin
|
|
result.data:=s;
|
|
end;
|
|
|
|
operator :=(const n:longint) result:junk;
|
|
|
|
begin
|
|
str(n,result.data);
|
|
end;
|
|
|
|
operator :=(const n:cardinal) result:junk;
|
|
|
|
begin
|
|
str(n,result.data);
|
|
end;
|
|
|
|
end.
|