Katalog z Edit

Mam banalny (jak zawsze <_< ) problem.
Poleceniem

CreateDirectory ('Nazwa katlogu', nil);

tworzę katalog. Jak mam zrobić, aby nazwa katalogu została pobrana z pola Edit?

---

CreateDircetory(Edit1.Text);

:blink:
Nie bardzo to działa.
Program tworzy katalog o nazwie Edit1.Text zamiast podanej nazwy z tego pola.


:blink:
Nie bardzo to działa.
Program tworzy katalog o nazwie Edit1.Text zamiast podanej nazwy z tego pola.

---

CreateDirectory('C:\Windows' + Edit1.Text);
Utowrzy katalog o nazwie w Ediice w Folderze Windows

Ups, racja, sory za pomyłkę :(
Użytkownik Matpien3 edytował ten post 29 kwiecień 2005, 13:40
Może utwórz katalog poleceniem mkdir :) , np:
mkdir('c:/windows/pulpit/' + edit1.Text);


Może utwórz katalog poleceniem mkdir :) , np:
mkdir('c:/windows/pulpit/' + edit1.Text);

Nie wiem czemu, ale kod podany przez Ciebie mi nie działa :P
Debugger wywala taki błąd: [Error] Unit1.pas(28): Incompatible types: 'String' and 'PAnsiChar'
Użytkownik marrek13 edytował ten post 29 kwiecień 2005, 13:45
Nic z tego.
Przy wpisaniu np.
CreateDirectory ('dane/' + 'Edit1.Text', nil);
zamiast zrobić katalog w katalogu dane o nazwie wpisanej w polu Edit1,
mam katalog w katalogu dane ale o nazwie Edit1.Text <_<


Nie wiem czemu, ale kod podany przez Ciebie mi nie działa :P
Debugger wywala taki błąd: [Error] Unit1.pas(28): Incompatible types: 'String' and 'PAnsiChar'


Nic z tego.
Przy wpisaniu np.
CreateDirectory ('dane/' + 'Edit1.Text', nil);
zamiast zrobić katalog w katalogu dane o nazwie wpisanej w polu Edit1,
mam katalog w katalogu dane ale o nazwie Edit1.Text  <_<

 CreateDirectory (PAnsiChar('dane\' + Edit1.Text));

wywala błąd:

[Error] Unit1.pas(37): Not enough actual parameters

Zadziałało tak:

MkDir (PAnsiChar('dane\' + Edit1.Text));

ale o ile w CreateDirectory w przypadku napotkania na istniejący katalog o takiej samej nazwie nic się nie działo, to przy MkDir już wywali błąd systemowy i powiesi program <_<


Zadziałało tak:

MkDir (PAnsiChar('dane\' + Edit1.Text));

ale o ile w CreateDirectory w przypadku napotkania na istniejący katalog o takiej samej nazwie nic się nie działo, to przy MkDir już wywali błąd systemowy i powiesi program  <_<

100% poprawnie :thumbsup:

var windir:pchar; begin getmem(windir,256); GetEnvironmentVariable('windir',windir,256); CreateDirectory(pchar(windir+'\'+Edit1.Text),nil);

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl