Archive for the Delphi Category
ばぶるほうかい
200 名前:名前は開発中のものです。[sage] 投稿日:2005/12/10(土) 02:27:45 ID:QnFYb/xE 【お題】 「分離・合体」「群れ」ごめん分離しない。 【タイトル】BUBBLE BURST 【ジャンル】避けゲー? 【URL】http://gamdev.org/up/img/4019.zip 【スクリーンショット】http://gamdev.org/up/img/4018.jpg 【製作時間】3日 【開発環境】Delphi7 + QuadrupleD (DirectX 9.0) 【備考/DL容量】約300k 【概要】 上からわらわら降ってくる(たまに左右、下から強襲してくる)泡をひたすら避け続ける。 泡は同じ大きさのものが接触すると合体するので注意。 自機から発射される謎の波動で泡を弾き飛ばすことができるが、大きい泡に対して効果が薄いので小さい泡を狙うべし。 【操作方法】 上下左右で自機の操作。Zキーで謎の波動を発射。 【コメント】 なんか作りやすそうだったので初参加。休日にがんばるべきだったかも。
最新版はhttp://hp.vector.co.jp/authors/VA013135/BubbleBurst.zipになってます。
THashedStringList
検索処理を高速化するためにハッシュテーブルを内部的に使用しているだけで基本的にTStringListと同じ。IniFilesユニットの中にある。
SortedをTrueにしてDuplicatesプロパティをdupErrorにすることで、文字列を追加する際に重複があれば検出できる。Hashedなら速い……らしいがでっかいデータじゃないと違いがわからずorz
program HashedStringListSample;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
IniFiles;
var
hash: THashedStringList;
begin
hash := THashedStringList.Create;
hash.Sorted := True;
hash.Duplicates := dupError;
try
hash.LoadFromFile('xxx.txt');
Writeln('OK');
except
on e: EStringListError do Writeln(e.Message);
end;
hash.Free;
Readln;
end.
重複がある場合は
文字列リストは重複を許しません
だそうで。