mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 16:39:57 +02:00
25 lines
265 B
ObjectPascal
25 lines
265 B
ObjectPascal
{$H+}
|
|
|
|
type
|
|
Tsome = Record
|
|
One,Two,Three:String;
|
|
end;
|
|
|
|
Procedure passhere(Some:TSome;onemore:String);
|
|
Begin
|
|
end;
|
|
|
|
procedure fromhere;
|
|
Var
|
|
me:Tsome;
|
|
Begin
|
|
me.one:='blah';
|
|
me.two:='';
|
|
me.three:='';
|
|
passhere(Me,'text some');
|
|
end;
|
|
|
|
begin
|
|
fromhere;
|
|
end.
|