掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
stringlistでsortした配列の添字を得るには？ (ID:5599)
名前
ホームページ(ブログ、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.Sorted:=true; for i:=1 to 5 do St.Append(inttostr(a[i])); for i:=1 to 5 do begin a[i]:= St.IndexOf(IntToStr(a[i])); ds:=ds+inttostr(a[i]+1)+','; end; showmessage(ds); st.free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.