kolay gelsin
çalışmış olduğum projede veritabanını çalışma yılına göre kullanmak için aliası açılışta düzenlemeye çalışıyorum.
(dün internetim sorunluydu ve formun offline hali yardımcımdı..Ne kadar harika olduğunu dün bir kere daha keşfettim ve hazırlayan arkadaşlara bir kere daha teşekkür etmek istedim. ELLERİNİZE SAĞLIK )
Öncelikle MUSTAFA HOCAMIN kullandığı gibi DATABASE ekledim.(ve kullanım amacını da öğrenmiş oldum...)
Daha sonrada RECEP HOCAMIN gönderdiği kodları kullandım.
Kod: Tümünü seç
procedure Tdm.DataModuleCreate(Sender: TObject);
var
Buf : array[0..256] of char;
appdir:string;
yenialias:string;
begin
yenialias:='data\'+form1.edit1.Text;
//Screen.Cursor := crHourglass;
AppDir:=ExtractFilePath(Application.ExeName)+yenialias; //**** 1 ****
database.Connected := False;
database.Params.Clear;
database.Params.Add('PATH=' + AppDir);
if Session.Active then
Session.Close;
Session.NetFileDir := AppDir;
GetTempPath(255, Buf); //**** 2 ****
Session.PrivateDir := Buf;
database.Connected := True;
end;
Ama bunu tanımlamış olduğum projeye eklediğimde sonuç alamadım..
*** 1. *** noktada Application tanımlamasını tanımadı..
undeclared identifier'application' hata mesajını verdi...
Bir değişken tanımladım ve bir değişken tanımlayarak bu sorunu aştım.
Ama bu seferde *** 2.*** noktada undeclared identifier'GetTempPath' hatasını aldım..
Acaba bu hataların sebebi ne olabilir.Yeni bir projede çalıştı ama bitmek üzere olan projede bir türlü çalıştıramadım Yeni projede yaptığım herşeyi kontrol ettim,herşey aynı...
Yardımlarınızdan dolayı şimdiden teşekkür ederim...