TObjectでご指導ねがいます。 (ID:37313)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

おはようございます。
現在D7でTObjectを使いlistboxに文字列を代入してみました。

そこで２質問があるのですが
１，下記で言う年齢の場所でソートするのはどのようにすればいいでしょうか？
２，年齢の他にも血液型など文字列を追加するにはどのようにすればいいでしょうか？

すいませんが宜しくおねがいいたします

//----------------------------------------------------------

function NewStr(s:string):PString;
begin
  New(result);
  result^ := s;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ListBox1.Items do begin
      AddObject('あ',TObject(NewStr('18さい')));
      AddObject('う',TObject(NewStr('16さい')));
      AddObject('い',TObject(NewStr('26さい')));
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to ListBox1.Items.Count-1 do
    Dispose(PString(ListBox1.Items.Objects[i]));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SL:TStringList;
  i:integer;
   birthday:string;
begin

SL := TStringList.Create;
  try
    for i := 0 to listbox1.Items.count-1 do
      SL.AddObject(listbox1.Items[i],ListBox1.Items.Objects[i]);

SL.Sort;

for i := 0 to listbox1.Items.count-1 do 
memo1.lines.add(PString(sl.Objects[i])^);
    Cascade;
  finally
    SL.Free;
  end;
end;
// ---------------------------------------------------------

←解決時は質問者本人がここをチェックしてください。

戻る