くだすれDelphi(超初心者用)その46

くだすれDelphi(超初心者用)その46 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

350:デフォルトの名無しさん
 08/04/14 01:41:08 
>>346 
泥棒にPC盗まれる可能性も考えれば、 
アルゴリズムは暗記して、そのつど出向いて計算してあげたらよさそう。

351:デフォルトの名無しさん
 08/04/14 11:10:07 
定数を 
const 
  HAIRETU: Array[0..10] of String = ('a','b','c','d','e','f','g','h','i','j','k'); 
  HAIRETU: Array[100..110] of String = ('z','y','x','w','v','u','t','s','r','q','p'); 
のように離れて宣言することは出来るのでしょうか？

352:デフォルトの名無しさん
 08/04/14 11:50:35 
別unitに分けるなら出来るよ。 
アクセスするときは　ユニット名.HAIRETU[4]　のようにアクセスする。

353:デフォルトの名無しさん
 08/04/14 12:22:47 
無理

354:351
 08/04/14 18:52:37 
遅くなりましたがありがとうございました 
変数でやる時には配列に一気に追加する方法はあるのでしょうか？

355:デフォルトの名無しさん
 08/04/14 20:11:58 
Delphiに疎な配列がないのできれいに書くのは難しい。 
 
const 
　 　 HAIRETU: array[0..110] of PChar = 
　 　 　 　 ('a','b','c','d','e','f','g','h','i','j','k', 
　 　 　 　 nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 
　 　 　 　 nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 
　 　 　 　 nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 
　 　 　 　 nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 
　 　 　 　 nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 
　 　 　 　 nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 
　 　 　 　 nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 
　 　 　 　 nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 
　 　 　 　 nil, nil, nil, nil, nil, nil, nil, nil, nil, 
　 　 　 　 'z','y','x','w','v','u','t','s','r','q','p'); 
 
if HAIRETU[4] <> nil then ShowMessage(HAIRETU[4]); 
 
 
const HAIRETU: array [0..2] of record n: Integer; v: String; end = ( 
　 　 　 　 (n:0; v:'a'),　(n:1; v:'b'), (n:100; v:'z') ); 
for i := 0 to 2 do if HAIRETU[i].n = 1 then ShowMessage(HAIRETU[i].v); 
 
 
HAIRETU := TStringList.Create; 
HAIRETU.Values['0'] = 'a'; 
HAIRETU.Values['1'] = 'b'; 
HAIRETU.Values['100'] = 'z'; 
ShowMessage(Hairetu.Values['0'])

次ページ