|
ｿｽ@ｿｽｿｽTStringListｿｽﾅ、ｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽかゑｿｽJｿｽnｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽﾅ費ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽ@
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
mb 2011/01/17(ｿｽｿｽ) 21:18:30
ｿｽ@ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB1ｿｽ_ｿｽｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
1ｿｽ@ｿｽOｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽStringListｿｽﾉ、10000ｿｽsｿｽｿｽｿｽxｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽStringListｿｽﾍソｿｽ[ｿｽgｿｽﾏみ。
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽeｿｽﾍ、ｿｽｿｽｿｽpｿｽpｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾌみでゑｿｽｿｽB
ｿｽ@ｿｽ@(ｿｽPｿｽｿｽ竓ｮｿｽpｿｽﾌ趣ｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽﾅゑｿｽｿｽB)
2ｿｽ@ｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽStringListｿｽﾌ抵ｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽかゑｿｽnｿｽﾜゑｿｽsｿｽ抽出ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@(ｿｽｿｽ/ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ具ｿｽﾊゑｿｽｿｽﾈゑｿｽ)
ｿｽ@ｿｽ@ｿｽ痰ｦｿｽﾎ、aaa, aab, abcｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@aaｿｽﾅゑｿｽｿｽｿｽ鼾ｿｽﾍ、aaaｿｽｿｽaabｿｽ抜ゑｿｽｿｽoｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽ@ｿｽｿｽｿｽQｿｽlｿｽﾜでに擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾝ開ｿｽｿｽｿｽｿｽｿｽﾌテｿｽLｿｽXｿｽgｿｽGｿｽfｿｽBｿｽ^ｿｽﾌ単ｿｽｿｽ竓ｮ
ｿｽ@ｿｽ@ｿｽ@ｿｽ¥ｿｽﾌ一部ｿｽﾆゑｿｽｿｽﾄ組ｿｽﾝ搾ｿｽｿｽﾝまゑｿｽｿｽBｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽﾊ置ｿｽｿｽｿｽﾏゑｿｽ驍ｲｿｽﾆに頻ｿｽﾉゑｿｽ
ｿｽ@ｿｽ@ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾟ、ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ閧ｷｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽﾌ奇ｿｽｿｽｿｽｿｽxｿｽﾉ大きｿｽｿｽ
ｿｽ@ｿｽ@ｿｽeｿｽｿｽｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
3ｿｽ@ｿｽｿｽｿｽｿｽﾜでに趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽPｿｽｿｽｿｽﾉ上かｿｽｿｽAnsiPos (ｿｽ`) = 0ｿｽ@ｿｽﾅ費ｿｽｿｽ閧ｵｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽﾝ搾ｿｽｿｽﾝまゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ黷ｾｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽStringListｿｽﾌ各ｿｽsｿｽﾌ難ｿｽ1ｿｽｿｽｿｽｿｽｿｽｿｽ準ｿｽﾆゑｿｽｿｽﾄ、ｿｽ分法(ｿｽH)ｿｽIｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@ｿｽｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽucdeｿｽvｿｽﾆゑｿｽｿｽｿｽB
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽStringListｿｽｿｽ5000ｿｽsｿｽﾚの難ｿｽ1ｿｽｿｽｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽA
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽ1ｿｽｿｽｿｽｿｽｿｽｿｽcｿｽｿｽHｿｽｿｽｿｽｿｽOｿｽﾈので、1ｿｽsｿｽﾚゑｿｽｿｽｿｽ5000ｿｽsｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽﾜでゑｿｽｿｽｿｽｿｽｿｽﾌ対象とゑｿｽｿｽｿｽB
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽﾆ托ｿｽｿｽｿｽｿｽﾄ、ｿｽﾍ囲ゑｿｽmｿｽ閧ｷｿｽｿｽB
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽxｿｽﾍ会ｿｽｿｽPｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ始ｿｽﾜゑｿｽPｿｽ黷ｪｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽPｿｽｿｽｿｽﾈゑｿｽｿｽPｿｽ[ｿｽXｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎ抵ｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽAｿｽ謔｢ｿｽ闖ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾌ包ｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎと思ｿｽｿｽｿｽﾜゑｿｽｿｽB
igy 2011/01/18(ｿｽｿｽ) 00:25:58
ｿｽOｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、TStringList ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽｿｽgｿｽｿｽｿｽﾌはダｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽﾈみに、
>ｿｽ@ｿｽｿｽｿｽPｿｽｿｽｿｽﾉ上かｿｽｿｽAnsiPos (ｿｽ`) = 0ｿｽ@ｿｽﾅ費ｿｽｿｽ閧ｵｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽﾝ搾ｿｽｿｽﾝまゑｿｽｿｽｿｽｿｽB
>ｿｽ@ｿｽｿｽStringListｿｽﾌ各ｿｽsｿｽﾌ難ｿｽ1ｿｽｿｽｿｽｿｽｿｽｿｽ準ｿｽﾆゑｿｽｿｽﾄ、ｿｽ分法(ｿｽH)ｿｽIｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾌ２ｿｽﾂは、ｿｽｿｽｿｽxｿｽﾍ具ｿｽﾌ的ｿｽﾉは、ｿｽｿｽｿｽbｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
KHE00221 2011/01/18(ｿｽｿｽ) 01:41:54
ｿｽ¥ｿｽ[ｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽ ｿｽ`ｿｽ|ｿｽy ｿｽｿｽ INDEX ｿｽｿｽｿｽｿｽ
monaa 2011/01/18(ｿｽｿｽ) 09:40:38
StringList.find(str,var index)ｿｽｿｽgｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽH
ｿｽ分探ｿｽｿｽｿｽｿｽmdｿｽｿｽｿｽｿｽﾌ具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈデｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
VCLｿｽﾅ奇ｿｽｿｽﾉゑｿｽｿｽﾌアｿｽｿｽｿｽSｿｽｿｽｿｽYｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽﾆ。
monaa 2011/01/18(ｿｽｿｽ) 10:17:15
ｿｽ竭ｫｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ場合ｿｽ¥ｿｽ[ｿｽgｿｽｿｽｿｽ@ｿｽｿｽStringListｿｽﾌソｿｽ[ｿｽgｿｽﾉ擾ｿｽｿｽｿｽｿｽCｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ費ｿｽrｿｽｿｽkernel32ｿｽｿｽCompareStringｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽﾟ。
ｿｽﾆ趣ｿｽｿｽ¥ｿｽ[ｿｽgｿｽﾈゑｿｽFindｿｽﾌソｿｽ[ｿｽXｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽCompareStringｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾄ余ｿｽvｿｽﾈゑｿｽｿｽｿｽｿｽbｿｽﾅゑｿｽｿｽﾋ。
au 2011/01/18(ｿｽｿｽ) 11:00:51
trieｿｽﾘゑｿｽｿｽﾄのゑｿｽｿｽgｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅ外ｿｽｿｽｿｽﾄるかｿｽｿｽﾅゑｿｽｿｽｿｽ
mb 2011/01/18(ｿｽｿｽ) 21:08:28
igyｿｽl
ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽyｿｽﾉ使ｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽｿｽﾚ指ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、DBｿｽﾌ使ｿｽpｿｽﾍ最鯉ｿｽﾌ包ｿｽｿｽﾌ趣ｿｽiｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
KHE00221
ｿｽｿｽｿｽﾌスｿｽｿｽｿｽﾆは厄ｿｽｿｽﾖ係ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾈゑｿｽｿｽﾌ費ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾂゑｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽAIndexｿｽｿｽtｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽAｿｽCｿｽfｿｽAｿｽ漠然ｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽmｿｽｿｽｿｽﾉゑｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍよいｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。ｿｽｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
monaaｿｽl
ｿｽﾈ前ｿｽAｿｽﾊハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ迴包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ厄ｿｽ閧ｪｿｽPｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾟて鯉ｿｽｿｽｿｽ¥ｿｽｿｽｿｽ繧ｰｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAFindｿｽﾍ、ｿｽuｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽかゑｿｽnｿｽﾜゑｿｽvｿｽﾅはなゑｿｽｿｽAｿｽuｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾉ奇ｿｽｿｽSｿｽｿｽvｿｽｿｽｿｽｿｽvｿｽsｿｽｿｽTｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBIndexOfｿｽﾆ、Findｿｽﾍヘｿｽｿｽｿｽvｿｽﾅ鯉ｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾉは使ｿｽｿｽｿｽﾈゑｿｽｿｽﾌでは？ｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
auｿｽl
Trieｿｽﾘとゑｿｽｿｽｿｽｿｽﾌは知ｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽCｿｽｿｽｿｽ[ｿｽWｿｽﾆゑｿｽｿｽﾄは近ゑｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾉ適ｿｽpｿｽﾅゑｿｽｿｽｿｽﾌゑｿｽｿｽﾇゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾗてみゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽc
monaa 2011/01/18(ｿｽｿｽ) 22:36:55
ｿｽ蛯ｵｿｽｿｽｿｽ痰｢ｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽｿｽAｿｽ皷橸ｿｽｿｽｿｽ繧ｰｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾋ。
ｿｽJｿｽnｿｽﾆ終ｿｽｿｽｿｽﾌイｿｽｿｽｿｽfｿｽbｿｽNｿｽXｿｽｿｽTｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾌ間ゑｿｽYｿｽｿｽｿｽYｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾓ擾ｿｽｿｽﾍ手抜ｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽﾌで、ｿｽｿｽｿｽPｿｽﾌ余ｿｽnｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
Edit1: TEdit;
ListBox2: TListBox;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
fStrList:TStringList;
public
{ Public ｿｽ骭ｾ }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure FindNearMin(aStrList:TStringList; S: string; var Index: Integer);
var
L, H, I, C: Integer;
begin
L := 0;
H := aStrList.Count - 1;
while L <= H do
begin
I := (L + H) shr 1;
C := AnsiCompareStr(Copy(aStrList.Strings[I],1,Length(S)), S);
if C < 0 then
begin
L := I + 1;
end else begin
H := I - 1;
end;
end;
Index := L;
end;
procedure FindNearMax(aStrList:TStringList; S: string; var Index: Integer);
var
L, H, I, C: Integer;
begin
L := 0;
H := aStrList.Count - 1;
while L <= H do
begin
I := (L + H) shr 1;
C := AnsiCompareStr(Copy(aStrList.Strings[I],1,Length(S)), S);
if C <= 0 then
begin
L := I + 1;
end else begin
H := I - 1;
end;
end;
Index := H;
end;
function ExtractStr(aStrList:TStringList; S:string):string;
var
aBegin,aEnd:Integer;
i: Integer;
begin
FindNearMin(aStrList,S,aBegin);
FindNearMax(aStrList,S,aEnd);
for i := aBegin to aEnd do
Result := Result + aStrList.Strings[i] + #$D#$A;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox2.Items.Text := ExtractStr(fStrList,Edit1.Text);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
fStrList := TStringList.Create;
for i := 0 to 1000 do
fStrList.Add(IntToStr(i));
fStrList.Sort;
ListBox1.Items.Text := fStrList.Text;
end;
end.
deldel 2011/01/19(ｿｽｿｽ) 10:33:58
ｿｽｿｽｿｽ_ｿｽｿｽﾏゑｿｽｿｽﾄ・ｿｽEｿｽE
StringListｿｽｿｽPｿｽﾂにゑｿｽｿｽｿｽﾌではなゑｿｽｿｽAｿｽ痰ｦｿｽﾎ、
aｿｽｿｽｿｽｿｽnｿｽﾜゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽStringListAｿｽﾉ、
bｿｽｿｽｿｽｿｽnｿｽﾜゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽStringListBｿｽﾉ・ｿｽEｿｽE
ｿｽﾈどとゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽﾎ象ゑｿｽｿｽｿｽｿｽﾈり少ｿｽﾈゑｿｽｿｽﾈゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽUｿｽ阨ｪｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽしｿｽｿｽｿｽﾆは思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
monaa 2011/01/19(ｿｽｿｽ) 13:34:00
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ気ｿｽﾃゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA10000ｿｽﾂ抵ｿｽｿｽxｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽｿｽｿｽﾌパｿｽ¥ｿｽRｿｽｿｽｿｽﾈらそｿｽ黷ｱｿｽｿｽｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ10msｿｽﾈ会ｿｽｿｽﾅ奇ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽか？
ｿｽｿｽｿｽｿｽｿｽｿｽ闢ｮｿｽｿｽｿｽﾌは具ｿｽｿｽ轤ｭｿｽAｿｽｿｽｿｽﾌｿｽｿｽXｿｽgｿｽAｿｽbｿｽvｿｽﾌ包ｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆなゑｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽｿｽXｿｽgｿｽrｿｽｿｽｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾛ、ｿｽｿｽｿｽｿｽｿｽｿｽoｿｽ[ｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽﾅｿｽｿｽXｿｽgｿｽAｿｽbｿｽvｿｽｿｽｿｽﾄ、ｿｽSｿｽﾄの鯉ｿｽｿｽﾍ読み搾ｿｽｿｽﾜなゑｿｽｿｽZｿｽpｿｽﾉ力ゑｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
procedure TForm1.Button1Click(Sender: TObject);
var
c: Cardinal;
i,p: Integer;
str1,str2:string;
aStrList:TStringList;
begin
aStrList := TStringList.Create;
for i := 0 to 10000 do
aStrList.Add(IntToStr(i));
c:= GetTickCount;
str1 := '111';
for i := 0 to aStrList.Count - 1 do
begin
str2 := aStrList.Strings[i];
if CompareStr(Copy(str2,1,Length(str1)),str1)=0 then
inc(p);
end;
Caption := IntToStr(GetTickCount-c) + '-' + IntToStr(p);
aStrList.Free;
end;
mb 2011/01/20(ｿｽｿｽ) 21:22:16
monaaｿｽl
ｿｽoｿｽｿｽｿｽﾅ家ゑｿｽけてゑｿｽｿｽｿｽﾜゑｿｽｿｽﾄ、ｿｽﾔ難ｿｽｿｽｿｽｿｽxｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽAｿｽｿｽｿｽﾛにゑｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽoｿｽｿｽｿｽﾔではなゑｿｽｿｽA
ｿｽﾇゑｿｽｿｽ轤ｩｿｽﾆゑｿｽｿｽｿｽｿｽﾆｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾛに趣ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽlｿｽqｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾉ眼がｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽﾍノｿｽ[ｿｽ`ｿｽFｿｽbｿｽNｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽIｿｽmｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾎらくｿｽOｿｽAListViewｿｽｿｽOnDataｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽyｿｽﾊ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
ｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽﾄ適ｿｽpｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾉ趣ｿｽｿｽ|ｿｽｿｽｿｽｿｽ骼橸ｿｽﾔゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽyｿｽｿｽｿｽﾉ家で趣ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾝゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾊは報告ゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾔゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎと思ｿｽｿｽｿｽﾜゑｿｽｿｽB
deldelｿｽl
ｿｽAｿｽCｿｽfｿｽAｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾍ、ｿｽﾅ擾ｿｽｿｽﾌ搾ｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍ擾ｿｽLｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽﾊ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽUｿｽﾟてみゑｿｽｿｽｿｽｿｽｿｽｿｽ謔ｳｿｽｿｽｿｽｿｽｿｽﾈので、ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ¥ｿｽｿｽﾌ鯉ｿｽｿｽｿｽ
ｿｽQｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
mb 2011/02/03(ｿｽｿｽ) 21:20:15
ｿｽ告ゑｿｽｿｽxｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽﾇ鯉ｿｽｿｽｿｽｿｽﾍ表ｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽxｿｽﾌ厄ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽoｿｽｿｽｿｽﾌ厄ｿｽｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽmｿｽFｿｽsｿｽｿｽｿｽﾅ申ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ_ｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽﾄ、TListViewｿｽﾌ会ｿｽｿｽzｿｽｿｽｿｽXｿｽgｿｽrｿｽｿｽｿｽ[ｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽ繧ｵｿｽAｿｽｿｽｿｽgｿｽpｿｽﾉ耐ゑｿｽｿｽｿｽｿｽｿｽXｿｽsｿｽ[ｿｽhｿｽｿｽ
ｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾌゑｿｽｿｽﾟ、ｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽAｿｽｿｽﾏ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆとゑｿｽﾉ、ｿｽeｿｽﾘにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFｿｽlｿｽﾉは、ｿｽ[ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽ¥ｿｽｿｽｿｽ繧ｰｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
mb 2011/02/03(ｿｽｿｽ) 21:21:28
ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽB
