[Risolto] Run Error (216) - General protection fault

[petrusic]

@ DragoRosso e  @ slapshot.
Chiedo umilmente scusa per il tono della mia ultima Rispo.
In questo periodo sto soffrrendo problematiche varie coi S.O Linux installati: In Ubuntu la settimana scorsa è saltata pure la risoluzione del monitor e, solo grazie all'aiuto ricevuto nel relativo Forum, ho potuto, finalmente, oggi, ripristinare la configurazione corretta.

Per le difficoltà incontrate nella denominazione della Form8, sono più che contrariato perchè non riesco a capire come fare per riuscire a mettere in pratica quello che ho in mente.
La mia scelta mi sembra utile, per far sì che possa ripeterla anche in altri programmi, allo scopo di mantenere un nome di Form autoesplicativo, anche se la Fom, potrebbe essere una volta la Form8, un'altra la Form3, e così via.

Ma, dato che ho perso troppo tempo, senza venirne a capo, mi sono più che irritato e mi sono sentito desolatamente umiliato. Così ho deciso di lasciare perdere, almeno per ora.

Anche se il sapore della sconfitta è ancora amaro, sono tranquillo. Non ne parliamo più.

Vi chiedo ancora scusa.
 

[DragoRosso]

In questo periodo sto soffrrendo problematiche varie coi S.O Linux installati....

Tranquillo, non devi scusarti ... io invece voglio farti una proposta risolutiva:  PASSA A WINDOWS 

 

[slapshot]

La penso come @DragoRosso, non occorre scusarsi. Non ti preoccupare e non mollare, mai ! Se te lo dico io che ancora uso delle Arch Based come Manjaro. Può succede con qualunque sistema di avere problemi, con Ubuntu è davvero difficile ma capita anche con quello. Linux si ama e si odia allo stesso tempo, io non ci rinuncerei mai anche se confesso che a volte le comodità di Windows fanno .. bene .

Buona Pasqua !

[petrusic]

Tranquillo, non devi scusarti ... io invece voglio farti una proposta risolutiva:  PASSA A WINDOWS 

Windows? Stai scherzando!
L'ho abbandonato più di 20 anni fa, quando ho potuto cambiare menù, con Linux.  NO, grazie, preferisco questo Paradiso

Auguri anche a te.
[/quote]

[petrusic]

non mollare, mai ! Se te lo dico io che ancora uso delle Arch Based come Manjaro.
. . .
Linux si ama e si odia allo stesso tempo, io non ci rinuncerei mai.

Anch'io ho installato recentemente Manjaro, ma lo conosco ancora quasi niente. Vi ho installato Lazarus. Ho intenzione di approfondirne le conoscenze, perchè vorrei falo diventare il mio S.O principe. Già mil suo Grub mia ha più che entusiasmato.

Buona Pasqua anche a te!
 

[slapshot]

Assolutamente consigliato ! Più semplice da gestire di Arch Linux, ma comunque ne mantiene le caratteristiche rolling release, ma meno bleeding edge . Scarica fpcupdeluxe come eseguibile, dagli i permessi ed usa questo sia per scaricare la versione che ti più ti aggrada di fpc che di lazarus. Da fpcupdeluxe puoi anche decidere di installare comodamente dei framework, tipo mormot 1 e mormot 2 (che sto studiando da un pò), e poi comododamente aggiornarli tramite git ma sempre da interfaccia fpcupdeluxe. Assolutamente consigliato.

Per Manjaro, pamac fa il suo come front end ad AUR, ma io ho trovato che a volte pecca. E quindi ti consiglio anche di installare YAY (Yet Another Y .. qualcosa) che è in grado di interrogare da shell anche i repository AUR (snap non lo so e infatti lo uso poco. Anche per installare una semplice cazzata scarica mezzo giga di roba, direi che non mi piace granché).

A presto !

[petrusic]

Assolutamente consigliato ! Più semplice da gestire di Arch Linux,

Ti ringrazio per i consigli che mi hai dato su Manjaro, ma non andiamo fuori tema. Eventualmente, aprimao un'altra discussione. 

