double Werte aus Strings lesen

[hukopush]

Hallo Forum,
ich habe schon des öfteren in euren Beiträgen rumgestöbert.
Da ich jetzt ein problem habe, bei dem ich selber keine Idee mehr habe, wende ich mich Hilfesuchend an euch!!

Mei Problem ist eigentlich nur ein Geschwindigkeitsproblem und zwar lese ich aus einem Ansistring der folgendermassen aufgebaut ist

1020,686 3566,704 3669,117 3520,530 541,853 1544,589 1789,372 1211,255 0,000 0,000 0,000 0,000 0,000 21,045 19,881 20,764 20,306 20,995 20,318 usw.


die Werte folgendermasen in ein Array ein.

Delphi-Quellcode:

var
  Hilf1 : Ansisring;
  aktPos : Longint;
for i := 1 to AktMesszahl - 1 do
begin
  while hilf1[aktpos] = ' ' do  // alle Leerzeichen rausfiltern
    inc(aktpos);

  Hilf2 := '';
  while hilf1[aktpos] <> ' ' do
  begin
    Hilf2 := Hilf2 + hilf1[aktpos];
    inc(aktPos);
  end; (* while *)
  DatenArray[AktHeaderzahl-1,aktDatensatz-1,i] := StrToFloat(hilf2);
end; (* for *)

Da meine Dateien bis zu ca. 1000000 Zeilen obigen Typs(oder mehr Daten) bestehen, kann dies eine sehr Zeitaufwendige Procedure sein. (10000 Zeilen benötigen ca 22 Sekunden auf einem P4 1,8 Ghz)

Hat einer eine Idee wie ich dieses einlesen beschleunigen kann?

Bin für jede Anregung dankbar
Gruß
Heiko

[shmia]

Der Flaschenhals ist die Zeile
Hilf2 := Hilf2 + hilf1[aktpos];
Jedesmal wird Hilf2 um ein Zeichen verlängert, dabei wird dynamisch
neuer Speicher angefordert, der bisherige String an den neuen Platz kopiert,
das eine Zeichen angehängt und der alte Speicher freigemacht.
Das braucht Zeit !!

Delphi-Quellcode:

var 
  Hilf1 : Ansisring; 
  aktPos : Longint; 
   
for i := 1 to AktMesszahl - 1 do 
begin 
  while hilf1[aktpos] = ' ' do  // alle Leerzeichen rausfiltern 
    inc(aktpos); 

  // die nächsten 15 Zeichen (oder weniger)
  // als Float lesen
  DatenArray[AktHeaderzahl-1,aktDatensatz-1,i] := StrToFloat(Copy(hilf1, 1, 15)); 

  // bis zu nächsten Leerzeichen überlesen  
  while hilf1[aktpos] <> ' ' do 
    inc(aktPos); 
end; (* for *)

[hukopush]

Vielen Dank für den Tip, aber ich glaube der richtige durchbruch war es noch nicht. Die Lesezeit verkürzte sich bei meinem testcase von 22 auf 19,5 sekunden.
Trotzdem bedanke ich mich bei dir, denn ich hoffe, das noch 10 weitere solcher Beiträge kommen,und ich somit auf 10 sekunden komme!!

heiko