掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Tmemo内の並べ替え (ID:4806)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 TMemo.Lines は TStrings 型ですのでソートメソッドがありません。 TStringList のインスタンスに写し取って、ソートしてから戻します。 Form1 に Memo1 と Button1 を置いて以下のようにします。 procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Clear; Memo1.Lines.Add('33333'); Memo1.Lines.Add('22222'); Memo1.Lines.Add('11111'); end; procedure TForm1.Button1Click(Sender: TObject); var SL:TStringList; begin SL := TStringList.Create; try SL.Assign(Memo1.Lines); SL.Sort; Memo1.Lines.Assign(SL); finally SL.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.