mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
31 lines
509 B
ObjectPascal
31 lines
509 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 4229 }
|
|
{ Submitted by "Gerhard" on 2005-07-28 }
|
|
{ e-mail: gs@g--s.de }
|
|
unit tw4229 ;
|
|
|
|
interface
|
|
|
|
type
|
|
strobj = object
|
|
bs : string ;
|
|
ba : ansistring ;
|
|
end ;
|
|
|
|
operator := ( const a : ansistring ) z : strobj ;
|
|
|
|
implementation
|
|
|
|
operator := ( const s : string ) z : strobj ;
|
|
|
|
begin
|
|
z.bs := s ;
|
|
end ;
|
|
|
|
operator := ( const a : ansistring ) z : strobj ;
|
|
|
|
begin
|
|
z.ba := a ;
|
|
end ;
|
|
|
|
end.
|