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