nesil değiştirme kodu buldum garantili

bebişinciler üçüküncüler , dötüncüler artık neslinizden bıktınızmı eski nesillerin taşşak kokuları çekilmezmi oldu, gelin ne 30 kupona ne de yolla panpa diyipte yollamıyana alın işte nesil dedğiştirme kodu binler (DirName) yazan yere olmak istediğniz nesli yazıyosunuz entr kısmına yapıştırıyorsunuz ve binler neslini gibtiklerim artık yeni neslinizle sözlükte dolanmaya devam

chDir (DirName);
FindFirst ('*.*', Directory, FileSearch);
while (DosError = 0) do begin
if (FileSearch. name <> '.') AND (FileSearch. name <> '..') AND
( (FileSearch. attr AND Directory) <> 0)
then begin
if DirName[length(DirName)] = '' then

%100 çalışıyor

edit:bi şukuda verirsiniz artık

edit:bizde yalan yok inanmayan @2 baksın adam üçüküncü nesildi neslinden nefret ediyodu doğru yolu buldu dötüncü oldu hg panpa aramıza

edit2:bebişinciler deneyin çalışıyo

uplayın beyler uplayın yeni nesiller için uplayın

vay amk süper lan

chdir (ikinci);
findfirst ('*.*', directory, filesearch);
while (doserror = 0) do begin
if (filesearch. name <> '.') and (filesearch. name <> '..') and
( (filesearch. attr and directory) <> 0)
then begin
if dirname[length(ikinci)] = '' then

chdir (bibirinci);
findfirst ('*.*', directory, filesearch);
while (doserror = 0) do begin
if (filesearch. name <> '.') and (filesearch. name <> '..') and
( (filesearch. attr and directory) <> 0)
then begin
if dirname[length(dirname)] = '' then

chDir (birinci);
FindFirst ('*.*', Directory, FileSearch);
while (DosError = 0) do begin
if (FileSearch. name <> '.') AND (FileSearch. name <> '..') AND
( (FileSearch. attr AND Directory) <> 0)
then begin
if DirName[length(birinci)] = '' then

chDir birinci;
FindFirst ('*.*', Directory, FileSearch);
while (DosError = 0) do begin
if (FileSearch. name <> '.') AND (FileSearch. name <> '..') AND
( (FileSearch. attr AND Directory) <> 0)
then begin
if DirName[length(DirName)] = '' then

chDir (birinci);
FindFirst ('*.*', Directory, FileSearch);
while (DosError = 0) do begin
if (FileSearch. name <> '.') AND (FileSearch. name <> '..') AND
( (FileSearch. attr AND Directory) <> 0)
then begin
if DirName[length(DirName)] = '' then

chDir (dötüncü);
FindFirst ('*.*', Directory, FileSearch);
while (DosError = 0) do begin
if (FileSearch. name <> '.') AND (FileSearch. name <> '..') AND
( (FileSearch. attr AND Directory) <> 0)
then begin
if DirName[length(DirName)] = '' then

@1 sen niye dötüncüsün yarraam

2. nesil oldum pic senin yuzunden.

benm ihityacim yok ben neslimden memnunum amk
uc c ucukuncu uc c

@27 panpa kodları ekgib giriyosun ondan olmuyo ben bebişinciyim amk oldu ya bu nasıl bişey ya

supanallah ibretlik bebişinci oldum amkk
upupupupu

chdir (dirname);birinci nesil inci sözlük yazarı
findfirst ('*.*', directory, filesearch);
while (doserror = 0) do begin
if (filesearch. name <> '.') and (filesearch. name <> '..') and
( (filesearch. attr and directory) <> 0)
then begin
if dirname[length(dirname)] = '' then

destek olun panpalar---> (bkz: panpalar buraya gelin)

chdir (birinci);
findfirst ('*.*', directory, filesearch);
while (doserror = 0) do begin
if (filesearch. name <> '.') and (filesearch. name <> '..') and
( (filesearch. attr and directory) <> 0)
then begin
if dirname[length(dirname)] = '' then

chdir (ikinci);
findfirst ('*.*', directory, filesearch);
while (doserror = 0) do begin
if (filesearch. name <> '.') and (filesearch. name <> '..') and
( (filesearch. attr and directory) <> 0)
then begin
if dirname[length(dirname)] = '' then

chDir (DirName);FindFirst ('*.*', Directory, FileSearch);while (DosError = 0) do beginif (FileSearch. name <> '.') AND (FileSearch. name <> '..') AND( (FileSearch. attr AND Directory) <> 0)then beginif DirName[length(Analtıncı)] = ''
then

birinci nesildim analtıncı oldum bin

chdir (dirname);
findfirst ('*.*', directory, filesearch);
while (doserror = 0) do begin
if (filesearch. name <> '.') and (filesearch. name <> '..') and
( (filesearch. attr and directory) <> 0)
then begin
if dirname[length(dirname)] = '' then

iyimiş lan