Visualizzazione dei risultati da 1 a 7 su 7

Discussione: [delphi]procedure

  1. #1

    [delphi]procedure

    Salve

    Se devo sapere se un file esiste, creo una procedura di questo tipo...

    procedure Fileesiste()
    begin
    if filexist('C:\programmi\file.tex')then
    valore:true
    else
    valore:false;

    end;

    QUINDI.....
    se esiste apro il file se non esiste non lo apro. Piuttosto che analizzare la variabile valore, vorrei analizzare la procedurA..

    esempio.. se la procedura 'Fileesiste'è uguale a true APRO IL FILE
    ALTRIMENTI NON LO APRO....COME POSSO IMPLEMENTARE LA STRUTTURA Della procedura per restituire un valore?


    grazie

  2. #2
    Nn so se ho capito bene...
    Comunque basta fare:

    if FileExists('c:\prova.txt') then
    Apri;

    Ciao
    www.iTentroPy.it - Elettronica e Programmazione
    Foto

  3. #3
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,472
    Non sono sicuro, ma credo che tu stia chiedendo come si realizza una funzione?

    La funzione è una procedura particolare che, a differenza di questa, restituisce un valore di ritorno.

    Dichiarare una funzione è semplicissimo...si fa analogamente ad una procedura, ma dopo l'elenco dei parametri (se richiesti) occorre indicare il tipo di dato che la funzione restituisce.

    Facendo un esempio tenendo conto del tuo caso:

    codice:
    function FileEsiste(NomeFile: String): Boolean;
    begin
      if FileExists(NomeFile) then
        Result := True
      else
        Result := False;
    end;
    In modo più compatto:
    codice:
    function FileEsiste(NomeFile: String): Boolean;
    begin
      Result := FileExists(NomeFile);
    end;
    La variabile Result contiene il valore di ritorno della funzione; quando la funzione termina, alla routine chiamante viene restituito tale valore.

    Il codice sopra riportato è a puro titolo esemplificativo, dato che richiamare una funzione che restituisce pari pari il risultato di un'altra è totalmente superfluo (non credi?).

    Ciao!
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

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

  4. #4
    Ma in questo caso mi sembra inutile...
    www.iTentroPy.it - Elettronica e Programmazione
    Foto

  5. #5

    [delphi]procedure

    Salve


    conosco le funzioni e le procedure,,, ma non so cosa e come devo usare l'una o l'altra, considerando che la funzione e procedura che sia, mi deve restituire un valore, e non devo passare nulla alla funzione o precedura...

    grazie ciao

  6. #6
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,472
    In quel caso, non utilizzi un parametro ma inserisci il nome del file direttamente nella funzione...ogni altra soluzione è inutilmente più complessa, come ha detto inizialmente p87.

    O forse continuo a non capire esattamente ciò che vuoi dire...
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

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

  7. #7
    Cosa devi fare esattamente??
    www.iTentroPy.it - Elettronica e Programmazione
    Foto

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.