Zeichenkette von TextFile in Array einlesen

[Tomy]

..schon wieder ich. Bin jetzt schon den ganzen Nachmittag am selben Problem, und komme nicht weiter!!!
:wall:

Ich habe eine bestimmte Zahlenreihenfolge in einem TextFile, die mit ';' getrennt sind.
nun möchte ich diese in ein Array einlesen. Ich weiss nicht wieviele Zahlen im TextFile
abgespeichert sind!


TextFile:
65;64;65;67;99;22;1;123;543;22 etc..


Ziel:
Array[0].Zahl:= 65;
Array[1].zahl:= 64;
etc...

Delphi-Quellcode:

if OpenDialog.Execute then
  AssignFile(f, OpenDialog.FileName);
  Reset(f);
  while not EOF(f) do begin
    Readln(f,s);
    inc(anzBu);
    SetLength(Taste,anzBu);
    for i:=0 to length(s) do begin
      with Taste[anzBu-1] do begin
        code:=strToInt(copy(s,1,pos(';',s)-1));
      end;
    end;
  end;

Dies ist mein bisheriger Code!

[fkerber]

HI!

Und was genau geht nicht?
Kommen Fehlermeldungen?


Ciao Frederic

[Tomy]

Nein aber es wird nur die 1. Zahl eingelesen: 65.
Im Array sollten jedoch sämmtliche Zahlen enthalten sein: 65;64;65;67;99 etc..

[yankee]

schau dir das mal an:
http://www.delphipraxis.net/internal...ect.php?t=3816
wenn du die explodefuntkion gaanz leicht umschreibst (also als result TIntegerDynArray nimmtst und bevor du was in den array reinschmeißt immer schon strtoint benutzt), dann kannst du die ganz easy für deinen Zweck benutzen

[IngoD7]

Zitat:

Zitat von Tomy

Nein aber es wird nur die 1. Zahl eingelesen: 65.

Überlege mal. Du liest ja auch immer wieder den String s unverändert von Anfang an. Wenn du das erste Semikolon abgefrühstückt und die erste Zahl damit ermittelt hast, muss ja irgendwas geschehen, damit du nicht jedesmal exakt das gleiche tust. :wink:

[Duffy]

Hallo Tomy,
vielleicht kannst Du ja was mit dem Beispiel anfangen ...

bye
Claus

[yankee]

das ist ja fürchterlich. Und deine Liste ist sehr astronomisch. Ich habe dir mal was funzendes geschrieben. Aber wenn du was erkennen willst, darfst du nicht so viele Elemente pro Zeile haben.