Текущий архив: 2003.11.13;
Скачать: 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 вся ветка
Текущий архив: 2003.11.13;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.036 c
