DLL per salvare e richiamare file txt.

[Legolas]

Se il valore 5 lo salvi dal canale 1 degli input, perché poi lo assegni al canale 1 degli output?

Mi puoi indicare dove lo sto assegnando?
dici qua? oppure devo modificare le costanti?

Lo assegni in CaricaArrayDaFile. La funzione che salva l'array, spiego in parole povere, prende lo stato dei vari controlli DI INPUT (i due push button e il numeric input) e li salva su file in ordine:

riga 1 -> salva lo stato del push button 1
riga 2 -> salva lo stato del push button 2
riga 3 -> salva lo stato del numeric input
riga 4 -> 0
riga 5 -> 0
...
riga 99 -> 0
riga 100 -> 0

La funzione che carica i dati nell'array prende il file appena creato e lo carica nei controlli DI OUTPUT (in questo caso ce n'è solo uno, cioè il display):

riga 1 -> carica il valore di push button 1 in display
riga 2 -> carica il valore di push button 2, ma non viene utilizzato perché non ci sono altri controlli di output
riga 3 -> carica il valore di numeric input, ma non viene utilizzato perché non ci sono altri controlli di output
riga 4 -> carica il valore 0, ma non viene utilizzato perché non ci sono altri controlli di output
...
riga 99 -> carica il valore 0, ma non viene utilizzato perché non ci sono altri controlli di output
riga 100 -> carica il valore 0, ma non viene utilizzato perché non ci sono altri controlli di output

invece di salvare tutto l'array, ti salvi soltanto i valori che ti servono, ad esempio il canale 3 degli input e il canale 1 dell'output.

Questa modifica la devo fare qui?

Codice: [Seleziona]

procedure SalvaArrayInFile(FileName: string; PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
  begin
    sl := TStringList.Create;
    try
      for i := low(PAParams^) to high(PAParams^) do

        if PAParams^[i] <> 0 then


          sl.Add(FloatToStr(PAParams^[i]));


      sl.SaveToFile(FileName);
    finally
      sl.Free;
    end;
  end;

  procedure CaricaArrayDaFile(FileName: string; PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
    e: extended;
    s: string;
  begin

    sl := TStringList.Create;
    try
      sl.LoadFromFile(FileName);
      for i := low(PAParams^) to high(PAParams^) do

      begin

        s := sl.Values[IntToStr(i)];
        e := StrToFloat(s);
        PAParams^[i] := e;

      end;
    finally
      sl.Free;
    end;
  end; 

Esattamente. In questo caso ti salvi solo i due valori che ti servono e te li ricarichi assegnandoli ai controlli esatti

Attualmente si apre e si chiude bene, ma una volta aperto i dialog non posso più riaprili   

In effetti c'è un piccolo "baco" nel codice che ti ho scritto (e un altro lo hai aggiunto tu). Prova così:

Codice: [Seleziona]

  procedure CalculateEx(PInput, POutput, PUser: PDLLParams; PStrings: PStringParams);
  // Routine è permanente
  var
    sl: TStringList;
    s: string;
  begin
    if PInput^[I0] > 2.5 then
    begin
      if (PInput^[I0] > 2.5) and not (PUser^[U0] > 2.5) then
      begin
        s := ApriOpenDialog;
        if s <> '' then
          CaricaArrayDaFile(s, POutput);
      end;
    end;
    PUser^[U0] := PInput^[I0];

    if PInput^[I1] > 2.5 then
    begin
      if (PInput^[I1] > 2.5) and not (PUser^[U1] > 2.5) then
      begin
        s := ApriSaveDialog;
        if s <> '' then
          SalvaArrayInFile(s, PInput);
      end;
    end;
    PUser^[U1] := PInput^[I1];
  end;   

Tieni anche presente che i due button rimangono premuti perché il controllo passa alle dialog, quindi devi ripremerli una prima volta per "sbloccarli", dopodiché funzionano alla perfezione

[Simon75]

Ciao,
Allora se voglio salvare solo l'ingresso 3 quindi (riga 3 -> salva lo stato del numeric input)
 dovrei fare cosi:

Codice: [Seleziona]

 for i := 3 to 3 do 

Ma qunado salvo non vedo niente nel file di testo.

Ho provato così:

Codice: [Seleziona]

 for i := 0 to 3 do 

e giustamente mi salva i tre ingressi e vedo il 5 e il numero che inserisco nella casella.

Per l'uscita ho fatto così:

Codice: [Seleziona]

for i := 0 to 1 do

Codice: [Seleziona]

 procedure SalvaArrayInFile(FileName: string; PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
  begin
    sl := TStringList.Create;
    try
      for i := 3 to 3 do

        if PAParams^[i] <> 0 then


          sl.Add(FloatToStr(PAParams^[i]));


      sl.SaveToFile(FileName);
    finally
      sl.Free;
    end;
  end;

  procedure CaricaArrayDaFile(FileName: string; PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
    e: extended;
    s: string;
  begin

    sl := TStringList.Create;
    try
      sl.LoadFromFile(FileName);
      for i := 0 to 1 do

      begin

        s := sl.Values[IntToStr(i)];
        e := StrToFloat(s);
        PAParams^[i] := e;

      end;
    finally
      sl.Free;
    end;
  end;

Legolas, c'è anche una cosa che non capisco:
Come mai appena abilito la simulazione in aiutomatico il display si setta a 0?
Dipende dalla costante $Stampa=0?
Ti Saluto