Скачать: CL | DM;

CopyFile   Найти похожие ветки 

← →
ss300   (2003-11-03 06:02) [0]

приветы!

ppname := "c:\ppCreate\"+"Pj999"+tt+"."+ppext;
ppext := inttostr(mesnew)+inttostr(dennew);
CopyFile(PChar("c:\ppCreate\pp\pp.dbf"),PChar(ppname),true);

не пашет (Invalid typecast).. подскажите что делать?

---

← →
Zergling ©   (2003-11-03 07:15) [1]

Как объявлены ppname, ppext и т.п?

ppname := "c:\ppCreate\"+"Pj999"+tt+"."+ppext;
ppext := inttostr(mesnew)+inttostr(dennew);
Как ты думаешь, получиться ожидаемый результат для ppname :)

---

← →
ss300   (2003-11-03 07:18) [2]

я наоборот написал)) торопился
а в проекте все нормально

case mesnew of
10 : ppext := "a"+inttostr(dennew);
11 : ppext := "b"+inttostr(dennew);
12 : ppext := "c"+inttostr(dennew);
else
ppext := inttostr(mesnew)+inttostr(dennew);
end;

ppname := "c:\ppCreate\"+"Pj999"+tt+"."+ppext;

CopyFile(PChar("c:\ppCreate\pp\pp.dbf"),PChar(ppname),true);

---

← →
Zergling ©   (2003-11-03 07:30) [3]

Незнаю в чем у тебя грабли. Так к примеру все работает.
var
ppname, ppext, tt: String;
mesnew, dennew: Integer;
begin
mesnew := 1;
dennew := 1;
tt := "ll";
ppext := inttostr(mesnew)+inttostr(dennew);
ppname := "c:\Pj999"+tt+"."+ppext;
CopyFile(PChar("c:\xxx.pdf"),PChar(ppname),false);
end;

---

← →
ss300   (2003-11-03 11:19) [4]

в Д5 работает, в Дльфи7 не пашет мля((

---

← →
Anatoly Podgoretsky ©   (2003-11-03 11:22) [5]

Тебя просили привести определения типов и переменных, но видимо тебе не требуется.

---

← →
ss300   (2003-11-03 11:25) [6]

ppname: String[25];
ppext,tt : String[4];

---

← →
Anatoly Podgoretsky ©   (2003-11-03 11:29) [7]

Правильно ругает, нельзя ShortString приводить к Pchar

---

← →
Stratos ©   (2003-11-03 11:54) [8]

тебе памяти жалко? :) она же динамически выделяется? если таки нужен ShortString делай временные переменные типа PChar;
var
TempExt, TempName: PChar;
begin
TempExt:= ppext;
TempName:= ppname;
CopyFile(...);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c