Orzobimbo

Utenti
  • Numero contenuti

    1
  • Iscritto

  • Ultima visita

Risposte inseriti da Orzobimbo


  1. Salve a tutti, sono nuovo del forum e vorrei un aiuto per riuscire ad acquisire quello che scrivo dentro una casella di testo stringa che poi verrà salvata con SaveDialog, Invece con OpenDialog carichero i file salvati nella casella Display.Praticamente dovrei rendere l'ingresso PInput^[Leggi] come un read poi dovrei rendere l'uscita POutput^[stampa] come un write.

    Ringrazio per l'attenzione.

    Inserisco una parte della DLL

     procedure CalculateEx(PInput, POutput, PUser: PDLLParams; PStrings: PStringParams);
     // Routine è permanente
     var
    String_output: string;
    String_input: string;
    s: shortstring;
     begin
    if PInput^[i0] > 2.5 then
    begin
      s := ApriOpenDialog;
      if s <> '' then
    	CaricaArrayDaFile(s, POutput);
    end;
    if PInput^[i1] > 2.5 then
    begin
      s := ApriSaveDialog;
      if s <> '' then
    	SalvaArrayInFile(s, POutput);
    end;
    
    PInput^[Leggi] := strtofloat(String_input);
    POutput^[stampa] := strtofloat(String_output);
    
    
    
     end;		
    

    post-111650-0-79975600-1357912842_thumb.jpg

    post-111650-0-15167600-1357912869_thumb.jpg