掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringListについて (ID：31807)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
monaa さんに乗っかりマス 変数２個で function ListUpStrList(strList:TStringList):string; var i0,i1: Integer; begin i1 := 0; Result := ''; strList.Sort; for i0 := 1 to strList.Count -1 do begin if strList[i0 - 1] = strList[i0] then begin Inc(i1); end else begin Result:= Result + strList.Strings[i0-1] + 'は' + IntToStr(i1) + '個' + #$D#$A; i1 := 0; end; end; Result:= Result + strList.Strings[strList.Count -1] + 'は' + IntToStr(i1) + '個' + #$D#$A; end; TStringListのソートを使っているから、件数が増えれば遅くなっていきそう
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.