Visualizzazione dei risultati da 1 a 6 su 6
  1. #1

    [Delphi], Conversione di const Integer to String

    Dato
    codice:
    const
      GRAFICO: Integer=  0;
    Se tento di eseguire

    codice:
    var
      A: String
    begin
      a:= IntToStr(GRAFICO);
    ottengo:

    codice:
    [Pascal Error] DMBase.pas(229): E2250 There is no overloaded version of 'IntToStr' that can be called with these arguments

    Perché? Come posso fare per trasformare quell'intero in una stringa?

  2. #2
    [Pascal Error] DMBase.pas(229): E2250 There is no overloaded version of 'IntToStr' that can be called with these arguments
    Quale versione di Delphi usi? Ho provato ad effettuare la conversione in diverse salse senza mai incappare in warning né in errori.
    "Se riesci a passare un pomeriggio assolutamente inutile in modo assolutamente inutile, hai imparato a vivere."

  3. #3
    usa questo no?
    codice:
    const a : integer = 0;
    var b : integer;
    var c : string;
    [...]
    b := a;
    c := IntToStr(b);
    ciao!

  4. #4
    Il fatto è che quella costante è definita in una unit comune a tutto il progetto. Cercavo una soluzione elegante.

  5. #5
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,477
    Originariamente inviato da denis76
    Il fatto è che quella costante è definita in una unit comune a tutto il progetto. Cercavo una soluzione elegante.
    Non hai risposto ad una domanda fondamentale che ti è stata posta: quale versione di Delphi usi?
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

  6. #6
    Il fatto è che quella costante è definita in una unit comune a tutto il progetto. Cercavo una soluzione elegante.
    Prima di discutere la questione dell'eleganza cerchiamo di individuare la causa dell'errore.

    Ho creato questa unit:

    codice:
    unit UnitComune;
    
    interface
    
    const costante: integer = 42;
    
    implementation
    
    end.
    e l'ho usata in un programma minimale:

    codice:
    Program Test;
    
    uses SysUtils, UnitComune;
    
    {$APPTYPE CONSOLE}
    
    var s:string;
    
    begin
      s := IntToStr(costante); // Superfluo
      writeln(s);
    end.
    Tutto funziona come previsto... :master:
    "Se riesci a passare un pomeriggio assolutamente inutile in modo assolutamente inutile, hai imparato a vivere."

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.