tümü

nesil değiştirme kodu buldum garantili

  1. 1.
    -1
    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
    ···
    #51907915 şikayet
  2. 2.
    -1
    vay amk süper lan
    ···
    #51907986 şikayet
  3. 3.
    +1
    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
    ···
    #51909429 şikayet
  4. 4.
    0
    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
    ···
    #60731149 şikayet
  5. 5.
    0
    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
    ···
    #60730963 şikayet
  6. 6.
    0
    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
    ···
    #60730863 şikayet
  7. 7.
    0
    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
    ···
    #60730454 şikayet
  8. 8.
    0
    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
    ···
    #60258769 şikayet
  9. 9.
    0
    @1 sen niye dötüncüsün yarraam
    ···
    #55343015 şikayet
  10. 10.
    0
    2. nesil oldum pic senin yuzunden.
    ···
    #55342805 şikayet
  11. 11.
    0
    benm ihityacim yok ben neslimden memnunum amk
    uc c ucukuncu uc c
    ···
    #51921659 şikayet
  12. 12.
    0
    @27 panpa kodları ekgib giriyosun ondan olmuyo ben bebişinciyim amk oldu ya bu nasıl bişey ya
    ···
    #51909874 şikayet
  13. 13.
    0
    supanallah ibretlik bebişinci oldum amkk
    upupupupu
    ···
    #51909752 şikayet
  14. 14.
    0
    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
    ···
    #60731996 şikayet
  15. 15.
    0
    destek olun panpalar---> (bkz: panpalar buraya gelin)
    ···
    #60732101 şikayet
  16. 16.
    0
    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
    ···
    #148735182 şikayet
  17. 17.
    0
    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
    ···
    #122455985 şikayet
  18. 18.
    0
    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
    ···
    #122455683 şikayet
  19. 19.
    0
    birinci nesildim analtıncı oldum bin
    ···
    #122454966 şikayet
  20. 20.
    0
    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
    ···
    #122454899 şikayet