07/05/28 10:27:16
>>77
アドバイスをチャント聞いてよ。
フォームにメモ２つ、ボタン１つを貼り付けて、ボタンをダブルクリック
DynamicArray<int> work;
void sort(DynamicArray<int> &dt)
{
for(int i=0;i<dt.Length-1;i++)
for(int j=i;j<dt.Length;j++)
if(dt[i]>dt[j]) {int w=dt[j];dt[j]=dt[i];dt[i]=w;};
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
work.Length =Memo1->Lines->Count;
int siz=0;
for(int i=0;i<Memo1->Lines->Count;i++)
if(Memo1->Lines->Strings[i]!="") work[siz++]=Memo1->Lines->Strings[i].ToInt();
work.Length = siz;
sort(work);
AnsiString s;
Memo2->Lines->Clear();
for(int i=0;i<work.Length;i++) Memo2->Lines->Add(s.sprintf("%5d",work[i]));
}