ساختن فایل تاریخچه (~Shistory ) [بایگانی]

khorsandreza

جمعه 17 شهریور 1396, 01:03 صبح

سلام
دوستان من در برنامه پردازش تصویر کار می کنم بخشی از کارم را با کامپوننت ImageEN انجام میدم می خواهم اخرین تغییرات من بر اساس کاری که انجام میدم مثل خو دلفی بکاپ History ایجاد کند و از فایل در یک پوشه بر اساس شماره فایل جدید تولیر کند
1 - روش شماره گذاری این کار جطور است
2 - بنظرتان اگر نام فایل را بر اساس تاریخ و ساعت ایجادکنم بهتر است؟
لطفا به تصویر پیوستی دقت کنید میخوام روش این نوع شماره گذاری را بدانم

khorsandreza

جمعه 21 مهر 1396, 03:11 صبح

من با این راه کار نوشتم گفتم شاید به درد کسی بخوره

Function CreateNewFile(FileFormat:string):String;overload;
Var
I:integer;
begin
i := 0;
while FileExists(Format('%s~%.04d~'+FileFormat,['D:\BOOK\',i])) do inc(i);
Result := Format('%s~%.04d~'+FileFormat,['D:\BOOK\,i]);
End;

با فراخوانی فانکش فایل جدید ایجاد میشود ('.txt')CreateNewFile