Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Preimenovanje fajla sa cirilicnim imenom

[es] :: Pascal / Delphi / Kylix :: Preimenovanje fajla sa cirilicnim imenom

[ Pregleda: 2638 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

milnen
Nis

Član broj: 73950
Poruke: 332
160.99.35.*



+5 Profil

icon Preimenovanje fajla sa cirilicnim imenom03.07.2007. u 20:29 - pre 203 meseci
Kako u Delphiju promeniti ime fajla koje je pisano cirilicom (u latinicu ili cirilicu, nebitno)?
 
Odgovor na temu

milance_kg

Član broj: 59131
Poruke: 185
212.200.181.*



+22 Profil

icon Re: Preimenovanje fajla sa cirilicnim imenom03.07.2007. u 21:08 - pre 203 meseci
Mislim da ce ovo da ti posluzi
Code:

function RenameFileW(const OldName, NewName: WideString): Boolean;
begin
  Result := MoveFileW(PWideChar(OldName), PWideChar(NewName));
end;


Stavi dva TntEdit-a na formu i jedan Button
i za OnClick Button-a proceduru

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  Old, New: WideString;
begin
  Old := TntEdit1.Text;//staro ime
  New := TntEdit2.Text;//novo ime
  RenameFileW(Old, New);
end;


ili prosto

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RenameFileW(TntEdit1.Text, TntEdit2.Text);
end;


i Font za TntEdit-e postavi (napisi) rucno MS Shell Dlg 2
 
Odgovor na temu

milnen
Nis

Član broj: 73950
Poruke: 332
160.99.35.*



+5 Profil

icon Re: Preimenovanje fajla sa cirilicnim imenom03.07.2007. u 21:25 - pre 203 meseci
Hvala za ovo, ali sam ukapirao da meni pravi problem i to sto ja ime fajla (fajlova) dobijam pomocu FindFirst i FindNext, a TFileName je tipa String, a ne WideString. Sta da koristim da procitam imena svih fajlova u nekom folderu?
 
Odgovor na temu

milance_kg

Član broj: 59131
Poruke: 185
212.200.181.*



+22 Profil

icon Re: Preimenovanje fajla sa cirilicnim imenom03.07.2007. u 21:35 - pre 203 meseci
Treba ti WideFindFirst i WideFindNext i ako koristis TSearchRec
umesto toga TSearchRecW, a sve to se nalazi u TntSysUtils
deo Tnt paketa, pa ako si instalisao TNT nece biti problema,
je TNT nije vise free i sad je TMS, ali jos uvek mozes naci poslednju
besplatnu verziju TNT-a (progooglaj, mislim da ima na mustangpeak-u).


Toliko


Pozdrav
 
Odgovor na temu

milnen
Nis

Član broj: 73950
Poruke: 332
160.99.35.*



+5 Profil

icon Re: Preimenovanje fajla sa cirilicnim imenom03.07.2007. u 21:45 - pre 203 meseci
Hvala prijatelju!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Preimenovanje fajla sa cirilicnim imenom

[ Pregleda: 2638 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.