DLL per salvare e richiamare file txt.

[Simon75]

345 è giusto l'ho scritto nella casella ti testo è solo il 5 che rompe ma sto cercando di capire se è il mio software che lo inserisce. come posso togliere 1= e 2= questi non vorrei vederli, dovrebbe rimanere solo per      es.  345
 

[nomorelogic]

se nel file non salvi l'indice poi come fai a ricaricarli nell'array alla giusta posizione?

[Simon75]

Non posso salvare anche l'indice altrimenti quando andrò a caricarlo nel display mi visualizzerà anche l'indice assieme al valore 

[nomorelogic]

ma nel display ci metti i valori leggendo dall'array o no?

anche perchè l'altra funzione, quella che legge dal file, salva i valori nell'array...

inizio a pensare di non averci capito nulla 


Edit:
comunque, nel caso, devi cambiare questa riga:

Codice: [Seleziona]

sl.Values[ inttostr(i) ] := FloatToStr( PDLLParams^[i] );

in questo modo:

Codice: [Seleziona]

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

[Simon75]

Con OpenDialog Carico nel display i valori che ho salvato con SaveDialog.
Invece con SaveDialog salvo i valori per OpenDialog che una volta caricati li visualizza nel display 

[Simon75]

   nomore così salva benissimo ho solo quel 5 ma penso sia un problema del software che vedrò di togliere....
Ora mi rimane il problema che quando carico con OpenDialog nel display il file salvato da SaveDialog, il software mi genera un errore come se ci fosse un indirizzo sbagliato.
Bo devo verificare bene 

[Simon75]

Ciao,
ho fatto varie prove è ho verificato che  nel momento che premo il pulsante per aprire il SaveDialog l'array acquisisce il valore 5 e lo stesso vale per l'OpenDialog.
Ora la mia domanda è : esiste un modo per evitare che l'array acquisisca questo valore 5 nel momento che premo il pulsante?
Vi ringrazio 

Codice: [Seleziona]

  procedure CalculateEx(PInput, POutput, PUser: PDLLParams; PStrings: PStringParams);
  // Routine è permanente

  var
    i: integer;
    sl: TStringList;
    s: string;

  begin

    if PInput^[I0] > 2 then
    begin
      s := ApriOpenDialog;
      if s <> '' then
        CaricaArrayDaFile(s, POutput);
    end;

    if PInput^[I1] > 2 then

    begin

      s := ApriSaveDialog;
      if s <> '' then
        SalvaArrayInFile(s, PInput);
    end;

  end;    

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; 

[nomorelogic]

lo sai usare il debugger?
quanto vale immediatamente prima del richiamo della funzione?
quanto vale appena entrati nel corpo della funzione?

[Simon75]

No non so usarlo il debugger come si usa?
Sono sicuro che il problema arriva da li, anzi non è un problema è anche giusto che quando premo il pulsante mi generi il valore 5, ma vorrei dirgli di non scrivere il valore 5 nell'ARRAY nel momento che premo il pulsante.

quanto vale immediatamente prima del richiamo della funzione?

Vale zero

quanto vale appena entrati nel corpo della funzione?

Vale 5 ovvero pulsante premuto

[nomorelogic]

No non so usarlo il debugger come si usa?

Prima leggi qua per le impostazioni.
http://wiki.freepascal.org/Debugger_Setup

Poi ti metti sulla riga dove vuoi interrompere l'esecuzione e poi schiacci F5: la riga diventa rossa e vuol dire che hai messo un breakpoint.
A questo punto vai sul menù esegui->parametri di esecuzione; inserisci il programma che usa la tua dll, confermi e lanci il tutto con F9.
Quando l'esecuzione arriva al breakpoint, l'esecuzione stessa dovrebbe interrompersi, torna l'IDE e puoi vedere come cambiano i valori (watches e local).
Con F7 / F8 puoi avanzare di una singola istruzione alla volta.


Se comunque col debugger vedi che il valore cambia ma non a causa del tuo codice, puoi forzare il valore 0 dentro all'array nel momento del salvataggio.

[Simon75]

Bella idea nomore...il problema è esterno, quindi puoi spiegarmi come forzare L'array a 0 

[nomorelogic]

Bella idea nomore...il problema è esterno, quindi puoi spiegarmi come forzare L'array a 0 

CaricaArrayDaFile assegna dei valori all'array
la sintassi la trovi già li

[Stilgar]

Ma se li hai salvati in testo questi dati, non puoi aggiustarli a mano e vedere se il problema si ripresenta?
Stilgar

[Simon75]

Salve squadra Lazarus 

Il 5 è stato affondato:)

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 i <> 5 then
          Write(i);

      if PAParams^[i] <> 0 then


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


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

Attualmente non riesco a leggere nel display quello che carico con OpenDialog, il tutto da quando ho tolto l'indice dell'array.
Per voi devo fare qualche modifica a:

Codice: [Seleziona]

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; 

Grazie ciao

[nomorelogic]

se carichi senza indice, carichi serialmente partendo dall'inizio...