Written by xinyiman Ottobre 28, 2011, 09:16:00 am21437 ViewsRating: 0 (0 Rates)Print
Capita spesso che si debba lavorare con le directory e i loro contenuti. Lazarus/Free Pascal permette queste operazioni in maniera facile ed intuitiva.
Segue un piccolo esempio di una Form con un Button (Nome=Button1) e una ListBox(Nome=ListBox1), quando si preme sul button1 il programma legge tutto il contenuto delle cartella in cui si trova l'eseguibile rinomina tutti i file (di 21 caratteri, estensioni comprese) in esso contenuti togliendo i primi 4 caratteri partendo da sinista.
Segue l'esempio, spero possa essere utile a qualcuno.
procedure TForm1.Button1Click(Sender: TObject);
var
Info : TSearchRec;
Count : Longint;
fecha, fecha2:Tdate;
fechatmp, fechatmp2:longint;
Spazio: int64;
filename:string;
PercIncrem: double;
Percorso, NuovoNome: string;
k: integer;
begin
Percorso:=Application.Location;
//se volessi leggere un altra cartella dovrei scrivere: If FindFirst (NomeAltraDirectory + '*',faAnyFile and faDirectory,Info)=0 then
If FindFirst ('*',faAnyFile and faDirectory,Info)=0 then
begin
Repeat
With Info do
begin
if ((Name='.') OR (Name='..')) then
begin
end
else
begin
If (Attr and faDirectory) = faDirectory then
begin
//è una dir e la ignoro
end
else
begin
Spazio:=size; //salvo la dimensione del file (non la uso ma è per far vedere che c'è la possibilità)
filename:=Percorso + Name;
if Length(name)=21 then
begin
NuovoNome:=RightStr(Name,Length(Name)-4);
end;
end;
end;
Until FindNext(info)<>0;
end;
FindClose(Info);
ShowMessage('Terminato');
end;
end.
About the author
xinyiman registered at Italian community of Lazarus and Free Pascal on Ottobre 14, 2011, 10:56:28 pm and has posted 3269 posts in the boards since then. Last visit was Oggi alle 08:25:57 am.
Questo blog non rappresenta una testata giornalistica poiché viene
aggiornato senza alcuna periodicità. Non può pertanto considerarsi un
prodotto editoriale ai sensi della legge n. 62/2001.
Questo sito utilizza cookie, anche di terze parti, per offriti servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina, cliccando su un link o proseguendo la navigazione in altra maniera, acconsenti all’uso dei cookie.