[Delphi] Il Run non va

[hexen]

Ciao

questo è un sorgente tratto dalla guida Delphi di Vanni Brutto:
---inizio---

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TfrmMain = class(TForm)
lblRaggio: TLabel;
txtRaggio: TEdit;
lblAltezza: TLabel;
txtAltezza: TEdit;
btnCalcolo: TButton;
btnExit: TButton;
procedure btnExitClick(Sender: TObject);
procedure btnCalcoloClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.DFM}

procedure TfrmMain.btnExitClick(Sender: TObject);
begin
Close;
end;

procedure TfrmMain.btnCalcoloClick(Sender: TObject);
var rRaggio,
rAltezza: Real;
iResult: Integer;
begin
rRaggio:= STRtoINT(txtRaggio.Text);
rAltezza:= STRtoINT(txtAltezza.Text);

iResult:= Round(rRaggio*rRaggio*rAltezza*Pi);

Caption:= INTtoSTR(iResult);
end;

end.
---fine---
Dopo aver preparato la form, quando lancio il Run (F9) si lancia in anteprima, ma subito dopo si chiude. Perché?

grazie

[AR64S-H]

Per rendere visibile la finestra inserisci alla fine del programma
readln;
Alla pressione del tasto invio il tuo programma si chiuderà
Ciao hexen

[AR64S-H]

Funziona? :sexpulp:
Ciauz

[alka]

L'uso di ReadLn in un programma Windows non ha senso.

Temo che tu non abbia definito la MainForm (finestra principale) nelle impostazioni del progetto, oppure che tale form non sia creata in automatico. Controlla il codice principale del progetto e accertati che esistano le righe

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

La finestra principale è la prima ad essere creata tra tutte quelle del programma.

Un programma Windows creato con Delphi termina quando la finestra designata come principale viene chiusa; controlla se per caso questa finestra non viene chiusa accidentalmente.

Ciao!

[AR64S-H]

Scusate io avevo letto Vanni Bruto e ho pensato che se si chiudeva subito era un programma dos. Ma non ho guardato minimamente il codice. Non mi ero accorto che era una unit. Scusatemi di nuovo!!!!

[AR64S-H]

Vi sembrerà assurdo ma non ho guardato davvero, non me ne sono proprio accorto

[hexen]

Originariamente inviato da alka

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

Dove vanno messe queste righe?

aspè...ma sicuro che gli esempi di vanni brutto vanno bene sul Delphi 6?

[AR64S-H]

Quelle righe devono essere nel file dpr del tuo programma. Praticamente se delphi ti apre da solo il programma anzichè visualizzarti il contenuto del dpr aprilo con notepad e fai le tue modifiche. Tranquillo i programmi di Vanni Bruto funzionano tutti con Delphi 6(pienamente compatibili :gren: ).
Ciao

[hexen]

ma tra le righe che ho postato?

cmq perché delphi non ce le ha messe da solo?

[AR64S-H]

No non fra le righ che hai postato. Esistono i file progetto .dpr, i file form .dfm, i file unit .pas
Tu devi aprire da delphi il file dpr e inserire le seguenti righe se non ci sono. Se delphi ti apre la unit anziche il dpr allora aprilo e modificalo con il notepad.
Se non va così prova a rifare il programma.
Ma tu hai copiato il codice per caso dal programma originale al tuo perchè in quel caso non funziona.
Ciao fammi sapere