mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
27 lines
437 B
ObjectPascal
27 lines
437 B
ObjectPascal
{ %fail }
|
|
{ %norun}
|
|
{ Source provided for Free Pascal Bug Report 4229 }
|
|
{ Submitted by "Gerhard" on 2005-07-28 }
|
|
{ e-mail: gs@g--s.de }
|
|
unit tw4229a ;
|
|
|
|
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 ;
|
|
|
|
end.
|