[petrusic]

E' inutile, NON riesco ad andare avanti, se non supero l'ostacolo..
Ho trovato un'altra soluzione: La Form dinamica.

Ho allora costruito la Form via codice, senza quindi passare dal Designer.

Codice: [Seleziona]

  FormAvviso:=TForm.Create(nil);
  with FormAvviso do
  begin
    Height:= 130;
    Left:= 500;
    Top:= 50;
    Width:= 400;
    Position:= poScreenCenter;
    Caption:= 'MOVIMENTI AMMORTIZZABILI';
  end;

  Lmsg := TLabel.Create(FormAvviso);
  with Lmsg do
  begin
    Parent := FormAvviso;
    Height:= 80;
    Left:= 10;
    Top:= 20;
    Width:= 300;
    Caption:= 'Ricerca in corso' + lineending + ' ' + lineending + Space(30) + '  A T T E N D I';
    AutoSize:= False;
    Enabled:= True;
    Visible:= True;
  end;

   FormAvviso.Show;
   Sleep(200);     // Attendi 200 millesecondi (= 1/5 di secondo)
   Application.ProcessMessages;

Funziona tutto perfettamente, ma fino ad un certo punto, infatti la Form viene creata e visualizzata, ma al suo interno non sono riuscito a mostrare la Label col messaggio di Attesa.

Ho cercato in tutti i modi a me noti di venirne a capo, ma ancora una volta ho perso la battaglia.

[slapshot]

Se devi creare a runtime un componente visuale devi procedere alla stesso modo in cui hai creato la form. Non e' assolutamente necessario assegnare la form come owner anche se consigliato, tuttavia la proprietà parent diventa importante.

https://www.askingbox.com/tip/delphi-lazarus-dynamically-create-a-label-at-runtime

[DragoRosso]

@petrusic

A me funziona.

Dove è che usi quel codice ? In un evento ? Quale ?

[slapshot]

Se devi creare a runtime un componente visuale devi procedere alla stesso modo in cui hai creato la form. Non e' assolutamente necessario assegnare la form come owner anche se consigliato, tuttavia la proprietà parent diventa importante.

https://www.askingbox.com/tip/delphi-lazarus-dynamically-create-a-label-at-runtime

Inopportuno, il tablet non aveva caricato il resto del tuo codice sorgente.

[petrusic]

@petrusic
A me funziona.
Dove è che usi quel codice ? In un evento ? Quale ?

Io eseguo il create e l'emissione della mia Form dinamica dentro una routine.

Però, Udite, Udite: Ora ce l'ho fatta!

Ho inserito le righe enabled  e visible  nel codice del gruppo di istruzioni TForm.Create ed ha funzionato.

Codice: [Seleziona]

procedure AmmortamentoCespiti();     
type
  TtbGrupCespiti = array [0..10, 0..1] of string;   
 . . .
var
  FormAvviso: TForm;
  Lmsg: TLabel;

  swFine: Boolean = False;    
. . .
begin
. . .
  FormAvviso:=TForm.Create(nil);
  with FormAvviso do
  begin
    Height:= 130;
    Left:= 500;
    Top:= 50;
    Width:= 400;
    Position:= poScreenCenter;
    Caption:= 'MOVIMENTI AMMORTIZZABILI';
    Enabled:= True;     <-- NUOVA
    Visible:= True;      <-- NUOVA
  end;

  Lmsg := TLabel.Create(FormAvviso);
  with Lmsg do
  begin
    Parent:= FormAvviso;
    Height:= 80;
    Left:= 10;
    Top:= 20;
    Width:= 300;
    Caption:= 'Ricerca in corso' + lineending + ' ' + lineending + Space(30) + '  A T T E N D I';
    AutoSize:= False;
    Enabled:= True;
    Visible:= True;
    ParentColor:= False;
  end;

   FormAvviso.Show;
   Sleep(200);
   Application.ProcessMessages;

Finalmente ho finito.   Grazie.