[TP] otwieranie danego pliku TXT w razie istnienia

Witam,
robile gre i wpadlem na pomysl ze moze zrobie zapis do pliku... no ale wlasnie jedno ale. Chcialbym zeby wczytywal dane ustawienia tylko w wypadku istnienia danego pliku, inaczej wczytywal domyslne. Realne to??
A i przyokazji to w TP.

Pozdrawiam

Jak najbardziej realne :)

brodny napisał(a)

Jak najbardziej realne :)

Oko domyslalem sie :-) ,ale moze jakies konkrety??

Pisane z głowy:

var
  f:Text;
begin
  AssignFile(t,'dany plik');
  {I-}
  Reset(t)
  {I+}
  if IOResult=0 then
    //plik istnieje
  else
   //plik nie istnieje;
end;

Inna wersja dla postu wyżej:

if FileExist('FileName') then
begin
  // jeżeli plik istnieje to odczyt
end else
begin
  // w przeciwnym razie ładuj domyslne
end;

Racja TP to nie delphi. Teraz nie pamiętam - FileSearch lub FSearch

@Oleksy_Adam dostaje nieznany identyfikator, moze jakos inaczej sie pisze??

@kolegi o 2 posty wyzej nie zadziala, poniewaz jesli nie ma pliku o danej nazwie to wysypie sie ze nie moze odnalezc pliku

Ops sry chyba sie pomylilem wersja 1 dziala;p

Nie chce wprowadzac w blad wienc mowie ze 1 przyklad rowniez nie dziala;/

odczytywanie pliku

var
f:Text;
begin
Assign(f,'dany plik');
Reset(f)
end;

lub jesli chcesz stworzyć plik to
var
f:Text;
begin
Assign(f,'dany plik');
rewrite(f);
Reset(f)
end;

matx132 napisał(a)

odczytywanie pliku

var
f:Text;
begin
Assign(f,'dany plik');
Reset(f)
end;

lub jesli chcesz stworzyć plik to
var
f:Text;
begin
Assign(f,'dany plik');
rewrite(f);
Reset(f)
end;

Nie wiem jaki to ma zwiazek z tematem, ale po uzyciu Rewrite() nie uzywa sie Reset()

mozliwe pisałem z głowy
ale to pierwsze jest doczytanie z pliku a oto chyba chodzi?
zeby zrobic odczyt pliku?

No tak, ale po co pisac dwa razy to samo, skoro wszystko jest bardzo dokladnie wyjasnione w kompedium?
http://4programmers.net/Delphi/Kompendium/Rozdział_7

WIktorDelphi napisał(a)

No tak, ale po co pisac dwa razy to samo, skoro wszystko jest bardzo dokladnie wyjasnione w kompedium?
http://4programmers.net/Delphi/Kompendium/Rozdział_7

ale czemu dałeś do delphi?
jesli on uzywa TP(turbo pascal)?

Bo różnica pomiędzy delphi a pascalem to AssignFile i Assign. Delphi to nadal pascal i w sporej częsci jest kompatybilny wstecz.

1 przykład działa.. na tym opiera sie wczytywanie w moim nieco większym programie do obsługi tysięcy lampek choinkowych na które mnie nie stać (używam diodek na razie...) Jest tam jednak mały błąd!!!!! Dyrektywy zapisujemy odpowiednio: {$I-} i {$I+} ot cala filozofia...

He, he... Rzeczywiście. Pisany z głowy i zapomniałem o $. Cóż mój błąd następnym razem postaram się poprawić