1

Тема: Клацни на мене.І поможіть

procedure TForm1.FileOld(const dir: string);
var
  f: TSearchRec;
  nameFile: string;
  dtfile: Tdate;
  mas: array [0..100] of string;
  q : integer;
  C :TStringList;
begin
  if findFirst(dir + '\*', faAnyFile, f) = 0 then
  repeat
  C.Create;
    nameFile := f.Name;
    if (nameFile = '.') or (nameFile = '..') then continue;
    if f.Attr = faDirectory then FileOld(dir + '\' + nameFile);
    if nameFile = '1.txt'  then begin
        ShowMessage('Файл знайдено');
     C.Add(nameFile);
    end;
    if nameFile = '2.txt'  then begin
      ShowMessage('Файл знайдено');
     C.Add(nameFile);
    end;
    if nameFile = '3.txt'  then begin
       ShowMessage('Файл знайдено');
      C.Add(nameFile);
    end;
  until findNext(f) <> 0;
  findClose(f);
end;

end.

Може хтось пожалоста пидсказати чого вилитає ошибка

2

Re: Клацни на мене.І поможіть

Коли вже скомпілірував і починає виконуватися процедура

3

Re: Клацни на мене.І поможіть

Проблема явно

   C :TStringList; 

4

Re: Клацни на мене.І поможіть

Яка саме помилка? Проблема виникає при компіляції, я так розумію?

py -3 -m pip install git+https://github.com/snoack/python-goto

5

Re: Клацни на мене.І поможіть

oleh1818 написав:

Ті що з того що я розмовляю суржиком

розмовляйте як Вам завгодно.
а на форумі бажано писати українською або англійською мовами.

те, що Ви навели код - добре.
але , бажано написати - що Ви хотіли отримати - в чому полягає завдання.

і якщо вилітає помилка - то яка ?

Подякували: koala1

6

Re: Клацни на мене.І поможіть

https://drive.google.com/open?id=1NdOxf … s7WF8u7azT

7

Re: Клацни на мене.І поможіть

Вибиває таку ошибку при підключенні

     if nameFile = '1.txt'  then begin
        ShowMessage('Файл знайдено');
     C.Add(nameFile);
    end;
    if nameFile = '2.txt'  then begin
      ShowMessage('Файл знайдено');
     C.Add(nameFile);
    end;
    if nameFile = '3.txt'  then begin
       ShowMessage('Файл знайдено');
      C.Add(nameFile);
    end;

8

Re: Клацни на мене.І поможіть

Замініть

C.Create;

на

C:=TStringList.Create;
oleh1818 написав:

Просто на російські розкладці пичатав

І це саме вона замінила "друкував" на "пичатав", звісно.

Подякували: Torbins, vtorgashov, /KIT\, leofun014