جواب به پرسش ها در مورد دلفي

[soldier]

سلام
من يه تاپيك جديد باز كردم مي تونيد
بريد به تاپيك و بخونيد اگر هم سوالي داشتيد
همون جا بپرسيد. لينك تاپيك :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[milad_11]

با سلام من می خواستم بدونم که برای جستجو برای یک فایل در چند زیر folder در یک folder اصلی ونمایش آن چکار باید بکنم.....
اگر دلتون خواست به سوال من جواب بدین . با تشکر milad_11

[مرد مباح]

بايد يكمي كد بنويسي.
ولي شايد كامپوننتي هم داشته باشه.
چقدر دقيق ميخواي و تا چند مرحله پيش بره؟

[soldier]

سلام رفيق
چه كمكي خوبي كردي به اين دوست ما.
من كه موندم توي پستت.

سلام ميلاد
من دنبال چيزي كه مي خواهي هستم.
فعلآ سرم خيلي شلوغه . بعد ها برات مي زارم.
خيلي طول نمي كشه.فقط صبر كن.

[NoneForce]

سلام
اين هم يك روش :

type
PRecInfo = ^TRecInfo;
Trecinfo = record
prev: PRecInfo;
fpathname: string;
srchrec: Tsearchrec;
end;

تعريف روال :

function TForm1.RecurseDirectory1(fname: string): tstringlist;
var
f1, f2: Tsearchrec;
p1, tmp: PRecInfo;
fwc: string;
fpath: string;
fbroke1, fbroke2: boolean;
begin
result := tstringlist.create;
fpath := extractfilepath(fname);
fwc := extractfilename(fname);
new(p1);
p1.fpathname := fpath;
p1.prev := nil;
fbroke1 := false;
fbroke2 := false;
while (p1 <> nil) do
begin
if (fbroke1 = false) then
if (fbroke2 = false) then
begin
if (findfirst(fpath + '*', faAnyfile, f1) <> 0) then
break;
end
else if (findnext(f1) <> 0) then
begin
repeat
findclose(f1);
if (p1 = nil) then
break;
fpath := p1.fpathname;
f1 := p1.srchrec;
tmp := p1.prev;
dispose(p1);
p1 := tmp;
until (findnext(f1) = 0);
if (p1 = nil) then
break;
end;
if ((f1.Name <> '.') and (f1.name <> '..') and ((f1.Attr and fadirectory) =
fadirectory)) then
begin
fbroke1 := false;
new(tmp);
with tmp^ do
begin
fpathname := fpath;
srchrec.Time := f1.time;
srchrec.Size := f1.size;
srchrec.Attr := f1.attr;
srchrec.Name := f1.name;
srchrec.ExcludeAttr := f1.excludeattr;
srchrec.FindHandle := f1.findhandle;
srchrec.FindData := f1.FindData;
end;
tmp.prev := p1;
p1 := tmp;
fpath := p1.fpathname + f1.name + '\';
if findfirst(fpath + fwc, faAnyfile, f2) = 0 then
begin
result.add(fpath + f2.Name);
while (findnext(f2) = 0) do
result.add(fpath + f2.Name);
findclose(f2);
end;
fbroke2 := false;
end
else
begin
if (findnext(f1) <> 0) then
begin
findclose(f1);
fpath := p1.fpathname;
f1 := p1.srchrec;
fbroke1 := false;
fbroke2 := true;
tmp := p1.prev;
dispose(p1);
p1 := tmp;
end
else
begin
fbroke1 := true;
fbroke2 := false;
end;
end;
end;
fpath := extractfilepath(fname);
if findfirst(fname, faAnyfile, f1) = 0 then
begin
result.add(fpath + f2.Name);
while (findnext(f1) = 0) do
result.add(fpath + f2.Name);
findclose(f1);
end;
end;

فراخواني :

listbox1.Items.Assign(RecurseDirectory1('e:\setup. exe'));

[Face_Of_Die]

دوستان و اساتید عزیز سلام
من خیلی کم با برنامه نویسی کار کردم و حالا می خوام شروع کنم ... در حال حاضر هدفم طراحی برنامه ای با آیتم های زیر هستم ... ممکن است ساده به نظر برسد ولی من تجربه کاری ندارم ...
اساتید محترم اگر نمونه و یا راهنمایی در این زمینه دارند منو یاری دهند.
------------------------------------------
برنامه مورد نظر یک کارتکس هست که شامل فیلدهای زیر هست

مشخصات فرد را گرفته و بتوان روز هايي را که طرف مرخصي گرفته بر روي کارتکسي به اين شکل نمايش بده
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[Face_Of_Die]

آقا كمك كنيد اين قضيه خيلي مهمه
از همتون متشكرم

[soldier]

سلام
مي خواهي توي يك پروژه تو رو كمك كنيم.
يا واسه ياد گيري دلفي؟ اگر ياد گيري
برو به تاپيك آموزش دلفي.

[soldier]

سلام
حالا منظورتو فهميدم.بايد از ديتابيس استفاده كني!
برو اين تاپيك : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
من دارم يه نمونه مي سازم بعدآ واست مي فرستم.

[hp1361]

سلام
دوستان من يه برنامه نوشتم كه توي فرم چند edit داره

حالا توي onkeydown اون نوشتم كه وقتي اينتر رو ميزنم به اديت بعدي بره

مشكلي كه براي من پيش اومده اينه كه توي يه برنامه زماني كه اينتر رو مي زنم صدايي دينگ مانند ميده در حالي كه اون يكي برنامه اين طوري نيست

از راهنماييتون پيشاپيش ممنون