Inc(j2);
until scon[j2]=';';
Delete(scon,j1,j2-j1);
Insert(sbase,scon,j1);
end;
end;
function FindFileBD(nmFileBD:string;var scon:string; var
dlg:TOpenDialog):string;
var sb:string;
begin
if Not(FileExists(sb)) then
begin
//Настройка диалога:
dlg.Filter:='Файл ' +nmFileBD+'|'+nmFileBD;
dlg.Title :='Найдите файл базы данных !';
dlg.InitialDir:=ExtractFilePath(ParamStr(0));
if dlg.Execute then
begin
sb:=dlg.FileName;
ChangeBasePath(scon,sb);
end
else
begin
ShowMessage('Не найден файл БД:'+#13#10+sb+#13#10+'До
свидания !');
sb:='';
end;
end;
Result:=sb;
if sb<>'' then ChangeBasePath(ConStr,sb);
end;
……………………………………………………….
Тапсырма
Тапсырма
:
:
Бағдарлама ішіндегі бағдарламалар алгоритімімен танысып,
Бағдарлама ішіндегі бағдарламалар алгоритімімен танысып,
оларға
комментарии жасаңыз
оларға комментарии жасаңыз.
6.
Dialogs
Dialogs
бетінен
TOpenDialog
TOpenDialog
компонентін формаға
компонентін формаға
орналастырыңыз
орналастырыңыз.
Name
Name қасиетіне
dlgBD
dlgBD мағынасын беріңіз.
7. Енді төмендегі қара шрифтпен жазылғанды өндеуші
OnCreate
формасына енгізіңіз:
procedure TfmMain.FormCreate(Sender: TObject);
var sbase:string;
begin
sbase:=FindFileBD('BDMyWorld.mdb',ConStr,dlgBD);
if sbase<>'' then
begin
ADOQuery1.Active :=False;
INI –файлдарында
секциялар мен
кілттер бар, оларды аттары
арқылы табады.
Windows папкасынан
TELEPHON.INI мәліметтер файлын
мысалға келтірейік:
[Providers]
NumProviders=2
NextProviderID=3
ProviderID0=1
ProviderFilename0=UNIMDM.TSP
ProviderID1=2
ProviderFilename1=WAN.TSP
[Provider1]
NumLines=1
NumPhones=0
[HandoffPriorities]
RequestMakeCall=DIALER.EXE
Құрылған файлда
3 секция - [
Providers], [
Provider1] және
[
HandoffPriorities] бар екендігін көреміз. Секция аттары тік төртбұрышты
жақшаға алынған. Секциялар ішінде кілттер орналастырылған, әрбір жолдын
теңсіздіктен кейін сол
жағынан кілттің аты, ал оң жағынан оның мағынасы.
Негізгі
TiniFile
кластарына келесілер жатады:
Create
Ini-файлын оқу немесе жазу үшін ашу
Free
Ашылған Ini-файлын жабу
UpdateFile
Файлдан дискіге берілген мәліметтерді жаңарту
SectionExists
Берілген секцияда файлдын
бар екендігін тексеру
ValueExists
Берілген секцияда кілттін файлда бар екендігін
тексеру
ReadSections
Барлық секциялар бар екендігін алу
EraseSection
Берілген секцияны оның
барлық кілттерімен жою
DeleteKey
Берілген секцияда кілтті жою
ReadSection
Берілген секцияның кілттерін алу
ReadSectionVal
ues
Берілген секцияның барлық кілттерінің (аттарымен)
мағынасын алу
ReadString
Жолдық мағынадан кілттер арқылы берілген
секцияның оқу
ReadBool
Логикалық мағынадан кілттер арқылы берілген
секцияның оқу
ReadDate
Кілт арқылы берілген секцияда күнді оқу
ReadDateTime
Кілт арқылы берілген секцияда күнді және уақытты
оқу
ReadFloat
Кілт арқылы берілген секцияда анықталғанды оқу
ReadInteger
Кілт арқылы берілген секцияда бүтін мағынасын оқу
ReadTime
Кілт арқылы берілген секцияда уақытты оқу
WriteString
Кілт арқылы берілген секцияда (жаңару) жолдық
мағынасын жазу