Kod: Tümünü seç
var
a:string;
begin
a:=edit1.text;
copyfile('data.dat','yedek\'+pchar(a)+,false);
Application.Exename ' de denedim olmuyor !!
Acil yardım Please ;
Kod: Tümünü seç
var
a:string;
begin
a:=edit1.text;
copyfile('data.dat','yedek\'+pchar(a)+,false);
Birde şunu deneX_ALPEREN_X yazdı:merhaba arkadaslar CopyFile da sorun oluyorum Pchar hatası nasıl Giderebilirim yardımcı olursanız sevinirmsonuc olumsuz ya type hatası veriyor yada güvenli değildiyor ?Kod: Tümünü seç
var a:string; begin a:=edit1.text; copyfile('data.dat','yedek\'+pchar(a)+,false);
Application.Exename ' de denedim olmuyor !!
Acil yardım Please ;
Kod: Tümünü seç
begin
.
.
CopyFile('data.dat', PChar('yedek\' + Edit1.text), False);
.
.
end;
Kod: Tümünü seç
begin
.
.
CopyFile('data.dat', PChar('yedek\' + Edit1.text), False);
.
.
end;
Sizin de açıklama yaptıgınız gözümden kaçmış kusura bakmayınmemiky yazdı:Memleketimizde ve bu sitede bir çok kişinin ortak fikri "memik yanık çok basit yazıyor, uzatıyor" şeklinde. Gelgelim X_ALPEREN_X'in sorusuna "hatanın kaynağı string bilgiyi Pchar bilgi ile birleştirmek istemenden kaynaklanıyor" dedim ama bu tespit çözüm olamadı. Neyseki Murat Dicle hocam açık açık yazdı da sorun X_ALPEREN_X arkadaş tarafından anlaşıldı.
Zaten ben Memik Yanık arkadaşın çözümünün doğru olduğunu biliyordum, alternatif olarak ve birazda detaya inmeye çalışarak izah etmek istedim. Yani optimizasyon konusunda da bir bilgi geçmek istedim.memiky yazdı:Memleketimizde ve bu sitede bir çok kişinin ortak fikri "memik yanık çok basit yazıyor, uzatıyor" şeklinde. Gelgelim X_ALPEREN_X'in sorusuna "hatanın kaynağı string bilgiyi Pchar bilgi ile birleştirmek istemenden kaynaklanıyor" dedim ama bu tespit çözüm olamadı. Neyseki Murat Dicle hocam açık açık yazdı da sorun X_ALPEREN_X arkadaş tarafından anlaşıldı.