掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
stringlistでsortした配列の添字を得るには？ (ID：5595)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.FormCreate(Sender: TObject); var i:integer; a:array[0..5] of integer; ds:string; St:Tstringlist; begin a[1]:=41; a[2]:=23; a[3]:=14; a[4]:=97; a[5]:=52; St:=Tstringlist.Create; St.Clear; st.Sorted:=true; for i:=1 to 5 do st.Append(inttostr(a[i])); for i:=1 to 5 do begin a[i]:=strtoint(St.strings[i-1]); ds:=ds+inttostr(a[i])+','; end; showmessage(ds); st.free; end; を実行すると、sortされた結果「14,23,41,52,97,」が表示されます。 このとき、配列の添字の順序「3,2,1,5,4」を表示するにはどうすればいいのでしょうか？ (Win-Xp-home,D7-pro)
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.