TrackBar - Pozycja - Delphi

0

Witam,

Mam pytanie , a mianowicie: jak zapisać pozycję TrackBar-a do pliku *.txt , zaś później po ponownym uruchomieniu programu ustawić położenie TrackBar-a do pozycji wcześniejszej? Cały czas szukam sposobu, ale zdecydowałem zaczerpnąć u was porady.

Pozdrawiam
Counter

0

?

Procedure ZapiszPozycje;
Var F: TextFile;
Begin
 AssignFile(F, 'save');
 ReWrite(F);
 Write(F, TrackBar.Position);
 CloseFile(F);
End;

Procedure OdczytajPozycje;
Var F: TextFile;
    P: String;
Begin
 AssignFile(F, 'save');
 Reset(F);
 Read(F, P);
 CloseFile(F);
 if Not TryStrToInt(P, TrackBar.Position) Then
  MessageBox(0, 'Błąd!', '', 0);
End;

Podpiąć to pod odpowiednie zdarzenia formy i będzie dobrze.

0

Dzięki Patryk ;) Nie pomyślałem, aby rozwiązać to w ten sposób. Troszkę pozmieniałem, dopasowałem do potrzeb programu i śmiga. Jeszcze raz dziękuję.

0

Chyba powinieneś w pytaniu dodać: Myślałem nad poszukaniem w googlach albo w helpie, ale uznałem że lepiej zmarnować wam czas. - payl

Wiesz payl, może ty tak myślisz, ale ja wiem swoje, wiem czego próbowałem, gdzie już szukałem tego rozwiązania i tyle, a może i Patrykowi trochę czasu zająłem, ale jestem mu wdzięczny, że ma w sobie tą siłę, aby pomagać, bo nie każdy widzi rozwiązanie swojego problemu, nawet tego najbłahszego. A z marnowaniem czasu, to coś tu się nie zgadza, bo jedynie ty sobie marnowałeś czas, pisząc ten komentarz powyżej. ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1