帮我指出注释处的语法错误

空瓶氧气

1. <p>procedure TForm1.FindDialog1Find(Sender: TObject);
   
2. var
   
3.   x,CopyPos,PosReturn,SkipChars : Integer;
   
4.   StrREG :String;
   
5.   Y :String;
   
6. begin
   
7.   SkipChars:=0;  
   
8. 
   
9.   for x:=XIndex to Memo1.Lines.Count - 1 do
   
10.   begin
    
11.     StrREG:= Memo1.Lines[x];   
    
12.     while  PosReturn<>0 do
    
13.     begin
    
14.       PosReturn:=Pos(FindDialog1.FindText ,StrREG);
    
15.       CopyPos:=PosReturn+Length(FindDialog1.FindText);
    
16. 
    
17.       StrREG:=copy(StrREG,CopyPos,(Length(Memo1.Lines[x])-CopyPos));//这里有什么语法上的错误吗？
    
18.       SkipChars := Length(Memo1.Lines[x]) + SkipChars;
    
19. 
    
20.       Memo1.SetFocus ;
    
21.       Memo1.SelStart := SkipChars;
    
22.       Memo1.SelLength := Length(FindDialog1.FindText );
    
23.       XIndex:= x+1;
    
24.       if XIndex>Memo1.Lines.Count-1 then
    
25.          XIndex := 0 ;
    
26.       Break;
    
27.     end;
    
28.   end;
    
29. end;</p><p> </p><p>错误提示：</p><p>[Error] Unit1.pas(193): Missing operator or semicolon</p><p>[Error] Unit1.pas(193): Incompatible types: 'String' and 'TAction'</p>

复制代码

qq351317878

1. WinAPI 字符及字符串函数(11): lstrcpyn - 复制字符串, 同时指定要复制的长度
   
2. unit Unit1;
   
3. 
   
4. interface
   
5. 
   
6. uses
   
7. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
8. Dialogs, StdCtrls;
   
9. 
   
10. type
    
11. TForm1 = class(TForm)
    
12. Button1: TButton;
    
13. procedure Button1Click(Sender: TObject);
    
14. end;
    
15. 
    
16. var
    
17. Form1: TForm1;
    
18. 
    
19. implementation
    
20. 
    
21. {$R *.dfm}
    
22. 
    
23. procedure TForm1.Button1Click(Sender: TObject);
    
24. var
    
25. p: PChar;
    
26. buf: array[0..255] of Char;
    
27. begin
    
28. p := 'Delphi';
    
29. 
    
30. lstrcpyn(buf, p, 3+1);
    
31. ShowMessage(buf); {Del}
    
32. 
    
33. lstrcpyn(buf, p, -1);
    
34. ShowMessage(buf); {Delphi}
    
35. end;
    
36. 
    
37. end.

复制代码

你试试这个函数lstrcpyn  f1 里有