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

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

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

600:デフォルトの名無しさん
 08/05/09 12:45:27 
ver2.2のNextLZWの中です 
 
      ASSERT(Code < TableSize, 'Code too large'); 
      while (code >= ClearCode) do 
      begin 
        //ここから 
        if UINT(Source) > UINT(@stack[High(stack)]) then 
        begin 
          Dec(Source); 
          Result := Source^; 
          Exit; 
        end; 
        //ここまで 
        Source^ := table1[code]; 
        Inc(Source); 
        if (code = table0[code]) then 
          Error(sDecodeCircular); 
        code := table0[code]; 
        ASSERT(Code < TableSize, 'Code too large'); 
      end;

601:デフォルトの名無しさん
 08/05/09 13:17:57 
>>596 
継承して使うと似たようなフォームで少しだけ違うような場合に便利だよ 
ファイル⇒新規作成⇒その他　で出たダイアログのタブの今のプロジェクト内から Form1を選んで 
下の　・継承　を確認して [OK]

602:Ｚｚｚ
 08/05/09 16:50:32 
たびたびすいません 
質問です 
リストボックスやコンボックスのItems欄に選択「文字」を追加する 
方法が分かりません 
･･･と書くとItem addとか思われると思いますが、もう一歩進んで 
その追加したを随時に追加し、且つ保存したいのです 
プログラムを終了させる、プログラムを起動させる 
「追加したデータが消えてる（涙・・・」 
どうやれば保存できるのでしょうか 
最終的には、マイナーなコンポーネントに対し保存したいのですが 
基本のリストボックスやコンボックスのやり方を教授していただければ 
自分で考えますので（当たり前ですけど）ヒントの程お願い致します

次ページ