Mh, ich habe immernoch leichte Probleme:
Delphi-Quellcode:
function RundeAufStelle(zahl: double; stellen: integer): double;
var multi: double;
begin
multi:=IntPower(10, stellen);
zahl:=round(zahl*multi);
result:=zahl/multi;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
var
T : String;
begin
// Beispiel: Songlänge 3,48 Min.
// TrackBar Max wird auf 209 gestellt
// 209 wird durch 60 geteilt:
// Ergebnis: 3,48 periode.
T := IntToStr(TrackBar1.Position div 60);
Caption := FloatToStr(RundeAufStelle(StrToInt(T), 2));
// hier wird 3,4888888888 auf 3,48 gerundet und SOLLTE so ins caption
// geht abr nicht :(
end;
Edit: hatte mich heir vertippt..