12-06-2019, Saat: 14:28
merhaba iyi gunler assagideki kod satirinda ** ile baslayan kodu ekleyince yani ini.dosyasindan veri cekince access violation hatasi aliyorum sorun nedir?
procedure TForm1.FormShow(Sender: TObject); var iniServer,iniAd:string; ini1 : TINIFile; i:integer; begin ini1 := TINIFile.Create(TPath.Combine(TPath.GetDocumentsPath ,'SETTINGS.INI')); iniServer:= ini1.readString('DOKTOR','SERVER', ''); iniAd:=ini1.ReadString('DOKTOR','SERVER',''); initc:=ini1.readString('DOKTOR','TC',''); ini1.Free; if (iniServer='')or(iniAd='')or (initc='') then begin ShowMessage('Sunucu Ayarları Eksik Lütfen Doldurun'); ayarlartab_slide.ExecuteTarget(self); exit; end; SetLength(con_S,2); SetLength(Qry_S,2); for I := 0 to Length(con_S)-1 do Begin ini1 := TINIFile.Create(TPath.Combine(TPath.GetDocumentsPath ,'SETTINGS.INI')); / ****** con_S[i].Server:=ini1.readString('DOKTOR'+i.ToString,'SERVER', ''); End;