[Delphi] Co jest źle??

To co w temacie

procedure TForm1.Button1Click(Sender: TObject);
var Rekord: TSHFileOpStructA;
begin
with Rekord do
begin
Wnd:=Handle;
wFunc:=FO_RENAME;
pFrom:=Memo1.text + '.{21EC2020-3AEA-1069-A2DD-08002B30309D}';
pTO:=Memo1.text;
end;
if SHFileOperation(Rekord)<>0 then
ShowMessage('Bląd')

a i jeszcze w
uses
ShellApi

---

Wygodniej byloby gdybs napisal jakie sa oznaki tego ze cos jest zle, a nie liczysz na analizowanie twoich kodow[:/]

GG: 4596137

dokładniej chodzi o ten fragment

pFrom:=Memo1.text + '.{21EC2020-3AEA-1069-A2DD-08002B30309D}';
pTO:=Memo1.text;

napisz komilator jaki błąd wywala

-----------------------
Bełdzio
Delphi Rules:)
www : http://www.beldzio.prv.pl
mail: beldzio(at)gazeta.pl

Oferty pracy, współpracy, oferty matrymonialne, albo jak chcesz sobie Gadu-Gadu 3183960

---

Build
[Error] Unit1.pas(37): Incompatible types: 'TCaption' and 'PAnsiChar'
[Error] Unit1.pas(38): Incompatible types: 'TCaption' and 'PAnsiChar'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

niezbyt to elegancko wyglada, ale dziala

procedure TForm1.Button1Click(Sender: TObject);
var Rekord: TSHFileOpStructA;
buf,buf2: array[0..1000] of char;
napis:string;
i,k:integer;
begin
with Rekord do
begin
Wnd:=Handle;
wFunc:=FO_RENAME;
k:=length(Memo1.Text);
napis:=Memo1.Text+'.{21EC2020-3AEA-1069-A2DD-08002B30309D}';
for i:=0 to Length(napis)-1 do
begin
buf[i]:=napis[i+1];
if i<k then
buf2[i]:=napis[i+1];
end;
pFrom:=buf;
pTO:=buf2;
end;
if SHFileOperation(Rekord)<>0 then
ShowMessage('Bląd')

end;

GG: 4596137

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl