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;