-
-
这段程序在做什么事情？
-
发表于:
2005-10-31 19:46
5668
-
delphi的版本和C++Build版本
procedure TForm1.Search1Click(Sender: TObject);stdcall;
var
Size : Integer;
Buffer : PChar;
begin
if (FindDialog1.Execute()) then
begin
Size := Memo1.SelLength;
Size : Size + 1;
GetMem(Buffer,Size);
Memo1.GetSelTextBuf(Buffer,Size);
FindDialog1.FindText := Buffer;
FreeMem(Buffer);
end;
void __fastcall TForm1::Search1Click(TObject *Sender)
{
if (FindDialog1->Execute())
{
int Size = Memo1->SelLength;
Size++;
char *Buffer = new char[Size];
Memo1->GetSelTextBuf(Buffer,Size);
FindDialog1->FindText = Buffer;
delete Buffer;
}
}
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！
