🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.pascal
Article #279

$B65$($F$/$@$5$$!#(J

#279
From: Masakatsu Kudoh
Date: Fri, 21 Feb 1997 00:00
39 lines
1284 bytes

$B#C8@8l$G0J2<$N$h$&$J%3!<%G%#%s%0$r!"#D#e#l#p#h#i$KD>$7$^$7$?!#(J

-- C --
typedef struct {
$B!!!!(Jchar $B!!!!!!!!!!!!(JName[10];
    unsigned short $B!!(JMin;
    unsigned short $B!!(JMax;
} ABCD;

ABCD datas[3] = {
		$B!!(J{"TestNo.000",  0,  0},
		$B!!(J{"TestNo.001",100,100},
          	$B!!(J{" d s s s  ", 24, 10}
          $B!!!!!!(J};

-- DELPHI --
Tabcd = record
  Name[10] : string;
  Min      : Word;
  Max      : Word;
  end;

ABCD = array[0..2] of Tabcd;

Datas : ABCD = (('TestNo.000',  0,  0), <--(A)
                ('TestNo.001',100,120),
                (' d s s s  ', 25, 10)
               );


$B!!$3$N$h$&$J46$8$G%3!<%G%#%s%0$9$k$H!"(J(A)$B$G%(%i!<$,H/@8$7$^$9!#<+J,$H$7$F$O(J
$B$3$N%3!<%G%#%s%0$,0-$$$h$&$J5$$,$7$^$9!#@53N$K$O$I$&%3!<%G%#%s%0$r$9$l$P$$(J
$B$$$s$G$7$g$&$+!)(J


-- 
Masakatsu Kudoh(masak@hi-net.or.jp)
Technical Details
Message-ID: <01bc2000$b0b25fa0$f9faf8ca@toshiba-user>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ff90a,6be766113502efaa,start
X-Google-Attributes: gidff90a,public
From: "Masakatsu Kudoh" <masak@hi-net.or.jp>
Subject: $B65$($F$/$@$5$$!#(J
Date: 1997/02/21
Message-ID: <01bc2000$b0b25fa0$f9faf8ca@toshiba-user>
X-Deja-AN: 220534894
Organization: Hachinohe Internet Services(HI-NET)
Newsgroups: fj.lang.pascal