[RISOLTO] 3,1415 To String: quale type assegnare?

[AlexLazarus]

1) Non hai copiato bene ..... se vedi nel codice postato nelle USES c'è "LCLTYPE" .... c'è un motivo se c'è quell'unità.
[... eccetera ...]

Ah... ecco perché! 👍

Ora tutto funziona. Per semplificare, riporto qui di seguito l'intero codice. Negli screenshot i dettagli più interessanti. C'è quel solo parametro Shift (non usato). Avrei voluto eliminarlo per rendere il listato ancora più "pulito" e ho provato a rimuovere "shift" un po' a casaccio ("così, di botto, senza motivo" cit.). Però Lazarus si arrabbiava e non me lo ha fatto togliere. Poco male: finalmente ORA HO LE IDEE PIU' CHIARE.

Codice: [Seleziona]

unit A_2022_11_14_Prog_240_Funzioni_A_pas;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,LCLTYPE;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }
Procedure circonferenza(Raggio:ValReal);
Var Pi:ValReal;
Var PiGreco: Double;
 begin
    Pi:= 3.141592653589793238462643383279502884197169399;
    PiGreco:= 3.141592653589793238462643383279502884197169399;
    Begin
      Form1.Label1.Caption:=('Circonferenza di raggio ' + Form1.Edit1.text + ' = ' + FloatToStr(Raggio * PiGreco*2));
      Form1.Label2.Caption:=('Diametro di raggio ' + Form1.Edit1.text + ' = ' + FloatToStr(Raggio * 2));
      Form1.Label3.Caption:=('Cerchio di raggio ' + Form1.Edit1.text + ' = ' + FloatToStr(Raggio * Raggio * PiGreco));
      Form1.Label6.Caption:=('Pigreco /ValReal): ' + FloatToStr(Pi));
      Form1.Label5.Caption:=('Pigreco / (Double): ' + FloatToStr(PiGreco));
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
// Elementi di una circonferenza
Var Raggio: ValReal;
Var Posizione: Integer;
Var Trovato:Boolean;
Var Carattere:String;
  begin
     Begin
       Trovato:=False;
           For Posizione:= 1 to Length(Edit1.Text) Do
                 Begin
                   Carattere:= Copy(Edit1.Text,Posizione,1);
                   If Carattere = '.' then
                   Begin
                     ShowMessage('Attenzione! Punto invece di Virgola!');
                     Trovato := True;
                   end;
                 End;
     end;
     If Trovato = True then exit;
     Raggio:= StrToFloat(Edit1.Text);
      Circonferenza (Raggio);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if key = VK_RETURN then Button1.Click;
 end;

end.

[DragoRosso]

Invece di ciclare per tutta la stringa, esiste una funzione standard già presente in Pascal: "Pos(".

Codice: [Seleziona]

var i: integer;
i := Pos('.', Edit1.Text, 1);
if i > 0 then
 trovato := true;

Ciao

[AlexLazarus]

Invece di ciclare per tutta la stringa, esiste una funzione standard già presente in Pascal: "Pos(".

Codice: [Seleziona]

var i: integer;
i := Pos('.', Edit1.Text, 1);
if i > 0 then
 trovato := true;

Ciao

Buono a sapersi!

[AlexLazarus]

Invece di ciclare per tutta la stringa, esiste una funzione standard già presente in Pascal: "Pos(".

Fatto! Ho aggiunto qualche riga di codice per evitare che l'utente rimanga basito in assenza di elaborazione o di messaggi di errore.

Codice: [Seleziona]

procedure TForm1.Button1Click(Sender: TObject);
// Elementi di una circonferenza
Var Raggio: ValReal;
Var Posizione: Integer;
  begin
     If Edit1.text <> '' then
         Begin
         Posizione:= Pos('.',Edit1.Text,1);
         If Posizione > 0 then
         Begin
            ShowMessage('Attenzione!' + chr(13) +'Hai digitato punto (.) invece di virgola (,)');
            Edit1.text:='';
            exit;
         end;
         Raggio:= StrToFloat(Edit1.Text);
         Circonferenza (Raggio);
         end
     Else ShowMessage('Nessun carattere in Edit1!');
end;

Rimane da spiegare la presenza di Hint: Parameter "Shift" not used e come eliminarla.

[DragoRosso]

Rimane da spiegare la presenza di Hint: Parameter "Shift" not used e come eliminarla.

Come ti ho già spiegato alcuni Hint o Warning ti rimarranno. In questo caso viene dichiarato un parametro che il tuo evento non usa. Il parametro non si può togliere e quindi l'HINT te lo tieni 

Ciao