🚀 go-pugleaf

$BIaCJ;H$o$J$$%"%I%l%9$+$i$G$9$,!"?73c$N8MED!!(Jtoda@med.niigata-u.ac.jp$B!!$G$9!#(J

In <H22408.96Nov23162440@cctu-mail.cc.tohoku.ac.jp>, h22408@cctu-mail.cc.tohoku.ac.jp (Takayuki Goto) writes:
>
>1)Delphi$B$N%W%m%7!<%8%cL>$H$+%/%i%9L>(J(?)$B$H$+$K$h$/!"F,$K!V#T!W(J
>  $B$,IU$$$F$$$^$9$,!"$I$&$$$&0UL#$J$s$G$7$g$&$+!#$=$&$$$&Dj5A(J
>  $B$J$s$@!"$H8@$o$l$?$i$=$l$^$G$J$s$G$9$,!"M3MhEy$"$j$^$7$?$i(J
>  $B65$($F2<$5$$!#(J
>
$B!!7?L>$K$O(JT$B$r$D$1!"$=$N7?$KBP$9$k%]%$%s%?7?$K$O(JP$B$rIU$1$k=,47$r(J
TP5.5$B0JMh(JBorland$B$O4+$a$F$$$k$h$&$G$9!#(J
$BNc!K(J
type
  TNewsGroups = object
    GroupeName : string;
    NumberOfSubjects : integer
  end;
  PNewsGroups = ^TNewsGroups;

>2)Delphi$B$NCf$G!"(Jfor$B%k!<%W$NJQ?t$r$$$8$C$?$i(J($B$?$H$($P(J1$B2C;;$7$?$i(J)
>  $B$7$+$i$l$^$7$?!#$I$&$7$F$G$7$g$&$+!)$3$l$b!"$=$&$$$&;EMM$@$H(J
>  $B8@$o$l$?$i$=$l$^$G$J$s$G$9$,!"(JTURBO-Pascal$B$N;~$O!"8+F($7$F(J
>  $B$/$l$^$7$?$N$G$9$,!"!"!#(J

$B!!K\Mh$N(JPascal$B$G$b8+F($7$F$/$l$k$H;W$&$N$G$9$,(J(^^)$B!#(J