编译通不过var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
pc1, pc2: pchar;
s1, s2: string;begin
s1 := 'c:afas.asfd';
pc1 := pchar(s1); ////报错,而且确实是这里报错
CopyFile(pc1, pc2, false);
end;end.
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
pc1, pc2: pchar;
s1, s2: string;begin
s1 := 'c:afas.asfd';
pc1 := pchar(s1); ////报错,而且确实是这里报错
CopyFile(pc1, pc2, false);
end;end.
DELPHI 7