一个简单的问题：如何操作文本字符串？

Question

用Copy()函数，例如：
Edit1.Text:='DELPHI';
Edit2.Text:=Copy(Edit1.Text,1,1);则Edit2.Text为D
其它的根据这个函数循环即可！

Answer 1

请问DELPHI中难道没有专用的函数吗？这该是最常用的功能。
另外，Edit2.Text为D中的“D”是什么？是目标字符串吗？
谢谢！

Answer 2

如果用TRichEdit 更简单：This example requires a TRichEdit, a TButton, and a TFindDialog.
Clicking the button click will display a Find Dialog to the right of the edit control.  Filling in the "Find what" text and pressing the Find Next button will select the first matching string in the Rich Edit control that follows the previous selection.procedure TForm1.Button1Click(Sender: TObject);begin
  FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
  FindDialog1.Execute;
end;procedure TForm1.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with RichEdit1 do
  begin
    { begin the search after the current selection if there is one }
    { otherwise, begin at the start of the text }
    if SelLength <> 0 then      StartPos := SelStart + SelLength;
    else      StartPos := 0;    { ToEnd is the length from StartPos to the end of the text in the rich edit control }    ToEnd := Length(Text) - StartPos;    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(FindDialog1.FindText);
    end;
  end;
end;

Answer 3

Copy()函数是返回字符串从指定位置开始的指定个数的字符！
我那里的“D”是返回值！

Answer 4

简单的，pos函数可以得到子串中子字串的首次出现位置。SelStart/SelLength可以用来标示一段文字。Copy可以按位置得到字串的子串。统计关键字的出现次数用简单的循环加上pos函数就可以完成(这个算法效率不是很高，但是很容易懂)：function CountKeywords(AString, ASubString: string): cardinal;
var
  p: cardinal;
begin
  Result:=0;
  p:=pos(ASubString, AString);
  while p <> 0 do
  begin
    Inc(Result);
    AString:=copy(AString,p+Length(ASubString),MAXINT);
    p:=pos(ASubString, AString);
  end;
end;共参考。