ďťż

Ładny brzuch

Czy mógłby mi ktoś podać komendę na sprawdzanie, czy plik o podanej ścieżce istnieje? I przy okazji sprawdźcie to:

if FileExist('C:rekordziki.txt') := true then Memo1.Lines.LoadFromFile('C:rekordziki.txt') else begin CreateFile('C:rekordziki.txt'); Memo1.Lines.LoadFromFile('C:rekordziki.txt'); end;

Najlepiej uczyć się na własnych błędach.
GG#: 4391798 E-mail: krzema12@wp.pl


cytat:Krzema napisał:

Czy mógłby mi ktoś podać komendę na sprawdzanie, czy plik o podanej ścieżce istnieje?
Funkcja FileExists(nazwa_pliku)
jeśli zwraca true to plik istnieje a jeśli zwraca false to pliku nie ma.

cytat:
I przy okazji sprawdźcie to:

if FileExist('C:rekordziki.txt') := true then Memo1.Lines.LoadFromFile('C:rekordziki.txt') else begin CreateFile('C:rekordziki.txt'); Memo1.Lines.LoadFromFile('C:rekordziki.txt'); end;
1. W instrukcji if musisz użyć operatora porównania = a nie przypisania :=
2. Z tym CreateFile to Ci nie przejdzie. Musisz w inny sposób utworzyć plik.
3. Skoro w przypadku braku pliku będziesz tworzył pusty plik to po co go ładujesz do Memo skoro nic w nim nie ma ?

ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486

cytat:Oxi napisał:
2. Z tym CreateFile to Ci nie przejdzie. Musisz w inny sposób utworzyć plik.
Naprzykład możesz zrobić tak:
[b]var[/b] f: textfile; [b]begin[/b] AssignFile(f, 'C:rekordziki.txt'); Rewrite(f); {plik już zostanie stworzony. jak chcesz cos do niego zapisac to:} writeLn(f, 'jakiś rekordzik'); closeFile(f); [b]end;[/b]

http://www.cinek.glt.pl
(potrzebni betatesterzy :) więcej info na maila)
Ludzie korzystajcie ze słownika!!!

Dzięki wszystkim! Już sobie poradziłem.

PS.:
cytat:Oxi napisał:[/i
1. W instrukcji if musisz użyć operatora porównania = a nie przypisania :=
Często mi się to myli :)

[i]Najlepiej uczyć się na własnych błędach.
GG#: 4391798 E-mail: krzema12@wp.pl


Muszę odświerzyć ten temat bo mam problem :(

Wpisałem:
procedure TForm1.Button4Click(Sender: TObject); begin if FileExist('C:rekordziki.txt') = true then begin ShowMessage('JEST!'); end else begin ShowMessage('NIE MA :('); end end;

i mi wyświetla error: Undeclader indentifier:'FileExist'

Z góry dzięki za pomoc.



A no tak. Dzięki.

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •