12345678910111213141516171819202122232425262728293031 |
- 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.
|