..schon wieder ich. Bin jetzt schon den ganzen Nachmittag am selben Problem, und komme nicht weiter!!!
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!