1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

[Нужна помощь delphi 7] Как юзать FindFirst?

Тема в разделе "Помощь по всем вопросам.", создана пользователем googie, 17 янв 2014.

  1. TopicStarter Overlay
    googie

    googie Команда форума

    Регистрация:
    27 июл 2012
    Сообщения:
    824
    Симпатии:
    616
    есть примерно такой код:

    Код:
    var
      Form1: TForm1;
    sr:TSearchRec;
    implementation
     
    {$R *.dfm}
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    FindFirst('report_*.txt', faAnyFile, sr); // вот тут выдает ошибку и с этим мне нужно разобраться
    idFTP1.Host:='host.ru';  //FTP-сервер
    idFTP1.Port:=21;                  //порт ФТП сервера
    idFTP1.Username:='user';
    idFTP1.Password:='passwrd';
    idFTP1.Connect;
    idFTP1.Put(sr);
    idFTP1.Disconnect;
    end;
     
    end.
    прилетает ошибка о несовместимости типов данных, что-то такое

    в благодарность моё спасибо :D

    файлик отчета будет только 1, по этому и отправляться будет 1 штука
     
    Метки:
  2. AJ1

    AJ1

    Регистрация:
    19 фев 2013
    Сообщения:
    246
    Симпатии:
    351
    Экстрасенсы в отпуске, можно полный текст ошибки?
     
  3. TopicStarter Overlay
    googie

    googie Команда форума

    Регистрация:
    27 июл 2012
    Сообщения:
    824
    Симпатии:
    616
  4. EEjester

    EEjester hack_the_god

    Регистрация:
    25 окт 2012
    Сообщения:
    1.339
    Симпатии:
    957
    Компонент подключи в uses, и на форму кинь.
     

Поделиться этой страницей

Загрузка...