În versiunile mai vechi ale Delphi, sunt introduse două funcții utile: TryStrToInt și TryStrToFloat. Aceste funcții utilizează argumente ca argumente pentru a converti la o valoare intregă sau reală și o variabilă în cazul în care rezultatul va fi scris în cazul unei conversii reușite. Dacă conversia eșuează, funcția revine false.
Funcția TryStrToInt (const S: șir; valoarea: Integer): Boolean;
funcția TryStrToFloat (const S: șir; valoarea: Double): Boolean; suprasarcină;
Un fragment de cod folosind funcția TryStrToFloat este prezentat mai jos. Trebuie remarcat faptul că în ...
Ca argument, funcția are un număr real cu un set separator zecimal în acest sistem de operare.
dacă (TryStrToFloat (EditMu.Text, Mu) = false) atunci
ShowMessage ('Introduceți corect parametrul Mu.');
2.5. Butoane pentru pornirea / oprirea calculului
Adesea, programatorii blochează câmpurile de intrare de la calcularea valorilor din ele în timpul calculului, atunci când dezvoltă programe de decontare. Pentru a face acest lucru, atunci când calculul este început, câmpurile sunt inaccesibile (Edit1.Enabled: = false;) sau setați proprietatea ReadOnly (Edit1.ReadOnly: = true;) pentru ele. Lăsăm acest moment la considerația dezvoltatorului. Aceasta este o măsură posibilă, dar nu obligatorie, deoarece în timp ce programul consideră că nu verifică câmpurile de intrare. Dar lucrarea butoanelor de control trebuie să fie atenționată. Dacă calculul prin metoda Monte Carlo este asigurat în mod rezonabil, adică se efectuează cu statistici mari, programul poate dura câteva secunde. În acest caz, dezvoltatorul trebuie să furnizeze un buton care vă permite să întrerupeți calculul. Este rezonabil să presupunem că înainte de a începe programul de calcul, butonul START este activ și butonul STOP nu este disponibil pentru utilizare. Când calculul este în desfășurare, butonul START este inaccesibil, iar butonul STOP este disponibil pentru utilizare. La sfârșitul calculului sau în cazul în care calculul a fost întrerupt, butoanele revin la starea inițială. Una dintre opțiunile de a lucra cu butoane este afișată sub forma unui fragment de cod de mai jos. În acest caz, este utilizat un buton, care este redenumit în funcție de acțiunile programului.
dacă Button1.Caption = 'Start' începe apoi
ProcRun; // Începeți calculul, verificați dacă este apăsat butonul STOP
altfel dacă Button1.Caption = 'Stop' începe apoi
ProcStop; // Opriți calculul, stocați statistici
Trimiteți-le prietenilor: