Thema: Delphi Array zerlegen

Einzelnen Beitrag anzeigen

blackmice

Registriert seit: 24. Okt 2007
Ort: Niederkrüchten
28 Beiträge
 
Delphi 5 Standard
 
#1

Array zerlegen

  Alt 11. Feb 2008, 10:55
Hallo,

wahrscheinlich stell ich mich einfach mal wieder zu blöd an, aber gibt es eine bessere Methode einen Array in 2 Arrays oder einen Record zu zerlegen, als ich per For-Schleife komplett zu durchlaufen?

Mein Source sieht derzeit so aus:

Delphi-Quellcode:
iMaxAnalog := 0;
iMaxData := 0;
Repeat
  For j := 0 to iWidth do
  begin
    AnalogArr[iMaxAnalog] := FPGAData2[iPort,i];
    i := i + 1;
    iMaxAnalog := iMaxAnalog + 1;
  end;

  For j := 0 to 4 do
  begin
    DataArr[iMaxData] := FPGAData2[iPort,i];
    i := i + 1;
    iMaxData := iMaxData;
  end;
until i >= inbuf;
inbuf gibt an, wie viele Felder im Array FPGAData2 gefüllt sind. Das ganze kommt aus einer NI-Karte weshalb es variieren kann. Der Datenstrom ist aber immer so aufgebaut, dass es eine einstellbare Anzahl an Bytes gibt (iWidth), die in den Array AnalogArr sollen und 4 Bytes die in den Array DataArr sollen. iWidth ist dabei im Programm einstellbar zwischen 1 und 128.

Vielen Dank schon mal im Voraus.
Blackmice
Blackmice
Debuggers don't remove bugs, they only show them in slow-motion.
  Mit Zitat antworten Zitat