Odczyt danych z pliku INI w wątku...

0

Mam taki problem...
Otóż tworzę sobie wątek, w i OnExecute wywołuje sobie poleceniem

Synchronize(Dzialaj);

moją procedurę o koodzie jak niżej. Otóż problem jest tego rodzaju że gdy odkomentuję część odpowiedzialną za odczytanie danych z pliku INI, kompilator wywala mi błąd AccesViolation. Czym jest to spowodowane i jak mam odczytać te dane?

###KOD PROCEDURY###

procedure TWatek.Dzialaj;
var
  aINI : TINIFile;
begin
  FreeOnTerminate := True;

  Sleep(500);
  if MainForm.CheckUSB <> 'Brak' then
  begin
    USBLetter := MainForm.CheckUSB;
    if FileExists(USBLetter + 'archiwum.ini') then
    begin
     { aINI.Create(USBLetter + 'archiwum.ini');
      try
        Komputer := aINI.ReadString('Archiwum', 'Nazwa komputera', 'NIEZNANY');
        Data := aINI.ReadDate('Archiwum', 'Data archiwacji', 0);
      finally
        aINI.Free;
      end;   }
      PodlaczonyForm := TPodlaczonyForm.Create(Application);
      PodlaczonyForm.lblInfo [glowa] .Caption := 'Na dysku USB znajduje się archiwacja z dnia ' + DateToStr(Data) + ' dokonana na komputerze ' + Komputer + ' Co chcesz zrobić?';
      PodlaczonyForm.ShowModal;
      PodlaczonyForm.Free; 
    end else
      ShowMessage('Na dysku USB nie znaleziono plików archiwacji');
  end;
end;
0

aINI:=TIniFile.Create(USBLetter + 'archiwum.ini');
zamien na to. kiedys tez mi sie wszystko przy tym sypalo :)

0

No tak... [wstyd]
Tak sie zapamietalem w szukaniu bledow w wywolywaniu watku, ze nigdy bym nie pomyslal ze kod wczytania danych z INI jest zly (tym bardziej ze stosuje go w kilku innych miejscach w programie - oczywiscie poprawna wersje).
Thx

1 użytkowników online, w tym zalogowanych: 0, gości: 1