LinuxMint 19 Mate, Lazarus 2.0.0x64Buongiorno, difficile da capire:
in un Datamodulo nell'evento -onCreate- ho inserito il richiamo ad una procedura di una unit : apritabelle.
La procedura è questa:
I:=0;
with Dataconta do
begin
While I < (ComponentCount-1) do
begin
try
if Components[I] is TZTable then
begin
try
begin
TTemp:= Components[I] as TZTable;
Filename:= TTemp.Tablename;
//informa('il file è :' + filename);
Sleep(1);
Application.ProcessMessages;
TTemp.Active:=False;
TTemp.Active:=True;
end;
except
on E: Exception do exit; // EsercizioBase;
//exit;
end;
end;
except
on E: Exception do
begin
Informa('Si è verificato un errore in una o più tabelle'#13#10+
'in Apri Tabelle per ' + FileName+
' è necessario riconvertire gli archivi'#13#10+
' o scegliere un altro esercizio'#13#10+
'Sarà attivato l''''Esercizio di Esempio');
DataConta.Aziende.Active:=True;
exit;
end;
end;
I:=I+1;
end;
end;
Se non inserisco :
Sleep(1);
Application.ProcessMessages;
mi ritorna l'errore:
Il progetto..ha sollevato una eccezione di classe 'External: SIGSEGV'.
NON È UN PO STRANO?