DLL Profilabexpert

[Stilgar]

Codice: [Seleziona]

s := sl.Values[IntToStr(i)];

prova a cambiarlo in

Codice: [Seleziona]

s := sl[I];

.
Messo così ci possono essere errori, controlla che "I" sia un indice valido.

[Simon75]

Niente Stilgar  non riesco a caricare niente nel display.
la log mi indica sempre (non caricato).

anche inserendo

Codice: [Seleziona]

s := sl[I];

[Stilgar]

Ok, ma il file è popolato? Sembrerà una domanda scema, ma a volte sono proprio le cose più banali che dimentichiamo di controllare.

[nomorelogic]

non trova nessun valore valido: o, come dice Stilgar, non è popolato il file o nelle righe non c'è una stringa nulla ma qualcos'altro
prova ad usare questo codice e vediamo cosa esce nel log

Codice: [Seleziona]

for i := low(PAParams^) to high(PAParams^) do
    begin
       s := sl.Values[IntToStr(i)];
       log(IntToStr(i)+': valore = <' + s + '>');
       if s <> '' then begin
          e := StrToFloat(s);
          PAParams^[i] := e;
          log('   + IntToStr(i)+' caricato');
       end else begin
          log('  ' + IntToStr(i)+' non caricato');
       end;
    end;

[Simon75]

ho notato che quando rimane premuto il tasto carica ovvero ( I0 = 0  )nel display si vede il valore 5

il codice l'ho inserito qui:

Codice: [Seleziona]

  procedure CaricaArrayDaFile(FileName: string; PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
    e: extended;
    s: string;
  begin
    sl := TStringList.Create;
    try
      try
        sl.LoadFromFile(FileName);
        for i := low(PAParams^) to high(PAParams^) do
        begin
          s := sl.Values[IntToStr(i)];
          log(IntToStr(i) + ': valore = <' + s + '>');
          if s <> '' then
          begin
            e := StrToFloat(s);
            PAParams^[i] := e;
            log('   ' + IntToStr(i) + ' caricato');
          end
          else
          begin
            log('  ' + IntToStr(i) + ' non caricato');
          end;
        end;
  except
        on e: Exception do
        begin
          log('porca miseria! "' + e.message + '"');
          raise e;
        end;
      end;
    finally
      sl.Free;
    end;
  end;     

Mi tira fuori questo:

Nome del file selezionato : C:\Users\Simone75\Desktop\Dado\dll\Prova.txt
POutput ok
0: valore = <>
  0 non caricato
1: valore = <>
  1 non caricato
2: valore = <>
  2 non caricato
3: valore = <>
  3 non caricato
4: valore = <>
  4 non caricato
5: valore = <>
  5 non caricato
6: valore = <>
  6 non caricato
7: valore = <>
  7 non caricato
8: valore = <>
  8 non caricato
9: valore = <>
  9 non caricato
10: valore = <>
  10 non caricato
11: valore = <>
  11 non caricato
12: valore = <>
  12 non caricato
13: valore = <>
  13 non caricato
14: valore = <>
  14 non caricato
15: valore = <>
  15 non caricato
16: valore = <>
  16 non caricato
17: valore = <>
  17 non caricato
18: valore = <>
  18 non caricato
19: valore = <>
  19 non caricato
20: valore = <>
  20 non caricato
21: valore = <>
  21 non caricato
22: valore = <>
  22 non caricato
23: valore = <>
  23 non caricato
24: valore = <>
  24 non caricato
25: valore = <>
  25 non caricato
26: valore = <>
  26 non caricato
27: valore = <>
  27 non caricato
28: valore = <>
  28 non caricato
29: valore = <>
  29 non caricato
30: valore = <>
  30 non caricato
31: valore = <>
  31 non caricato
32: valore = <>
  32 non caricato
33: valore = <>
  33 non caricato
34: valore = <>
  34 non caricato
35: valore = <>
  35 non caricato
36: valore = <>
  36 non caricato
37: valore = <>
  37 non caricato
38: valore = <>
  38 non caricato
39: valore = <>
  39 non caricato
40: valore = <>
  40 non caricato
41: valore = <>
  41 non caricato
42: valore = <>
  42 non caricato
43: valore = <>
  43 non caricato
44: valore = <>
  44 non caricato
45: valore = <>
  45 non caricato
46: valore = <>
  46 non caricato
47: valore = <>
  47 non caricato
48: valore = <>
  48 non caricato
49: valore = <>
  49 non caricato
50: valore = <>
  50 non caricato
51: valore = <>
  51 non caricato
52: valore = <>
  52 non caricato
53: valore = <>
  53 non caricato
54: valore = <>
  54 non caricato
55: valore = <>
  55 non caricato
56: valore = <>
  56 non caricato
57: valore = <>
  57 non caricato
58: valore = <>
  58 non caricato
59: valore = <>
  59 non caricato
60: valore = <>
  60 non caricato
61: valore = <>
  61 non caricato
62: valore = <>
  62 non caricato
63: valore = <>
  63 non caricato
64: valore = <>
  64 non caricato
65: valore = <>
  65 non caricato
66: valore = <>
  66 non caricato
67: valore = <>
  67 non caricato
68: valore = <>
  68 non caricato
69: valore = <>
  69 non caricato
70: valore = <>
  70 non caricato
71: valore = <>
  71 non caricato
72: valore = <>
  72 non caricato
73: valore = <>
  73 non caricato
74: valore = <>
  74 non caricato
75: valore = <>
  75 non caricato
76: valore = <>
  76 non caricato
77: valore = <>
  77 non caricato
78: valore = <>
  78 non caricato
79: valore = <>
  79 non caricato
80: valore = <>
  80 non caricato
81: valore = <>
  81 non caricato
82: valore = <>
  82 non caricato
83: valore = <>
  83 non caricato
84: valore = <>
  84 non caricato
85: valore = <>
  85 non caricato
86: valore = <>
  86 non caricato
87: valore = <>
  87 non caricato
88: valore = <>
  88 non caricato
89: valore = <>
  89 non caricato
90: valore = <>
  90 non caricato
91: valore = <>
  91 non caricato
92: valore = <>
  92 non caricato
93: valore = <>
  93 non caricato
94: valore = <>
  94 non caricato
95: valore = <>
  95 non caricato
96: valore = <>
  96 non caricato
97: valore = <>
  97 non caricato
98: valore = <>
  98 non caricato
99: valore = <>
  99 non caricato
100: valore = <>
  100 non caricato

[Stilgar]

Ma il file ... cosa contiene?
Non lo hai ancora postato.

[nomorelogic]

dal log sembrerebbe contenere un centinaio di "accapo" e basta

[Simon75]

Questo è quello che tento di caricare

[Stilgar]

ok, allora prova a non usare values[] ma direttamente [].
Stai caricando tutta la stringa, non devi farla interpretare....
Se metti 45=0,1
Forse alla posizione 45 ti trova 0,1
Ma non ci giurerei così su 2 piedi
Stilgar

[Simon75]

Ma dici in questa riga?

Codice: [Seleziona]

s := sl.Values[IntToStr(i)];

Ho provato  a salvare con il ; usandolo come separatore es: 34;56  il programma mi salva solo il 34 il 56 non lo vede.
Devo indicare il tipo di dato giusto?

[nomorelogic]

Ma dici in questa riga?

Codice: [Seleziona]

s := sl.Values[IntToStr(i)];

si prova a sostituirla con:

Codice: [Seleziona]

 s := sl[i];

Edit:
i numeri vanno salvati con la notazione anglosassone, quindi il separatore decimale è il punto "." e non la virgola ","
se non puoi usare il punto, devi aggirare la cosa con FormatSettings

[Simon75]

Inserendo questo:

Codice: [Seleziona]

 s := sl[i];

La  Log mi tira fuori:


Nome del file selezionato : C:\Documents and Settings\Simone\Desktop\dll\Prova.txt
POutput ok
0: valore = <45>
  0 caricato
porca miseria! "List index (1) out of bounds"

[Stilgar]

Non controlli gli indici e la validità dei limiti .
Ve bene fare il ciclo for per l'array in memeoria, ma devi anche impedire di "leggere" oltre i limiti.
Il primo giro il valore è presente.
Ma il secondo giro non hai nessun valore, per cui TStringList ti segnala il problema.

Stilgar

[Simon75]

Si... ma come faccio a impedire di leggere oltre i limiti?

[nomorelogic]

ci sono molti modi, prova questo

Codice: [Seleziona]

  procedure CaricaArrayDaFile(FileName: string; PAParams: PDLLParams);
  var
    i: integer;
    sl: TStringList;
    e: extended;
    s: string;
  begin
    sl := TStringList.Create;
    try
      try
        sl.LoadFromFile(FileName);
        for i := low(PAParams^) to high(PAParams^) do
        begin
          if not (i in [0..sl.count-1]) then
             break;

          s := sl.Values[IntToStr(i)];
          log(IntToStr(i) + ': valore = <' + s + '>');
          if s <> '' then
          begin
            e := StrToFloat(s);
            PAParams^[i] := e;
            log('   ' + IntToStr(i) + ' caricato');
          end
          else
          begin
            log('  ' + IntToStr(i) + ' non caricato');
          end;
        end;
  except
        on e: Exception do
        begin
          log('porca miseria! "' + e.message + '"');
          raise e;
        end;
      end;
    finally
      sl.Free;
    end;
  end;