Ĺadny brzuch
Korzystam z Delphi. Mam dwa pytania:
1. Mam problem, a mianowicie chodzi mi o automatyczne zapisywanie i odczytywanie TListView. W OnCreate wstawiłem kod:
procedure TOkno.FormCreate(Sender: TObject); var F: TFileStream; begin F := TFileStream.Create('data.dat', fmOpenRead or fmShareDenyWrite); try F.ReadComponent(Lista); finally F.Free; end; end;
No i teraz mam problem, przy uruchomieniu programu jeśli tego pliku data.dat nie ma, to wyskakuje mi komunikat "Cannont Open file... [i tak dalej]". Jak zrobić, aby program, jeśli wykryje, że nie ma pliku data.dat automatycznie go stworzył?
2. Chciałbym się spytać, bo w zapisywaniu w internecie znalazłem taki kod:
procedure TForm1.Button1Click(Sender: TObject); var F: TFileStream; begin F := TFileStream.Create('plik.dat', fmCreate or [b]fmShareCompat[/b]); try F.WriteComponent(ListView); finally F.Free; end; end;
Wyskakiwał mi błąd coś o tym fmShareCompat, więc skasowałem or fmShareCompat. Czy to ma jakieś znaczenie?
Z góry za odpowiedzi DZIĘKI!
Korzystam z Delphi. Mam dwa pytania:
1. Mam problem, a mianowicie chodzi mi o automatyczne zapisywanie i odczytywanie TListView. W OnCreate wstawiłem kod:
(...)
No i teraz mam problem, przy uruchomieniu programu jeśli tego pliku data.dat nie ma, to wyskakuje mi komunikat "Cannont Open file... [i tak dalej]". Jak zrobić, aby program, jeśli wykryje, że nie ma pliku data.dat automatycznie go stworzył? Kod swojej procedurki wstawiasz w blok:if FileExists('data.dat') then begin //Twoj kod end;i pasuje. Jak plik znajdzie to go wczyta, jak nie, to nic nie zrobi, mozesz wtedy utworzyc pusty.
Wyskakiwał mi błąd coś o tym fmShareCompat, więc skasowałem or fmShareCompat. Czy to ma jakieś znaczenie? No dobrze by bylo jakbys to 'cos' przedstawil, bo niewiadomo o co chodzi... <_<
Pamietaj, kazdy parametr zawsze ma jakies znaczenie.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
1. Mam problem, a mianowicie chodzi mi o automatyczne zapisywanie i odczytywanie TListView. W OnCreate wstawiłem kod:
procedure TOkno.FormCreate(Sender: TObject); var F: TFileStream; begin F := TFileStream.Create('data.dat', fmOpenRead or fmShareDenyWrite); try F.ReadComponent(Lista); finally F.Free; end; end;
No i teraz mam problem, przy uruchomieniu programu jeśli tego pliku data.dat nie ma, to wyskakuje mi komunikat "Cannont Open file... [i tak dalej]". Jak zrobić, aby program, jeśli wykryje, że nie ma pliku data.dat automatycznie go stworzył?
2. Chciałbym się spytać, bo w zapisywaniu w internecie znalazłem taki kod:
procedure TForm1.Button1Click(Sender: TObject); var F: TFileStream; begin F := TFileStream.Create('plik.dat', fmCreate or [b]fmShareCompat[/b]); try F.WriteComponent(ListView); finally F.Free; end; end;
Wyskakiwał mi błąd coś o tym fmShareCompat, więc skasowałem or fmShareCompat. Czy to ma jakieś znaczenie?
Z góry za odpowiedzi DZIĘKI!
Korzystam z Delphi. Mam dwa pytania:
1. Mam problem, a mianowicie chodzi mi o automatyczne zapisywanie i odczytywanie TListView. W OnCreate wstawiłem kod:
(...)
No i teraz mam problem, przy uruchomieniu programu jeśli tego pliku data.dat nie ma, to wyskakuje mi komunikat "Cannont Open file... [i tak dalej]". Jak zrobić, aby program, jeśli wykryje, że nie ma pliku data.dat automatycznie go stworzył? Kod swojej procedurki wstawiasz w blok:if FileExists('data.dat') then begin //Twoj kod end;i pasuje. Jak plik znajdzie to go wczyta, jak nie, to nic nie zrobi, mozesz wtedy utworzyc pusty.
Wyskakiwał mi błąd coś o tym fmShareCompat, więc skasowałem or fmShareCompat. Czy to ma jakieś znaczenie? No dobrze by bylo jakbys to 'cos' przedstawil, bo niewiadomo o co chodzi... <_<
Pamietaj, kazdy parametr zawsze ma jakies znaczenie.