[Delphi] Soubory

[double_m]

Cus mám problém, fakt nevím proč..

Kód: Vybrat vše

......

Var
F : TextFile;
.....

AssignFile(F, 'text.txt');
Rewrite(F);
WriteLn(F,Cas);

.....


- Zasekne se na ReWrite
Po zkompilování se oběví chybová hláška IO error 32 fakt už jsem googloval kde se dalo...a nic..

[JanFiala]

Uvadis soubor bez cesty, vytvari se v pracovnim adresari programu.
Tam, kde se soubor vytvari je pravo pro zapis?
Treba ten soubor jiz existuje a nekdo jej drzi. Pak jej nemuzes vytvorit... Jde ten soubor smazat?

[double_m]

Soubor smazat jde, klidne vytvorit i novej.. Právo pro zápis taky je..

[JanFiala]

A vis, kde se ti ten soubor vytvori?

[double_m]

Joo hned vedle projektu a exe souboru. Píšu v Delphi 7, a teď jsem vyzkoušel i Delphi 2005 - v tom to rozchodit uplne stejnej problem.
I/O error 32

[hekrhy]

"32: The process cannot access the file because it is being used by another process."
opravdu ten soubor nemas v necem otevreny? nebo nevisi ti nekde ten tvuj program s tim, ze ma ten soubor jeste otevreny? nebo neotviras ho v tom programu dvakrat?

[double_m]

Jinak ted jsem zkusil vytvorit novej projekt dal jsem tam tohle na zacatek

Kód: Vybrat vše


procedure TForm1.FormCreate(Sender: TObject);
Var
F : TextFile;
Cas : String;
begin
           Cas := 'cas';
           AssignFile(F, 'text.txt');
           Rewrite(F);
           Write(F,Cas);
end;

end.



A soubor se v poho vytvoril bez kecu ale zase v tom souboru nebylo nic napsanyho

[double_m]

"32: The process cannot access the file because it is being used by another process."
opravdu ten soubor nemas v necem otevreny? nebo nevisi ti nekde ten tvuj program s tim, ze ma ten soubor jeste otevreny? nebo neotviras ho v tom programu dvakrat?

Joo tak počkej to zkouknu to je dost možný, fakt už je ten kod dlouhej..

[neonn]

Pokud si dobre pamatuju tech par informaci o Pacalu, co nam rikali ve skole, tak rewrite() pouzit nelze ... ten slozi pouze pro typove/netypove soubory.
Pro textove musis pouzit append() a jine (bohuzel si pamatuju pouze na append()). Ta otevre soubor pro zapis a ukazatel nastavi na konec.

Snad to je spravne... Pascal moc v oblibe nemam. Bohuzel tento pulrok zaciname brat Delphi ... C/C++ az pristi rok .

[hawelo]

Nemas nahodou uz niekde deklarovanu globalnu premennu F? Mal som uz podobny problem a ak sa dobre pamatam tak chyba bola v tomto. Ak nie tak skus dat presnu cestu k suboru. Ina chyba ma fakt nenapada, mozno keby si dal kod celej procedury, v ktorej sa ti to zasekava nieco by sa naslo.

[double_m]

Hele tak užžž to mám... Připsal jsem za to CloseFile(F) a už to frčíí..

[double_m]

Kód: Vybrat vše

......

Var
F : TextFile;
.....

AssignFile(F, 'text.txt');
Rewrite(F);
WriteLn(F,Cas);
CloseFile(F);
.....



A už to frčíí

[extremon]

Nauc se pozivat Help ... toto je zakladni pravidlo prace s files