Unit ApproxStrUtils

[himitsu]

Also mit unicode würde es mir auch besser gefallen,

aber sonst sind es schon hübsche Funktionen



nur deine Demo ist etwas "merkwürdig" verschaltet.
Label.OnClick zur Aktualisierung


'ne einfacher Verbesserung ... hab nicht ständig Lust den UpdateButton, oder auf die Labels zu klicken, nur um die Trackbar-Änderung zu erkennen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TBErrorChange(nil);
end;

procedure TForm1.TBErrorChange(Sender: TObject);
begin
  LblError.Caption := 'Max. Fehler: ' + IntToStr(TBError.Position);
  Button1.Click;
end;

mehr siehe Anhang.