Hallo,
ich wollte fragen, ob vieleicht jemand eine saubere Programmierung hierfür weiß:
Delphi-Quellcode:
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Var
K:integer;
Begin
case x of
0..96:
Begin
for K:=0 To 96 Do
Test1[k]:=Test[k];
97..192:
Begin
for K:=97 To 192 Do
Test1[k]:=Test[k];
usw. in 96- Schritten bis 8000
Ich möchte halt die Werte aus dem Test array in der sich die 8000 Werte befinden immer in 96 Werte aufteilen und dem Test1 array zuweisen.So wie es ist funktioniert auch alles wunderbar, aber ich möchte nicht einen so langen Quelltext haben nur damit ich anhand der mousemovefunktion Werte zuweise.Vieleicht hat jemand eine Idee wie man das eleganter lösen kann.
[edit=SirThornberry]code-Tags durch Delphi-Tags ersetzt - nächstes mal bitte selbst richtig setzen - Mfg, SirThornberry[/edit]