Filestream per leggere un file

[nomorelogic]

visto che si tratta di un log, le stringhe hanno tutte la stessa lunghezza?

[frandell]

Non mi dà errore a runtime ma non riesce a leggermi la myStringa. E alcuni tra i tag xml del file di output sono vuoti

[Stilgar]

Hai provato a scrivere un file con il contenuto letto dallo stream?

[frandell]

x nomorelogic: per stringhe intendi le righe del file? In tal caso non hanno la stessa lunghezza.
x stilgar: grazie per il suggerimento, provo subito e faccio sapere

[frandell]

Dimenticavo: comunque scrivevo myStringa su un TMemo e ottenevo solo una interminabile serie di ?

[Stilgar]

Leggevi ma depositavi a casaccio in memoria.
Come ti dicevo devi far puntare al primo carattere valido myString[1] ... e non myString

Stilgar

[frandell]

Grazie mille ancora, Stilgar.

Ho seguito il tuo suggerimento, sostituendo myStringa[1] a myStringa nella chiamata della read e adesso ottengo il seguente errore a runtime:

"Il progetto MyParser ha sollevato una eccezione di classe 'EConvertError' con messaggio: "" is an invalid float.
At address 4564A2".

Adesso provo a capire qualcosa di più

[Stilgar]

StrToFloat("") ...
dall'errore c'è qualche cosa di simile

[frandell]

Niente, ora è un po' più chiaro. Purtroppo sto caricando 32K per volta in MyStringa e tento di parserizzare: ed è questo l'errore perché la logica del programma che ho implementato ragiona sulla singola riga. Mi chiedo comunque una cosa: se leggo in filestream una riga per ogni blocco ottengo un guadagno in termini di tempo? E' questo quello che vorrei capire meglio.
Intanto ringrazio Stilgar ancora perché è stato molto paziente con uno come me che ha ancora molti problemi di base

[Stilgar]

Prendi spunto dall'ultimo pezzo di codice che ti ho postato.

[frandell]

Grazie ancora. Non lo avevo preso in considerazione prima perché non lo capivo in quanto mi era sfuggita proprio la prima riga, quella in cui dichiari s in input come stream. Scusami ancora 

[frandell]

Ciao e scusate di nuovo.
Come da suggerimento di Stilgar ho provato a modificare il codice in questo modo:

Codice: [Seleziona]

procedure TGUI_Parser.ManeggiaLog(const txt: String);
var //myFile : TextFile;
Reader : TFileStream;
myStringa, myOre, myMinuti, mySecondi, mySubStr: Ansistring;
c : char;
m, Index: integer;
//,index,bufferleng
FlagCapt, FlagNew, FlagReal, FlagAlr: boolean;
begin
  //AssignFile(myFile,txt);
//  Reset(myFile);
  Visualizzatore.Append('Leggo Log File: '+txt);
  StringaCapt_o :='';
  StringaId_o :='';
  RealTime_o := '0';
  CpuTime_o := '0';
  FlagCapt := False;
  FlagNew := False;
  FlagReal := False;
  //bufferleng := 32768;
  k:=0;
  SetLength(StringaVett,3500000);
  Index := 0;
  try
    Reader := TFileStream.Create(txt,fmOpenRead);
    FlagCapt := False;
    FlagAlr := False;
    StringaCapt_o:=MyDeclare.StringaCapt;
    StringaId_o:=MyDeclare.StringaId;
    RealTime_o:=MyDeclare.RealTime;
    CpuTime_o:=MyDeclare.CpuTime;
    myStringa := '';
    while Index < Reader.Size do
     begin
      Reader.read(c,sizeof(c));
      Visualizzatore.Append('Valore di C '+c);
      if (C <> #13) or (C <> #10) then
       begin
        myStringa := myStringa + C;
        ...
        myStringa := ''; //per reinizializzare la stringa una volta andato a capo
      end;
finally
    Reader.Free;
  end; 

L'ho lanciato da due ore e mezza ed è ancora in esecuzione (ammesso che vada bene). Speravo di potermela cavare con molto meno. Potete per favore suggerirmi qualcosa per renderlo più veloce?
Grazie in anticipo e scusatemi ancora.
Fra

[Stilgar]

Codice: [Seleziona]

 Visualizzatore.Append('Valore di C '+c); 

Visualizzatore .... cosa è?

Stilgar

PS:
Index?? Cosa è ??
Lo sposti?

[frandell]

Ehm hai ragione...
Visualizzatore è il TMemo.

Quanto ad Index...mannaggia a quanto sono sbadato certe volte!!!

[Stilgar]

Allora ... il memo ... metti un beginUpdate e un endUpdate. (Altrimenti rallenti con l'update e render a video).
Ogni 2000 caratteri metti un application.ProcessMessage.
In questo modo fai andare avanti anche i messaggi e l'applicazione non da quel fastidioso senso di "blocco".
Stilgar