TrackBar - Pozycja - Delphi

Odpowiedz Nowy wątek
2011-07-29 14:05
Counter
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

Pozostało 580 znaków

2011-07-29 14:33
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.


edytowany 2x, ostatnio: Patryk27, 2011-07-30 15:41

Pozostało 580 znaków

2011-07-29 14:47
Counter
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ę.

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

Pozostało 580 znaków

2011-07-30 14:34
Counter
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. ;)

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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