wo kommt das type hin?

[hedie]

Zitat von idefix2:

Wenn Du jetzt noch dazu schreibst, wo Dir konkret Werte "verloren"

Also ich denke ich "verliere" Sie bei der procedure prepaire_data

Edit: Es könnte jedoch auch bei der anschliessenden Übergabe an draw_raw_data sein

Wenn ich jedoch

Delphi-Quellcode:

 cd1 := 1;
    repeat
    Form1.Memo1.Lines.Add(inttostr(data1[cd1]));
    Form1.Memo1.Lines.Add(inttostr(data1[cd1+1]));
    cd1 := cd1 + 2;
    until (data1[cd1] = 5) or (data1[cd1-2] = 5);

    cd2 := 1;
    repeat
    Form1.Memo1.Lines.Add(inttostr(data2[cd2]));
    Form1.Memo1.Lines.Add(inttostr(data2[cd2+1]));
    cd2 := cd2 + 2;
    until (data2[cd2] = 5) or (data2[cd2-2] = 5);

    cd3 := 1;
    repeat
    Form1.Memo1.Lines.Add(inttostr(data3[cd3]));
    Form1.Memo1.Lines.Add(inttostr(data3[cd3+1]));
    cd3 := cd3 + 2;
    until (data3[cd3] = 5) or (data3[cd3-2] = 5);

    cd4 := 1;
    repeat
    Form1.Memo1.Lines.Add(inttostr(data4[cd4]));
    Form1.Memo1.Lines.Add(inttostr(data4[cd4+1]));
    cd4 := cd4 + 2;
    until (data4[cd4] = 5) or (data4[cd4-2] = 5);

    cd5 := 1;
    repeat
    Form1.Memo1.Lines.Add(inttostr(data5[cd5]));
    Form1.Memo1.Lines.Add(inttostr(data5[cd5+1]));
    cd5 := cd5 + 2;
    until (data5[cd5] = 5) or (data5[cd5-2] = 5);

Einsetze und die Arrays "gebrauche" dann verliere ich Array Daten1 und Daten2 schonmal nicht.

Zitat:

Felder Data: array [1..8] und cd: array[1..8]

Wie greife ich den danach auf ein Array zu?
Etwa so?
Data[0][0] := xyz; //Array0 Feld 0

Zitat:

Sollte die repeat-Schleife in prepaire_data nicht doch eher eine for Schleife sein

Ja du hast recht, die Schleife geht solange durch bis gesamt_einheit erreicht ist