Trackbar Problem

[himitsu]

Wie Luckie schon sagte:

Delphi-Quellcode:

procedure TForm1.TrackBar6Change(Sender: TObject); 
const _minQ : array [1..31] of double = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31); 

begin 
Edit81.Text := FloatToStr(_minQ[TrackBar1.Position]);
end;

Wenn das immer ganze Zahlen sind, dann auch so:
(Wenn's die Werte zulassen, dann könntest du auch Byte, Word ... verwenden)

Delphi-Quellcode:

procedure TForm1.TrackBar6Change(Sender: TObject); 
const _minQ: array [1..31] of Integer = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31); 

begin 
Edit81.Text := IntToStr(_minQ[TrackBar1.Position]);
end;

Und dein Beispiel könnte man auch so kürzen, da die Werte ja mit ihrer Position übereinstimmen:
(Wenn's die Werte zulassen, dann könntest du auch Byte, Word ... verwenden)

Delphi-Quellcode:

procedure TForm1.TrackBar6Change(Sender: TObject); 
begin 
Edit81.Text := IntToStr(TrackBar1.Position);
end;