13,871
社区成员




void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *l1 = new TStringList;
TStringList *l2 = new TStringList;
if (Clipboard()->HasFormat(CF_TEXT))
l1->Text = Clipboard()->AsText;
for (int i = 0; i < l1->Count; i++)
{
l2->DelimitedText = l1->Strings[i];
for (int j = 0; j < l2->Count; j++)
{
// 判断是不是全角字符开头
if (l2->Strings[j].IsLeadByte(1) && l2->Strings[j].IsTrailByte(2))
Memo1->Lines->Add(l2->Strings[j]);
}
}
delete l1;
delete l2;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *l1 = new TStringList;
TStringList *l2 = new TStringList;
if (Clipboard()->HasFormat(CF_TEXT))
l1->Text = Clipboard()->AsText;
for (int i = 0; i < l1->Count; i++)
{
l2->DelimitedText = l1->Strings[i];
for (int j = 0; j < l2->Count; j++)
{
if (l2->Strings[j].Pos("项目") == 1)
Memo1->Lines->Add(l2->Strings[j]);
}
}
delete l1;
delete l2;
}