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;

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