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;
Muharrem ARSLAN

