[dephi] Zmiana Nazwy Pliku

[lolasher]

W Pascalu to było debilnie proste, ale jak chcę zastosować tą samą konstrukcję w Delphi to nie działa. Kombinowałem już kilka godzin i normalnie mi witki opadają, kompiluje się, ale program wywala błąd I/O 103

Kod: Zaznacz cały

 function Zmiana;
var f : file;
begin
    assignfile(f,\'c:testtest.txt\');
    rename(f, \'cos.txt\');
    closefile(f);
end;

Chyba najprostsze co może być - nie mam pojęcia co może być nie tak. Próbowałem na Delphi 7 i 2010 - cały czas ten sam błąd, spróbowałem skompilowany program odpalić z uprawnieniami administratora - to samo.

[domel]

Wg. mnie to nie powinno być:

Kod: Zaznacz cały

closefile(f);

bo niema komendy otwarcia ale wiesz ja się na tym nie znam więc mogę cię wprowadzać w błąd ale spróbować można
Albo

Kod: Zaznacz cały

RenameFile (F:plik.txd);

Tylko nie wiem gdzie dać żeby zmieniło na nową nazwę.

Dobra rozkminiłem to, działa na 100% testowane

Kod: Zaznacz cały

 RenameFile(\'F:blebleble.txt\', \'F:blebleblebleble.txt.\');

[Onset]

RenameFile(\'F:blebleble.txt\', \'F:blebleblebleble.txt.\');

Tu zamiast "F:blebleble.txt" wpakować zmienną F.
PS. Używa się RenameFile a nie Rename.

[domel]

[quote=""Onset""]Używa się RenameFile a nie Rename.[/quote]
A co jeżeli trzeba zmienić nazwę folderu

[SzymekRak]

Może MoveFile(source,dest,X), gdzie x=true gdy nadpisywać(albo odwrotnie, nie pamiętam ) ?

[Onset]

MoveFile jest do przenoszenia plików, nie nada się do zmiany nazwy.

[lolasher]

RenameFile, ale bez jego otwierania, ani tworzenia zmiennej. Po prostu

Kod: Zaznacz cały

 RenameFile(OldFile, NewFile);

No nie, kompiluje się, ale nic się nie dzieje po wywołaniu tej funkcji,movefile też nie działa, co jest

Kruca ryj,(jak to djdeeday ma w zwyczaju mawiać) wkurzyłem się, jakie jest dosowe polecenie na zmianę nazwy pliku

[Onset]

PS. Assignem otwiera się plik.

[lolasher]

Ja pierdut, przyjrzyj się, gdzie ja ten plik niby otwieram co Tu tylko zmieniam nazwę pliku, wcale go nie otwieram, gdzie niby w renamefile masz miejsce na zmienną plikową, co Jak jesteś taki sprytny to mi napisz procedurę, która będzie zmieniać nazwę pliku (ale najpierw przetestuj)

[Onset]

Boze.... jak delphi zainstaluje, to ok.
Moze bys zaczal od prostej procedury AssignFile() ? Otworzyłbys plik, potem zmienił nazwę i go zamknął...

assignfile(f,\'c:testtest.txt\');
rename(f, \'cos.txt\');
closefile(f);

jak widzę, masz to, będę musiał wytestować.

[lolasher]

Nie boże, tylko w żaden sposób nie chce mi działać, co ci poradzę.

[Onset]

Masz Sevena, więc niektóre procedury mogą nie działać, chociaż powinny, przecież 7 obsluguje Win32.

[lolasher]

[quote=""Onset""]Boze.... jak delphi zainstaluje, to ok.
Moze bys zaczal od prostej procedury AssignFile() ? Otworzyłbys plik, potem zmienił nazwę i go zamknął...
jak widzę, masz to, będę musiał wytestować.[/quote]


Przeczytaj mój pierwszy post, bardzo dokładnie.

[urban92]

A kompilowałeś w ogóle coś innego W Delphi 7 trzeba ustawić tryb kompatybilności z XP, a do Delphi 2010 chyba jest poprawka pod Sevena (przynajmniej w 2009 była taka pod x64), inaczej się nie będzie nic chciało kompilować.

[lolasher]

Inne zabawki mi działają, tylko to głupie otwieranie plików.